相关资源:JSON.asp(http://www.webdevbros.net/2007/04/26/generate-json-from-asp-datatypes/)
使用示例:
<%@ Language="VBScript" %>
<!--#include file="json.asp" -->
<%
class JsonObject
dim dic
public sub class_initialize()
set dic = server.createObject("scripting.dictionary")
end sub
public sub addProp(name, val)
dic.add name, val
end sub
public function reflect()
set reflect = dic
end function
end class
set laodeng = new JsonObject
laodeng.addProp "Name", "laodeng"
laodeng.addProp "Age", 35
set bb1 = new JsonObject
bb1.addProp "Name", "weiqing"
set bb2 = new JsonObject
bb2.addProp "Name", "meiqi"
laodeng.addProp "bb", array(bb1, bb2)
j = (new JSON)(Empty, laodeng, false)
response.Write j
%>
JSON.asp下载:json151.zip (3.74 kb)