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 Sub Function getJSONObject( strJSON) sc4Json.AddCode var jsonObject = & strJSON Set getJSONObject = sc4Json.CodeObject.jsonObjectEnd 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. 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的文章可以繼續往下看