ASP 解析json

来源：互联网添加时间：2021/10/26 23:14:49

第一个方法是使用 JScript ,第二个方法是使用MS的脚本控件（也一样是使用了 JScript）：

第一个方法是使用 JScript ：

<br><br><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 />"
%>

第二个方法是使用MS的脚本控件（也一样是使用了 JScript）：

Dim scriptCtrl 
    Function parseJSON(str) 
        If Not IsObject(scriptCtrl) Then 
            Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl") 
            scriptCtrl.Language = "JScript" 
            scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;" 
        End If 
        scriptCtrl.ExecuteStatement "result = " & str & ";" 
        Set parseJSON = scriptCtrl.CodeObject.result 
    End Function 
        
    Dim json 
    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 
        
    Set scriptCtrl = Nothing

上一篇：AS3 keycode对照表
下一篇：网站/软件所用的域名和空间介绍