Asp 这个老古懂估计没几个人在用了。几年没写代码了，最近要弄个小东西，给手机端提供json数据，不想麻烦别人，自己又只会asp，没办法就自己动手了。网上找了好久都没有一个人能完整的把asp操作json说清楚。最后还是自己搞定的。整出来共享给大家。（ps,还有个原因csdn的分不够用啦，大家看着给点吧。写这个说明文档都用了我两小时。^_^）
以下是示例代码
'说明：json.asp中引用了json.js.asp
'其他见文档
'手机很多时候不认gb2312，跳入json的坑就忘记gb2312吧,讨厌的是，如果代码报错，iis会输出gb2312，结果就是乱码，有点烦。
'自己想办法解决吧
response.Charset= "utf-8"
dim strJsonData,ovbJson,j
dim arrTemp,varname ,i
set ovbJson=new vbJson
'asp recrodset和数组转json字符
arrTemp=array("a","{""oa"":""我是oa""}","c")
strJsonData=ovbjson.toJson(empty,arrTemp,true) '转换为Json格式的字符串，有兴趣可以自己输出看看是什么
set j=json.parse(strJsonData) '序列化为json对象（或者是数组对象）
response.Write(j.get(1)&"<p>") '别用vb数组来存json对象，不然得每个元素去重新序列化，这里如果想j.get(1).oa就不行了。必须对j.get(1)单独序列才行
'----recrodset就不演示了，懒得连数据库
'---自定义操作方法的演示---
strJsonData="{a:1,b:[{c:'我是数组中的点c'}]}"
set j=json.parsestr(strJsonData)
response.Write(j.b.get(0).c&"<p>")
'添加节点的时候注意，如果值是null，会被忽然，这个节点会不存在的。在添加之前记得先检查值
set j=json.add(j,"new","我是新加的节点")
response.Write(j.new&"<p>")
'下面这句注掉了，是因为这个操作是无效的因为j.b是数组，不能add
'set j=json.add(j.b,"new1","我是加不进的节点")
set j.b=j.b.put(j.b.length,j.b.get(0))
response.Write(j.b.get(1).c&",我是新加的数组元素<p>")
'因为数组的get方法不允许被赋值，所以不能像下面这样写
'set j.b.get(0)=json.add(j.b.get(0),"new","我会报错")
json.add j.b.get(0),"new","我是新加的new我不会报错"
json.add j.b.get(0),"new1","我是通过变量取出来的哦"
response.Write(j.b.get(0).new&"<p>")
varname="new1"
response.Write(json.byname(j.b.get(0),varname)&"<p>")
for i=0 to j.b.length-1
varname="c"
response.Write(json.byname(j.b.get(i),varname)&"我是循环出来的c，索引："&i&" <p>")
next
'最后完整的输出给手机就这样：
response.Write json.stringify(j)
- 1
- 2
前往页