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

依从类推