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

%>