ASP 处理JSON数据的实现代码
ASP也能处理JSON数据?呵呵，刚才在Pjblog论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的~太晚了，不测试了。
以前处理JSON太麻烦了，输出还好说，循环一下就可以了，解析真的很头疼。所以遇到这种问题API问题，一般都是XML处理，不太喜欢，很麻烦。
<%
Dimsc4Json
SubInitScriptControl
Setsc4Json=Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language="JavaScript"
sc4Json.AddCode"varitemTemp=null;functiongetJSArray(arr,index){itemTemp=arr[index];}"
EndSub
FunctiongetJSONObject(strJSON)
sc4Json.AddCode"varjsonObject="&strJSON
SetgetJSONObject=sc4Json.CodeObject.jsonObject
EndFunction
SubgetJSArrayItem(objDest,objJSArray,index)
OnErrorResumeNext
sc4Json.Run"getJSArray",objJSArray,index
SetobjDest=sc4Json.CodeObject.itemTemp
IfErr.number=0ThenExitSub
objDest=sc4Json.CodeObject.itemTemp
EndSub
DimstrTest
strTest="{name:""alonely"",age:24,email:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""],family:{parents:[""父亲"",""母亲""],toString:function(){return""家庭成员"";}}}"
DimobjTest
CallInitScriptControl
SetobjTest=getJSONObject(strTest)
%>
<%=objTest.name%>的邮件地址是<%=sc4Json.Eval("jsonObject.email[0]")%>
共有邮件地址<%=objTest.email.length%>个
<%
Dimfather
getJSArrayItemfather,objTest.family.parents,0
Response.Writefather
%>
更多相关ASP处理JSON的文章可以继续往下看