ASP( VBScript ) 解析 JSON

<script language="jscript" runat="server">

Array.prototype.get = function(x) { return this[x]; };

function parseJSON(strJSON) { return eval("(" + strJSON + ")"); }

</script>

<%

Dim json, obj

json = "{a:""aaa"", b:{ name:""bb"", value:""text"" }, c:[""item0"", ""item1"", ""item2""]}"

Set obj = parseJSON(json)

Response.Write obj.a & "<br />"

Response.Write obj.b.name & "<br />"

Response.Write obj.c.length & "<br />"

Response.Write obj.c.get(0) & "<br />"

Set obj = Nothing

%>

<script language="JScript" runat="Server">

function ToObject(json) {
var o;
eval("o=" + json);
return o;
}
</script>
<%
set obj1 = ToObject("{aaa:""aaaa"", bbb: ""bbbb""}")
Response.Write obj1.aaa & "<br />"
%>