asp+|xml 用ASP+XML打造留言本
來源：www.yesky.com
一、讀者指引
讀者指引協助你掌握本文的梗概。以免你看了大半才明白這編文章不適合你，給你造成視覺汙染。
如果你正在用ASP+XML寫一些程式，或者你正在學XML那就值得一看。
閱讀本文須具備的知識，對ASP有基本的瞭解，對XML和DOM有基本瞭解，如果你不瞭解那麼你通過學習本文基本上能夠撐握ASP＋XML和DOM的應用，並能根據本文範寫出自已更進階的ASP＋XML程式。
二、基本思想
本文思想是基於用ASP和DOM來讀取和儲存XML資料，並利用XML資料來儲存留言資訊，達到同用資料庫儲存資料的功能。
三、XML留言本的優勢
或許你會問用ASP＋TXT文本也可以達到不用資料庫實上留言的功能，不錯確實能夠做到，而且網上也有很多這樣的留言本免費下載，但這裡我要講一下ASP＋XML的優越性。
１、XML＋ASP比ASP＋TXT速度要快。可能你也發現當TXT檔案很少時速度出奇的快，但是隨著留言資訊的增加TXT文本變大，速度卻又是出奇的慢這就是ＡＳＰ＋TXT的弱點。當然我不能說ＡＳＰ＋XML就一定是出奇的快，但是比起ＡＳＰ＋TXT來說是快了許多，當然隨著留言資訊的增加ＸＭＬ文本增大速度也下降很快，但是比起TXT來說就還是好了許多（這一點可以從ＷＡＳ測試證明讀者可以自行測試），當然ＡＳＰ＋XML比不上資料庫，因為資料庫對查詢做了特別的最佳化，而XML只是純文字，在ＡＳＰ建立對像是要把ＸＭＬ資料全部讀入記憶體中，如果資料量大的話可想而知速度會慢下來。那你也許會問那我什麼時候用關聯式資料庫儲存資料，又什麼時候用XML儲存資料呢？我這裡也順便提一下，就是當資料比較複雜無規率時用XML資料比較合適，還有就是你打算這些資料要在不同的作業系統上讀取運用時那就是XML大顯身手的時候了。如果你是普通的資料那麼不到關鍵時刻或不支援資料庫的空間時還是不要用XML檔案來儲存資料為好。
２、XML資料的易讀取性，TXT文本是比較難操作的，我們必須一行一行的讀取判斷，而且很多功能無法實上，只能編製比較簡單的留言本，而ＸＭＬ資料則不同了，利用DOM可以輕易的訪問每一個節點，而不是TXT那些煩人的Readline() Witeline()了，我們可以隨意的加入刪除更新某一個我們感興趣的節點，利用ASP或者ＪＳ或者資料島都可以輕鬆實上這一點，當然我這裡為發考慮相容性，用了ASP來讀取XML資料，而沒有用資料島來讀取節點資料（因為只有ＩＥ５以上版本才支援資料島技術）而用ASP來實上就不存在這些問了因為客戶得到的是HTML檔案。
３、XML資料誇作業系統性，只要我們把這些資料存放區為XML那麼這些資料就能被應何基它語言或系統所識別，而不用做應何改動。TXT顯然不具備這些效能。例如我們在網上的留言資訊可以直接被被轉換成wap格式在手機上顯示。
四、建立儲存留言資訊的XML檔案(List.xml)
我們這裡不打算使用ＤＴＤ，因為我們這是我們自已編製並測試通過的XML資料，所以不需要ＤＴＤ來驗證（如果你對此感興趣當然可以加一個這不影響程式的運行）。現在我們來看看建立一個留言本的基本要素
０、留言ＩＤ號--定義為＜id＞
１、使用者名稱我們--定義為＜username＞
２、來自那裡們--定義為＜fromwhere＞
３、留言時間定--義為＜Posttime＞
４、使用者首頁定--義為＜homepage＞
５、使用者的信箱--定義為＜email＞
６、留言內容定--義為＜text＞
當然以上不是必須的讀者可以自行命名並加減相關標籤，把它們組合起來就得到List.xml的檔案了
＜?xml version="1.0" encoding="gb2312"?＞
＜site＞
＜NewList＞
＜list＞
＜id＞1＜/id＞
＜username＞苛子＜/username＞
＜fromwhere＞中國廣州＜/fromwhere＞
＜Posttime＞01-4-23 18:26:56＜/Posttime＞
＜homepage＞http://page2000.xiloo.com＜/homepage＞
＜email＞lucaihui@cmmail.com＜/email＞
＜text＞這是我的第一個XML檔案＜/text＞
＜/list＞
＜/NewList＞
＜/site＞
注意：必須加上encoding="gb2312"否則會報錯為非法字元，因為XML預設不支援中文。＜site＞為根節點＜NewList＞＜ist＞等為子節點。對這個檔案的意思我就不多說了大家也應該看的明白了。接下來就是我們如何來顯示它了。
五、建立顯示XML資料的ASP檔案(index.asp)
這個檔案要實現的功能就是讀取並顯示XML資料，首先建立一個XML對像然後把XML讀入記憶體中，利用DOM分離出我們所要的資料。
＜%
strSourceFile = Server.MapPath("/") & "\List.xml"
'擷取XML檔案的路徑這雷根據你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由線程建立一個XML對像
objXML.load(strSourceFile)'把XML檔案讀入記憶體
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
'選取NewList節點
%＞
＜html＞
＜head＞
＜title＞留言本＜/title＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜style type="text/css"＞
＜!--
td { font-family: "宋體"; font-size: 9pt; text-decoration: none}
a { font-family: "宋體"; font-size: 9pt; color: #0066CC; text-decoration: none}
a:hover { color: #FF6600; text-decoration: underline}
--＞
＜/style＞
＜/head＞＜body bgcolor="#0099CC" text="#000000"＞
＜table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC"＞
＜tr bgcolor="#000000"＞
＜td colspan="2"＞＜font color="#FFFFFF"＞留言溥 ＜a href="PostNew.asp"＞＜font color=#FFFFFF＞寫新留言＜/font＞＜/a＞＜/font＞＜/td＞
＜/tr＞
＜%
PageSize =10'假設每頁顯示10條留言
AllNodesNum =objRootsite.childNodes.length-1
'擷取子節點資料（因為是從節點數從0開始的所最大子節點數要減1）
PageNum=AllNodesNum\PageSize+1'算出總頁數
PageNo=request.querystring("PageNo")
if PageNo="" then'如果是每一次獲得頁面則定位到每一頁顯示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1'獲得起始節點
EndNodes=(PageNo-1)*PageSize'獲得結束節點
if EndNodes＜0 then
EndNodes=0
end if
if StarNodes＞AllNodesNum then'判斷起始節點數是否超過總的節點數
EndNodes=EndNodes-(StarNodes-AllNodesNum)
'如果超過則結束節點要減去(StarNodes-AllNodesNum)的差值否則下標會超界出錯
StarNodes=AllNodesNum
end if
if EndNodes＜0 then
EndNodes=0
end if
while StarNodes＞=EndNodes
'從結束節點到超始節點之間讀取節點資料
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
'獲得使用者名稱
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
'獲得使用者來自那裡
Posttime = objRootsite.childNodes.it
