Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11
  1. #1

    convertire una stringa JSON in un JSON object

    Sto cercando di usare angularJs in comunicazione con ASP. Angularjs riceve dati JSON e invia dati JSON quindi in asp creo il JSON attraverso questa classe (SQLtoJSON ) ma non ho idea di come leggere il file JSON che mi viene POSTato. qualcuno può aiutarmi?

    il codice con cui ricevo i dati è:

    codice:
    Dim jsa, dbc, sql
    	
    	Binary = Request.BinaryRead(Request.TotalBytes)
    	JSONString = BinaryToString(Binary)
    	
    '##########
    qui dovrei fare la conversione del JSONString   detta sopra
    '##########
    
    	table = "oggetto"
    	
    	FieldsArray = Array("ID", "prezzo")
    	ValueArray = Array("ID", "nuovoprezzo")
    	strWhere =  Array("ID")
    	UpdateDBfromJSON jsa, CarrelloDBConn, table, FieldsArray, ValueArray, strWhere
    	response.Write("Fatto")
    
    
    Function BinaryToString(Binary)
      Dim I, S
      For I = 1 To LenB(Binary)
        S = S & Chr(AscB(MidB(Binary, I, 1)))
      Next
      BinaryToString = S
    End Function
    Tutte le altre parti di codice funzionano. mi manca solo la conversione



    grazie mille
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

  2. #2
    posta la stringa che ricevi (JSONString) e dicci cosa vuoi estrarre

  3. #3
    ecco la stringa che mi arriva:

    codice:
    [{"ID":1,
    "img":"oreficeria.jpg", 
    "Categoria":"La Gioielleria, l'Oreficeria e le Pietre Dure",
    "CategoriaENG":"Jewelry, gold jewelry and semiprecious stones",
    "tipoelenco":"subcategorie",
    "ordine":1
    },
    {"ID":2,
    "img":"ceramiche.jpg",
    "Categoria":"Le Ceramiche Artistiche",
    "CategoriaENG":"Artistic ceramics",
    "tipoelenco":"aziende",
    "ordine":2
    },
    {"ID":3,
    "img":"bigiotteria.jpg",
    "Categoria":"La Bigiotteria in Argento",
    "CategoriaENG":"The Costume Silver",
    "tipoelenco":"subcategorie",
    "ordine":3
    }]
    e devo salvare i dati in db
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

  4. #4
    se non trovi niente in rete di già pronto, credo che tu debba realizzarti un parser...

  5. #5
    no, non ho trovato eccetto questo ma non funziona:
    codice:
    	Public Function parseJSON(strjs)
    		dim a
    		strjs=trim(strjs)
    		if strjs="" then
    			parseJSON="null"
    		elseif left(strjs,1)="[" then
    			strjs=trim(mid(strjs,2,len(strjs)-2))
    			b=Split(strjs, ",")
    			Set a = jsArray()
    			for i=0 to Ubound(b)
    				if left(b(i),1)="[" or left(b(i),1)="{" then
    					set a(Null)=(new jsCore).parseJSON(b(i))
    				elseif left(avalue,1)="""" then
    					b(i)=trim(mid(b(i),2,len(b(i))-2))
    					a(Null)=b(i)
    				elseif IsNumeric(b(i)) then
    					a(Null)=b(i)
    				end if
    			next
    			set parseJSON=a
    			set a=nothing
    		elseif left(strjs,1)="{" then
    		strjs=trim(mid(strjs,2,len(strjs)-2))
    		b=Split(strjs, ":")
    		Set a = jsObject()
    		aname=trim(b(0))
    		avalue=trim(b(1))
    		if left(aname,1)="""" then
    			aname=trim(mid(aname,2,len(aname)-2))
    			if left(avalue,1)="[" or left(avalue,1)="{" then
    			set a(aname)=(new jsCore).parseJSON(avalue)
    			elseif left(avalue,1)="""" then
    			avalue=trim(mid(avalue,2,len(avalue)-2))
    			a(aname)=avalue
    			elseif IsNumeric(avalue) then
    			a(aname)=avalue
    			end if
    			set parseJSON=a
    			set a=nothing
    		end if
    		elseif left(strjs,1)="""" then
    		strjs=trim(mid(strjs,2,len(strjs)-2))
    		parseJSON=strjs
    		elseif IsNumeric(strjs) then
    		parseJSON=strjs
    		else
    		parseJSON="error"
    		end if
    	End Function
    da inserire nella classe del file JSON_2.0.4.asp

    e fuori dalla classe:

    codice:
    Function parseJSON(val)
    	set parseJSON = (new jsCore).parseJSON(val)
    End Function
    riesci a capire perchè non funziona?

    mi da errore:

    codice:
    Microsoft VBScript runtime error '800a01a8'
    
    Object required: '[string: "null"]'
    
    /manager/memberfunc/JSON_2.0.4.asp, line 262
    e la riga 242 è proprio questa:
    codice:
    	Function parseJSON(val)
    242--->	set parseJSON = (new jsCore).parseJSON(val)
    	End Function
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

  6. #6
    se non funziona vuol dire che c'è qualcosa che non va

  7. #7
    certo. Supponevo

    ti ho segnato meglio che errore e dove. io non l'ho capito
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

  8. #8
    set parseJSON = (new jsCore).parseJSON(val)

    non è asp

  9. #9
    che stupido... ora forse va...
    ti tengo informato
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

  10. #10
    e che cosa è?

    comunque pare che vada... sicuro che non è asp?

    ora mi da errore da altre parti... non in quel codice

    cerco di capire bene il nuovo problema e se non ne vengo a capo lo riposto.

    grazie comunque optime
    Rey
    La vita è un panaro, non sai mai quello che ti esce!
    photorealistic 3D rendering and animations and WEB Design

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.