简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
  •  
    您现在的位置:首页 >> ASP >> 内容

    ASP 处理JSON数据的实现代码

    内容摘要:%Dim sc4JsonSub InitScriptControlSet sc4Json = Server.CreateObject('MSScriptControl.ScriptControl') sc4Json.Language = 'JavaScript' sc4Json.AddCode 'var itemTemp=null;function getJ......

      <%

    Dim sc4Json

    Sub InitScriptControl

    Set 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.jsonObject

    End 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.itemTemp

    End Sub


    Dim strTest

    strTest = "{name:""alonely"", age:24, email:[""[email protected]"",""[email protected]""], family:{parents:[""父亲"",""母亲""],toString:function(){return ""家庭成员"";}}}"

    Dim objTest

    Call InitScriptControl

    Set objTest = getJSONObject(strTest)

    %>

    <%=objTest.name%>的邮件地址是< %=sc4Json.Eval("jsonObject.email[0]")%><br />共有邮件地址< %=objTest.email.length%>个<br />

    <%

    Dim father

    getJSArrayItem father, objTest.family.parents, 0

    Response.Write father

    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2019/8/21 发布时间:17:12:20 点击:2653 
  • 上一篇:取得指定驱动器的文件系统信息
  • 下一篇:asp 随机字符串函数
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2020

    本空间由景安网络提供,百度云加速提供加速防护
    YiJiaCMS V3.31 Build 20.6.5(MSSQL) 闽ICP备05000814号-1