怎么读取这段Json

天上地下 · 发表于 2015-12-28 23:07:37

{"role":"\u65b0\u624b05580425","level":"3","accountId":"500666114","account":"xiaoshenyang","gold":{"node":{"3":2800}},"status":"0","msg":"\u6210\u529f\u65e0\u4fe1\u606f"}500666114

目前需要读取gold里的node中的2800数据。

我使用以下的代码来解析Json，但无法进一步读取我需要的node的数值。

Dim scriptCtrl
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
scriptCtrl.Language = "JScript"
scriptCtrl.AddCode "function ActiveXObject() {}" ' 覆盖 ActiveXObject
scriptCtrl.AddCode "function GetObject() {}" ' 覆盖 ActiveXObject
scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
End If
On Error Resume Next
scriptCtrl.ExecuteStatement "result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
If Err Then
Err.Clear
Set parseJSON = Nothing
End If
End Function

复制代码

请教各们高手帮助解答一下。

谢谢。

天上地下 · 发表于 2015-12-28 23:09:13

set odj = parseJSON(gamgeJson)
WriteA odj.accountId & "<br />"

外层的数据都可以正常读取，就是不知道怎么读取gold里的node中的2800数值。

xuanxiao · 发表于 2015-12-28 23:11:32

set odj = parseJSON(gamgeJson)
WriteA odj.accountId & ""

外层的数据都可以正常读取，就是不知道怎么 ...
天上地下发表于 2015-12-28 23:09

很晚了，明天看下答复你

密山人 · 发表于 2016-1-7 08:37:25

Rapid D3.js

xuanxiao · 发表于 2016-2-5 00:26:54

Rapid D3.js
密山人发表于 2016-1-7 08:37

http://www.ttasp.net/article/2/11/201411/216.html 参考下

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[问与答] 怎么读取这段Json

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[问与答] 怎么读取这段Json

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)