網路上有很多類似的文章但只解析出第一層，後面的死活試了大半天才測試出來，下面貼上我的程式碼，解釋一下，也算對我做的東西留個備份
這是本人寫的第一篇文章，其實網路上有很多類似的文章，我剛開始也是照著網路上的文章來做的實驗。
但他的文章中的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這一項裡面的資料不知道怎麼拿。
現在知道了，希望可以幫助別人。