您所在的位置:小祥子 » 编程 » ASP » 正文

ASP解析JSON数据函数实例代码

时间:2015-02-18 编辑:本站 来源:本站原创

今天大年三十,首先祝大家新年快乐!但我相信应该不会有人在我发布后就立刻会看到。

今天研究JSON数据,一个示例代码就知道怎么操作了,函数类都在这里。

有些接口需要POST数据,等下再来一篇POST数据的函数。

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 />"

关键词:ASP JS 数据 代码 JSON