ASP生成JSON数据

admin

原文地址为： 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

% >

 

面要注意的是:

1,嵌套的JSON是要用DICTIONARY来生成的,其他的方法,我还没有找到

2,最终的结果在输出时,可以用toJson(empty,r,false)这种形式,这样,生成的JSON,就不会类似{var:{var1:'',var2:''}}这种形式,而是直接的:{var1:'',var2:''},这种格式在我们用来处理表单,返回数据时,一定要注意

3,生成JSON的ASP页面,输出格式,解析JSON的JS文件,HTML页面,必须全是UTF-8格式编码,一个环节编码不正确,就会导致接收到的JSON在显示中文时变乱码

转载请注明本文地址： ASP生成JSON数据

来源：https://blog.csdn.net/wangchaoqi1985/article/details/82820388
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！