ASP生成JSON数据

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="json.asp"-->

<!--#include file="inc/Conn.asp" -->

<%

response.ContentType="text/json"

dim j



'多重嵌套的JSON,要使用Dictionary才能实现

set j=new json

j.toResponse=false

set r=server.createobject("scripting.dictionary")

set b=server.createobject("scripting.dictionary")

set c=server.createobject("scripting.dictionary")

c.add "x",5

c.add "y",6

c.add "z",11

b.add "event","Mouse Click"

b.add "data",c

r.add "success",true

r.add "result",b

a=j.toJSON(empty,r,false)

response.write a



'记录集转为Json

set i=new json

i.toresponse=false

set rs=server.CreateObject("adodb.recordset")

sqlstr="select top 5 * from producttype"

rs.open sqlstr,conn,0,1

v=i.toJson("result",rs,false)

rs.close

response.write v

%>

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值