国产探花免费观看_亚洲丰满少妇自慰呻吟_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教程頻道。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 卢氏县| 抚宁县| 清涧县| 景泰县| 泉州市| 罗源县| 台东县| 三原县| 龙江县| 望谟县| 刚察县| 石林| 从化市| 噶尔县| 东港市| 凌源市| 汉源县| 苗栗县| 元江| 如皋市| 灵山县| 巴林右旗| 明溪县| 呼伦贝尔市| 宾川县| 永吉县| 汝阳县| 桑日县| 泰和县| 和林格尔县| 武冈市| 抚顺市| 双辽市| 土默特左旗| 嘉善县| 东乌珠穆沁旗| 巴林左旗| 汉寿县| 南川市| 温泉县| 泽普县|