asp读取json数据的范例一个

已有 167 次阅读2017-1-12 16:52 |个人分类:技术日志| asp, json, post

<%

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:[""[e-mail]"",""[e-mail]""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"

Dim objTest

Call InitScriptControl

Set objTest = getJSONObject(strTest)

%>

<%=objTest.name%>的邮件地址是<%=sc4Json.eval("jsonObject.email[0]")%>共有邮件地址<%=objTest.email.length%>个

<%

Dim father

getJSArrayItem father, objTest.family.parents, 0

Response.Write father

%>