asp如何解析json字符串并转化为asp对象

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

Set obj = Nothing

Set scriptCtrl = Nothing