HOME
BBS
深山帮帮欢迎您,您可以注册或者
qq登录只需一步,快速开始
深山旅行社网站管理系统开发完成,欢迎各位网友测试! 点这里测试
565449214 给站长留言
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

ASP读取json并输出

 2015-9-20 11:01:26  字体:  浏览 1566 我要评论
<%
Dim scriptCtrl ‘这个dim很重要一定要加,如果不加会输出不正常,切记
Function parseJSON(str)
If Not IsObject(scriptCtrl) Then
Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
scriptCtrl.Language = "JScript"
scriptCtrl.AddCode "function ActiveXObject() {}" ′ 覆盖 ActiveXObject
scriptCtrl.AddCode "function GetObject() {}" ′ 覆盖 ActiveXObject
scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x];}; var result = null;"
End If
  On Error Resume Next
scriptCtrl.ExecuteStatement "result = " & str & ";"
Set parseJSON = scriptCtrl.CodeObject.result
  If Err Then
Err.Clear
Set parseJSON = Nothing
  End If
End Function
 
Dim json
json = "{a:""a的值"", b:{ name:""b的值"", value:""text"" }, c:[""C1的值"", ""C2的值"", ""C3的值""]}"
 
Set obj = parseJSON(json)
 
Response.Write obj.a & "<br />"
Response.Write obj.b.name & "<br />"
Response.Write "c有"&obj.c.length&"个值" & "<br />"
for i=0 to obj.c.length-1
Response.Write obj.c.get(i) & "<br />"
next

%>

输出的结果是:

a的值
b的值
c有3个值
C1的值
C2的值
C3的值
Ads loading...
相关阅读
( 2016-8-22 8:56:32 )ASP连接各种数据库的方法
( 2016-8-15 19:04:22 )asp获得系统Unix时间戳与将Unix时间戳转为正常日期
( 2016-8-2 21:57:20 )关于SQL2008 “不允许保存更改。您所做的更改要求删除并重新创建以下表。您对无法重新创建的标进行了更改或者启用了‘阻止保存要求重新创建表的更改’” 解决方案
( 2016-6-16 11:49:35 )access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
( 2016-6-7 15:48:25 )asp中最难发现的错误由最简单的程序引起
( 2016-3-12 14:58:19 )Asp得到当月天数的函数方法
( 2015-12-11 22:28:01 )在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
( 2015-10-22 17:42:13 )深山旅行社网站管理系统5.0发布
共有0条关于《ASP读取json并输出》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
httpd.ini中的RewriteRule、RewriteCond规则了解以有二级域名解析实例
httpd.ini一些参数说明
Ads loading...
更多>>最新添加文章
ASP连接各种数据库的方法
asp获得系统Unix时间戳与将Unix时间戳转为正常日期
关于SQL2008 “不允许保存更改。您所做的更改要求删除并重新创建以下表。您对无法重新创建的标进行了更改或者启用了‘阻止保存要求重新创建表的更改’” 解决方案
access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
asp中最难发现的错误由最简单的程序引起
Asp得到当月天数的函数方法
在服务器上新建网站,在服务器用域名能访问,但是外网访问不了的解决办法
深山旅行社网站管理系统5.0发布
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
控制背景色
UL与LI 标签详解
留言板留言板V7.0
对MD5加密方式使用者的建议
div默认高度根据内容自动适应高度
Dreamweaver在onLoad运行_onOpen.htm时,发生了以下javascript错误
13种样式检测QQ是否在线的代码
在DIV+CSS里面IE5.5的专用标签
Ads loading...