<%
Dim json, obj
json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"
Set obj = parseJSON(json)
Response.Write "原JSON字符串是：<br>"
Response.Write json
Response.Write "<hr>"
Response.Write "a=" & obj.a & "<br />" '结果是aaa
Response.Write "b=" & obj.b.name & "<br />" '结果是bb
Response.Write "c.length=" & obj.c.length & "<br />" '结果是3
Response.Write "c.get(0)=" & obj.c.get(0) & "<br />" '结果是item0
Set obj = Nothing
%>
<script language="jscript" runat="server">
Array.prototype.get = function(x) {
return this[x];
};
function parseJSON(strJSON) {
return eval("(" + strJSON + ")");
}
</script>
