Dean's blog

相关资源：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)