ASP 处理JSON数据的实现代码
导读:收集整理的这篇文章主要介绍了ASP 处理JSON数据的实现代码,觉得挺不错的,现在分享给大家,也给大家做个参考。 ASP也能处理JSON数据?呵呵,刚才在Pjblog论坛上看到一个兄弟写...
收集整理的这篇文章主要介绍了ASP 处理JSON数据的实现代码,觉得挺不错的,现在分享给大家,也给大家做个参考。 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的文章可以继续往下看
您可能感兴趣的文章:- 利用JavaScript将Excel转换为JSON示例代码
- Python爬取数据保存为Json格式的代码示例
- C#网络请求与JSON解析的示例代码
- 基于Koa(nodejs框架)对json文件进行增删改查的示例代码
- JS中的JSON对象的定义和取值实现代码
- js循环map 获取所有的key和value的实现代码(json)
- Delphi中使用ISuperObject解析Json数据的实现代码
- 七行JSON代码把你的网站变成移动应用过程详解
声明:本文内容由网友自发贡献,本站不承担相应法律责任。对本内容有异议或投诉,请联系2913721942#qq.com核实处理,我们将尽快回复您,谢谢合作!
若转载请注明出处: ASP 处理JSON数据的实现代码
本文地址: https://pptw.com/jishu/604387.html