但是他的文章中的json還是挺簡單的，我按照他的方法只解析出第一層，后面的死活試了大半天才測試出來，這里還是對json格式的數據不是太熟悉，也是對asp不熟悉。下面貼上我的代碼，解釋一下，也算對我做的東西留個備份。
我的json數據，是從http接口中得到的：
復制代碼代碼如下:
{"data":{"0":{"Productinfo":{"id":"8","project_id":"111"}},"info":"22222","mac_status":1},"code":200,"message":"ok"}
我引用網站的代碼只能提示解析到第一層，關于后面剛開始沒方向，亂試了一通，沒弄出來，最后才明白json的關鍵，直接上代碼希望后別人也提個醒。
前面代碼我就不截了，直接把最重要的貼出來
dim objtest
Call InitScriptControl
Set objtest = getJSONObject(status)
dim productinfo
getJSArrayItem productinfo, objtest.data, 0
就是以前data這一項里面的數據不知道怎么拿。
現在知道了，希望可以幫助別人。
