asp 操作 json

最新推荐文章于 2024-08-25 11:11:39 发布

diaobingdao6816

最新推荐文章于 2024-08-25 11:11:39 发布

阅读量121

点赞数

CC 4.0 BY-SA版权

文章标签： json javascript ViewUI

原文链接：http://www.cnblogs.com/lykouyi/p/5799384.html

<%

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

%>