不积跬步,无以至千里;不积小流,无以成江海。

Dean's blog

  • Join Us on Facebook!
  • Follow Us on Twitter!
  • LinkedIn
  • Subcribe to Our RSS Feed

将ASP对象转换为JSON字符串

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

 

不允许评论
粤ICP备17049187号-1