国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP 處理JSON數據的實現代碼

2024-05-04 11:10:17
字體:
來源:轉載
供稿:網友

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:[""ycplxl1314@163.com"",""ycplxl1314@gmail.com""], 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的文章可以繼續往下看


注:相關教程知識閱讀請移步到ASP教程頻道。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 拉萨市| 德阳市| 双桥区| 洛川县| 江达县| 句容市| 石首市| 景德镇市| 孟村| 和龙市| 巩留县| 仲巴县| 兴仁县| 乐安县| 怀安县| 辰溪县| 永康市| 鄂托克前旗| 云安县| 泰顺县| 南开区| 莲花县| 凌源市| 麻栗坡县| 定襄县| 高阳县| 台山市| 广南县| 台北市| 二连浩特市| 永仁县| 凤冈县| 宜州市| 高安市| 搜索| 鹤山市| 临城县| 灵川县| 内黄县| 卢湾区| 运城市|