前段時間開始學習JSON在ASP的使用,JSON確實比XML方便。以前在寫程式的時候有考慮使用XML來儲存數據,但一直覺得產生文件及文件的呼叫查詢等都很麻煩。而且要使用某個節點的時候要好好的分析,節點的路徑一級級的定位。而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.vevb.com
CNodeJson(SiteList)(CSDN)=http://hi.csdn.net/lingyun410
Set CNodeJson=Nothing