使用 VBS 开发 ASP 处理 JSON 时有这些不便：
1、VBS 没有处理 JSON 的方法，并且常见的用 eval 方式很不安全。
2、拼接 JSON 字符串很麻烦。

于是将论坛用的 json 处理方法略加修改以便仍在使用 vbs 开发的同学使用。
1、下载 json.zip(1.24Kb)，解压到网站目录。
2、需要使用 JSON 的页面加入如下代码：

<script src="json.js" runat="server"></script>

然后就能愉快的使用 JSON 了。例如：

<%
str = "{""hello"", ""Hello World"", ""arr"": [ 111, 222 ]}"
Set Json = fromjson(str)
Response.Write Json.hello    ' 输出 Hello World
Response.Write Json.arr.item(0)    ' 输出 111
%>

对于 JS 的数组类型，可以使用 对象.item(index) 访问数组索引

如果需要输出数据库的内容，写法应该是：

Set Rows = jsArr()

While Not Rs.EOF
    Rows.push(jsObj("ID", Rs("ID").Value, "Nick", Rs("Nick").Value))
    Rs.moveNext
Wend

Response.Write jsObj("code", 0, "data", Rows)