用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 劳动节 12
2021年 端午节 56
2022年 元 旦 257
2022年 春 节 288
 
  • 您现在的位置:首页 >> ASP >> 内容

    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

    %>

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


    发布日期:2021/3/3 发布时间:15:59:35 点击:359 录入:齐天大圣
  • 上一篇:asp下将数据库中的信息存储至XML文件中
  • 下一篇:ASP中SELECT下拉菜单同时获取VALUE和TE
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.01 Build 21.03.31(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021