[AS3]ASP处理解析JSON数据格式的示例

[AS3]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%>的邮件地址是<%=sc4Json.Eval("jsonObject.email[0]")%><BR>共有邮件地址<%=objTest.email.length%>个<BR>    
<%    
Dim father    
getJSArrayItem father, objTest.family.parents, 0    
Response.Write father    
%>