ASP 处理JSON数据的实现代码

今天看网页才发现了ASP也能处理JSON数据?呵呵，刚才论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的，之前一聚教程网小编也发过类似的文章都可以看下

ASP也能处理JSON数据?呵呵，刚才在Pjblog论坛上看到一个兄弟写的文章，没有测试，不过理论上一定是可以的~ 太晚了，不测试了。

以前处理JSON太麻烦了，输出还好说，循环一下就可以了，解析真的很头疼。所以遇到 这种问题API问题，一般都是XML处理，不太喜欢，很麻烦。

<%Dim sc4Json Sub InitScriptControlSet sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")sc4Json.Language = "JavaScript"sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"End SubFunction getJSONObject(strJSON)sc4Json.AddCode "var jsonObject = " & strJSONSet getJSONObject = sc4Json.CodeObject.jsonObjectEnd FunctionSub getJSArrayItem(objDest,objJSArray,index)On Error Resume Nextsc4Json.Run "getJSArray",objJSArray, indexSet objDest = sc4Json.CodeObject.itemTempIf Err.number=0 Then Exit SubobjDest = sc4Json.CodeObject.itemTempEnd Sub Dim strTeststrTest = "{name:""alonely"", age:24, email:[""[email protected]"",""[email protected]""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"Dim objTestCall InitScriptControlSet objTest = getJSONObject(strTest)%><%=objTest.name%>的邮件地址是< %=sc4Json.Eval("jsonObject.email[0]")%><br />共有邮件地址< %=objTest.email.length%>个<br /><%Dim fathergetJSArrayItem father, objTest.family.parents, 0Response.Write father%>

更多相关ASP 处理JSON的文章可以继续往下看