asp 操作 json

<%

Dim sc4Json

Sub InitScriptControl

Set sc4Json =
Server.CreateObject("MSScriptControl.ScriptControl")

    sc4Json.Language
= "JavaScript"

    sc4Json.AddCode
"var itemTemp=null;function getJSArray(arr,
index){itemTemp=arr[index];}"

End Sub



Function getJSONObject(strJSON)

    sc4Json.AddCode
"var jsonObject = " & strJSON

    Set
getJSONObject = sc4Json.CodeObject.jsonObject

End Function



Sub getJSArrayItem(objDest,objJSArray,index)

    On
Error Resume Next

    sc4Json.Run
"getJSArray",objJSArray, index

    Set
objDest = sc4Json.CodeObject.itemTemp

    If
Err.number=0 Then Exit Sub

    objDest
= sc4Json.CodeObject.itemTemp

End Sub



Dim strTest

strTest = "{name:""alonely"", age:24,
email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""],
family:{parents:[""父亲"",""母亲""],toString:function(){return
""家庭成员"";}}}"

Dim objTest

Call InitScriptControl

Set objTest = getJSONObject(strTest)

%>

<%=objTest.name%&
gt;的邮件地址是<%=sc4Json.eval_r("jsonObject.email[0]")%><BR>共有邮件地址&
lt;%=objTest.email.length%>个<BR>


<%

Dim father

getJSArrayItem father, objTest.family.parents, 0

Response.Write father

%>