首先是asp解析json

在服务器上运行jscript ? 注意在服务器上运行js时最好是在iis服务器下 因为其它的服务(一些简易服务器)是不支持在服务端运行js的，  

<script language="JScript" runat="Server">
function toObject(json) {
    eval("var o=" + json);
    return o;
}
</script>
<%

Dim json
json = "{'uid':'1','username':'abc','email':'123@163.com'}"
Set json = toObject(json)

Response.Write json.uid & "<br/>"
Response.Write json.username & "<br />"
Response.Write json.email & "<br />"
Set json = Nothing
%>

下面还有一个方法，现在网上已经有啦第三方的asp类库，很强大可以直接拿过来使用 下面是测试的结果,并且有所有代码的压缩包

<!--#include file="JSON_2.0.4.asp"-->
数字--><%=toJSON(30)%><hr>
时间--><%=toJSON(now())%><hr>
数组--><%=toJSON(array(30,"Clove",Now()))%><hr>
匿名一维数组--><%
Set a = jsArray()
a(Null) = 2
a(Null) = 4
a(Null) = 6
a(Null) = 8
a.Flush
%><hr>
匿名一维数组转换为json对象-->
				<%
                a.Kind = JSON_OBJECT
                a.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_ARRAY
                o.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) = 0
                a(Null)(Null) = 2
                a(Null)(Null) = 4
                a(Null)(Null) = 6
                Set a(Null) = jsArray()
                a(Null)(Null) = 1
                a(Null)(Null) = 3
                a(Null)(Null) = 5
                a(Null)(Null) = 7
                a.Flush%><hr>
混合使用-->
				<%
                Set a = jsArray()
                Sub AddMember(name, surname)
                        Set a(Null) = jsObject()
                        a(Null)("name") = name
                        a(Null)("type") = surname
                End Sub
                AddMember "Clove", "Human"
                AddMember "30c.org", "website"
                a.Flush
                %>

  下面是运行后的效果图 AspJSONTest.rar?解压密码 ?www.zhaokeli.com