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的文章可以继续往下看