ASP JSON解析函数,最好用的一种方法

更新时间:2020年05月08日 15:13:39
人气:128
分类: ASP
Function parseJSON(str)
		If Not IsObject(scriptCtrl) Then
		   Set scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")
		   scriptCtrl.Language = "JavaScript"
		   scriptCtrl.AddCode "function ActiveXObject() {}" ' 覆盖 ActiveXObject
		   scriptCtrl.AddCode "function GetObject() {}" ' 覆盖 ActiveXObject
		   scriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x]; }; var result = null;"
		End If
		On Error Resume Next
		scriptCtrl.ExecuteStatement "var result = " & str & ";"
		Set parseJSON = scriptCtrl.CodeObject.result
		If Err Then
		   Err.Clear
		   Set parseJSON = Nothing
		End If
	End Function

调用方法 

Set objk= parseJSON(JSON数据内容)

取[]内的元素名中的值,用get(i).name  I是指第几个节点,例如
{
    "ok": 1,
    "count": 260,
    "cards": [{
        "mod_type": "mod\/pagelist",
        "previous_cursor": "",
        "next_cursor": "",
        "card_group": [{
            "card_type": 10,
            
          取OK的值objk.ok
          
          取mod_type中的值,objk.cards.get(0).mod_type
     
      取card_type中的值     
    objk.cards.get(0).card_group.get(0).card_type

依从类推


【版权声明】

本文仅代表作者观点,不代表本站立场。本文系作者授权发表,未经许可,不得转载。

相关文章
# 在线留言