Question

这种json格的代码用ASP怎么解析，请高手解答！

{"trades_sold_get_response":{"trades":{"trade":[{"adjust_fee":"0.00","buyer_nick":"测","orders":{"order":[{"adjust_fee":"0.00","buyer_rate":false}]},"pay_time":"2012-04-01 15:01:33","payment":"69.00"}]},"total_results":1}}

Answer 1

Dim scriptCtrl
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
scriptCtrl.Language = "JScript"
scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
End If
scriptCtrl.ExecuteStatement "result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
End Function

' Dim json
'json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"

'Set obj = parseJSON(json)

'Response.Write obj.a & "<br />"
'Response.Write obj.b.name & "<br />"
'Response.Write obj.c.length & "<br />"
'Response.Write obj.c.get(0) & "<br />"

Answer 2

ASP不只可以用VBScript的,也可以用JScript作为脚本语言的,所以如果你用JS引擎可以直接解析,或者在VBScript中通过MSScriptControl.ScriptControl对象也是可以调用JS引擎来解析JSON的.
在网上还能找到 VBS JSON 的源码类,也可用于VBS操作JSON, 你可以百度一下.

Answer 3

我刚刚也接触你这个问题，网上的解决答案即楼下调用微软JSCRIPT对象。

不过我进入了另一个误区。以为
{"trades_sold_get_response":{"trades":{"trade":[{"adjust_fee":"0.00","buyer_nick":"测","orders":{"order":[{"adjust_fee":"0.00","buyer_rate":false}]},"pay_time":"2012-04-01 15:01:33","payment":"69.00"}]},"total_results":1}}
和
{trades_sold_get_response:{trades:{trade:[{adjust_fee:"0.00",buyer_nick:"测",orders:{order:[{adjust_fee:"0.00",buyer_rate:false}]},pay_time:"2012-04-01 15:01:33",payment:"69.00"}]},total_results:1}}
不同。

后来证实，JSCRIPT处理这两种格式并没问题。我将另外一个问题（微信验证的一次性CODE失效）张冠李戴到JSCRIPT处理JSON数据上了。