第一个方法是使用 JScript ： <%  Dim json, obj  json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"  Set obj = parseJSON(json)     Response.Write obj.a & "
"  Response.Write obj.b.name & "
"  Response.Write obj.c.length & "
"  Response.Write obj.c.get(0) & "
"     Set obj = Nothing  %><%set obj1 = ToObject("{aaa:""aaaa"", bbb: ""bbbb""}")Response.Write obj1.aaa & "
"%>

　　

第二个方法是使用MS的脚本控件（也一样是使用了 JScript）：

 

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 & "
"      Response.Write obj.b.name & "
"      Response.Write obj.c.length & "
"      Response.Write obj.c.get(0) & "
"             Set obj = Nothing             Set scriptCtrl = Nothing