而且要使用某個節點的時候要好好的分析,節點的路徑一級級的定位。而JSON最大的好處就是,在使用時候可以只需要將資料字串聲明為一個對象,就可以很方便的調用對象中的各成員。也方便在用戶端使用Javascript直接調用程式端產生的資料字串。
使用ASP的人都知道,ASP可以使用兩種類型的指令碼引擎,那就是VBSCRIPT和JSCRIPT。偶當初學習的時候就根本不知道JSCRIPT,如果知道的話我想我現在就沒有必要這麼麻煩的將JSON資料使用JSCRIPT轉換後,才能在VBSCRIPT中使用。還好兩種指令碼引擎各有各的優缺點,而我已經使用VBSCRIPT工作了兩年多了,雖然談不上強,但也已經習慣了這裡面的一些使用方法,形成了自己的代碼輸出規範。
JSON官方寫的類檔案挺方便的,可以很靈活的定義輸出自己想要的JSON資料格式。我將官方的類檔案給整理了一下,算是調整成自己覺得挺方便的一種格式吧!
偶調整後的JSON類檔案,代碼檔案地址:
ASP Json類檔案原始碼
代碼使用執行個體:
1.建立一個JSON對象
複製代碼 代碼如下:
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否對象名稱加引號
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson=Nothing
2.在對象中再建立一個對象
複製代碼 代碼如下:
Set CNodeJson=New Json_Cls
CNodeJson.QuotedVars=false '是否對象名稱加引號
CNodeJson("ID")=1
CNodeJson("Name")="Cloud.L"
CNodeJson("BlogName")="Cloud.L Blog"
Set CNodeJson("SiteList")=New Json_Cls
CNodeJson("SiteList")("Blog")="http://www.jb51.net"
CNodeJson("SiteList")("CSDN")="http://hi.csdn.net/lingyun410"
Set CNodeJson=Nothing