convertire una stringa JSON in un JSON object

[reybluk]

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 è:

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

[optime]

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

[reybluk]

ecco la stringa che mi arriva:

[{"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

[optime]

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

[reybluk]

no, non ho trovato eccetto questo ma non funziona:

	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:

Function parseJSON(val)
	set parseJSON = (new jsCore).parseJSON(val)
End Function

riesci a capire perchè non funziona?

mi da errore:

Microsoft VBScript runtime error '800a01a8'

Object required: '[string: "null"]'

/manager/memberfunc/JSON_2.0.4.asp, line 262

e la riga 242 è proprio questa:

	Function parseJSON(val)
242--->	set parseJSON = (new jsCore).parseJSON(val)
	End Function

[optime]

se non funziona vuol dire che c'è qualcosa che non va

[reybluk]

certo. Supponevo

ti ho segnato meglio che errore e dove. io non l'ho capito

[optime]

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

non è asp

[reybluk]

che stupido... ora forse va...
ti tengo informato

[reybluk]

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