暗淡？scriptCtrl
功能？帕西遜
如果？不是嗎？IsObject(scriptCtrl)？然後
設置？scriptCtrl =服務器。CreateObject("MSScriptControl。ScriptControl”)
scriptCtrl。Language="JScript "
scriptCtrl。AddCode？" array . prototype . get = function(x){ return？這個[x]；};var？結果= null"
結束？如果
scriptCtrl。execute語句？“結果=？& amp？json？& amp？";"
設置？parseJSON=scriptCtrl。代碼對象.結果
結束？功能
功能？chkJSON(s)
scriptCtrl。execute語句？“var？sxcz=(結果& amp& amp什麽類型？result=='object ')？('"?& amp？s？& amp?"？在？結果):假；"
chkJSON=scriptCtrl。CodeObject.sxcz
結束？功能
% & gt第壹個函數parseJSON用於將JSON字符串解析成對象，用法如下:
& lt%
JSON = " { XXX:111，yyy:{zzz:222，aaa:'abc '，zzz:'qwe'}，qqq:[{sss:123，rrr:456}，{sss:333，rrr:678}]} "
設置？objJSON=parseJSON(JSON)
回應。寫？objJSON.xxx？& amp？“& ltbr >；
回應。寫？objJSON.yyy.aaa？& amp？“& ltbr >；
回應。寫？objJSON.qqq(0)。sss？& amp？“& ltbr >；
% & gt第二個函數chkJSON用於檢測JSON中是否存在壹個屬性。因為VBScript和JScript中的對象是有區別的，所以在VBScript中直接使用對象中不存在的屬性(JScript沒有)會是錯誤的，所以如果妳不確定壹個屬性在JSON中是否存在，最好先用這個函數檢查壹下。註意，必須先使用第壹個函數，才能使用這個函數！用法如下:
& lt%
如果？chkJSON(“嗯”)？然後呢？回應。寫？objJSON嗯
% & gt