ASP解析JSON(对象:MSScriptControl.ScriptContro)

<%
Function ASPJieXiJSON(str)
	Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")'创建对象
	scriptCtrl.Language = "JScript"
	scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
    scriptCtrl.ExecuteStatement "result = " & str & ";"
    Set ASPJieXiJSON = scriptCtrl.CodeObject.result
End Function
jsonstr= "{a:""aaa"", b:{ ""B2"":""bb"", C:""CCCCC"" }, D:[""D01"", ""D02"", ""D03""]}"
Set JsonSC= ASPJieXiJSON(jsonstr)
Response.Write JsonSC.a & "<br />"
Response.Write JsonSC.b.B2 & "<br />"
Response.Write JsonSC.c& "<br />"
Response.Write JsonSC.D& "<br />"
Set obj = Nothing
Set scriptCtrl = Nothing
%>

优点：简单
缺点：不太安全