asp如何解析json字符串并转化为asp对象

本文介绍如何使用asp解析json字符串，大家都知道asp对json的处理没有php那么简单，也没有键值对数组，这可能也是它最终被php取代的直接原因。

下面代码经本人测试可用，

代码如下：

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

本文由编程之家提供，

文章地址：http://www.jb51.cc/csharp-article-377133.html

学编程就来编程之家 www.jb51.cc