签到送积分,分享赚积分,用积分免费下载全站资源
提示:资源共享网(www.08i8.com)技术文章资源《asp解析JSON格式数据方法函数》仅供研究学习请勿商用!

有了这个函数可以直接把json 解析为对像


<%
    Dim scriptCtrl  
    Function parseJSON(str)  
        If Not ISObject(scriptCtrl) Then  
            Set scriptCtrl = SERVER.CreateObject("MSScriptControl.ScriptControl")  
            scriptCtrl.Language = "JScript"  
            scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"  
        End If  
        scriptCtrl.executeStatement "result = " & str & ";"  
        Set parseJSON = scriptCtrl.CodeObject.result  
    End Function  
 
    Dim json  
    json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"  
    Set obj = parseJSON(json) 
    Response.Write "JSON原文为:<br>"  
    Response.Write json
    Response.Write "<hr>"
    Response.Write "a=" & obj.a & "<br />"  
    Response.Write "b=" & obj.b.name & "<br />"  
    Response.Write "c.length=" & obj.c.length & "<br />"  
    Response.Write "c.get(0)=" & obj.c.get(0) & "<br />"  
    Set obj = Nothing  
%>



本页网址:https://www.08i8.com/course/detail264.html


评论(0条)

请登录后评论
ziyuan

ziyuan Rank: 16

0

0

0

( 此人很懒并没有留下什么~~ )

首页

栏目

搜索

会员