asp json 调用2.0.3

<%@ codepage="65001" %><%'************************************'*Author:Clove'*Desc:TestAspJSON'*CodePage:UTF8'*Date:2012-04-09'*WebSite:30c.org'************************************%><!--#include file="JSON_2.0.4.asp"--><meta http-equiv="Content-Type" content="text/html; charset=utf-8"> 数字--><%=toJSON(30)%><hr>时间--><%=toJSON(now())%><hr>数组--><%=toJSON(array(30,"Clove",Now()))%><hr>匿名一维数组--><%Set a = jsArray()a(Null) = 2a(Null) = 4a(Null) = 6a(Null) = 8a.Flush%><hr>匿名一维数组转换为json对象--><%a.Kind = JSON_OBJECTa.Flush%><hr>json对象--><%Set o = jsObject()o("name") = "30c"o("name") = o("name") & ".org"o("surname") = "clove"o("lucky_numbers") = Array(1,2,6,7,9)o("sample_date") = #2012-4-8#o(Null) = "China"o.Flush%><hr>json对象转换为数组--><%o.Kind = JSON_ARRAYo.Flush%><hr>多层对象--><%Set o = jsObject()Set o("person") = jsObject()o("person")("name") = "30c"o("person")("surname") = "Clove"Set o("equipment") = jsObject()o("equipment")("name") = "网站"o("equipment")("type") = "教育"o("equipment")("buy_date") = #2011-7-16#o.Flush%><hr>多维数组--><%Set a = jsArray()Set a(Null) = jsArray()a(Null)(Null) = 0a(Null)(Null) = 2a(Null)(Null) = 4a(Null)(Null) = 6Set a(Null) = jsArray()a(Null)(Null) = 1a(Null)(Null) = 3a(Null)(Null) = 5a(Null)(Null) = 7a.Flush%><hr>混合使用--><%Set a = jsArray()Sub AddMember(name, surname)        Set a(Null) = jsObject()        a(Null)("name") = name        a(Null)("type") = surnameEnd SubAddMember "Clove", "Human"AddMember "30c.org", "website"a.Flush%><hr>