用ASP+XML打造留言本
一、讀者指引
讀者指引幫助你掌握本文的梗概。以免你看了大半才明白這編文章不適合你，給你造成視覺污染。
如果你正在用ASP+XML寫一些程序，或者你正在學(xué)XML那就值得一看。
閱讀本文須具備的知識，對ASP有基本的了解，對XML和DOM有基本了解，如果你不了解那么你通過學(xué)習(xí)本文基本上能夠
撐握ASP＋XML和DOM的應(yīng)用，并能根據(jù)本文范寫出自已更高級的ASP＋XML程序。
二、基本思想
本文思想是基于用ASP和DOM來讀取和存儲XML數(shù)據(jù)，并利用XML數(shù)據(jù)來存儲留言信息，達(dá)到同用數(shù)據(jù)庫存儲數(shù)據(jù)的功
能。
三、XML留言本的優(yōu)勢
或許你會問用ASP＋TXT文本也可以達(dá)到不用數(shù)據(jù)庫實(shí)上留言的功能，不錯確實(shí)能夠做到，而且網(wǎng)上也有很多這樣的留
言本免費(fèi)下載，但這里我要講一下ASP＋XML的優(yōu)越性。
１、XML＋ASP比ASP＋TXT速度要快。可能你也發(fā)現(xiàn)當(dāng)TXT文件很少時(shí)速度出奇的快，但是隨著留言信息的增加TXT文本
變大，速度卻又是出奇的慢這就是ＡＳＰ＋TXT的弱點(diǎn)。當(dāng)然我不能說ＡＳＰ＋XML就一定是出奇的快，但是比起ＡＳ
Ｐ＋TXT來說是快了許多，當(dāng)然隨著留言信息的增加ＸＭＬ文本增大速度也下降很快，但是比起TXT來說就還是好了許多
（這一點(diǎn)可以從ＷＡＳ測試證明讀者可以自行測試），當(dāng)然ＡＳＰ＋XML比不上數(shù)據(jù)庫，因?yàn)閿?shù)據(jù)庫對查詢做了特別的優(yōu)
化，而XML只是純文本，在ＡＳＰ建立對像是要把ＸＭＬ數(shù)據(jù)全部讀入內(nèi)存中，如果數(shù)據(jù)量大的話可想而知速度會慢下來。
那你也許會問那我什么時(shí)候用關(guān)系數(shù)據(jù)庫存儲數(shù)據(jù)，又什么時(shí)候用XML存儲數(shù)據(jù)呢？我這里也順便提一下，就是當(dāng)數(shù)據(jù)比較
復(fù)雜無規(guī)率時(shí)用XML數(shù)據(jù)比較合適，還有就是你打算這些數(shù)據(jù)要在不同的操作系統(tǒng)上讀取運(yùn)用時(shí)那就是XML大顯身手的時(shí)候
了。如果你是普通的數(shù)據(jù)那么不到關(guān)鍵時(shí)刻或不支持?jǐn)?shù)據(jù)庫的空間時(shí)還是不要用XML文件來存儲數(shù)據(jù)為好。
２、XML數(shù)據(jù)的易讀取性，TXT文本是比較難操作的，我們必須一行一行的讀取判斷，而且很多功能無法實(shí)上，只能編
制比較簡單的留言本，而ＸＭＬ數(shù)據(jù)則不同了，利用DOM可以輕易的訪問每一個節(jié)點(diǎn)，而不是TXT那些煩人的Readline()
Witeline()了，我們可以隨意的加入刪除更新某一個我們感興趣的節(jié)點(diǎn)，利用ASP或者ＪＳ或者數(shù)據(jù)島都可以輕松實(shí)上這一
點(diǎn)，當(dāng)然我這里為發(fā)考慮兼容性，用了ASP來讀取XML數(shù)據(jù)，而沒有用數(shù)據(jù)島來讀取節(jié)點(diǎn)數(shù)據(jù)（因?yàn)橹挥校桑牛狄陨习姹静?BR>支持?jǐn)?shù)據(jù)島技術(shù)）而用ASP來實(shí)上就不存在這些問了因?yàn)榭蛻舻玫降氖荋TML文件。
３、XML數(shù)據(jù)夸操作系統(tǒng)性，只要我們把這些數(shù)據(jù)存儲為XML那么這些數(shù)據(jù)就能被應(yīng)何基它語言或系統(tǒng)所識別，而不用做
應(yīng)何改動。TXT顯然不具備這些性能。例如我們在網(wǎng)上的留言信息可以直接被被轉(zhuǎn)換成wap格式在手機(jī)上顯示。
四、建立存儲留言信息的XML文件(List.xml)
我們這里不打算使用ＤＴＤ，因?yàn)槲覀冞@是我們自已編制并測試通過的XML數(shù)據(jù)，所以不需要ＤＴＤ來驗(yàn)證（如果你對
此感興趣當(dāng)然可以加一個這不影響程序的運(yùn)行）。現(xiàn)在我們來看看建立一個留言本的基本要素
０、留言ＩＤ號--定義為id>
１、用戶名我們--定義為username>
２、來自那里們--定義為fromwhere>
３、留言時(shí)間定--義為Posttime>
４、用戶主頁定--義為homepage>
５、用戶的信箱--定義為email>
６、留言內(nèi)容定--義為text>
當(dāng)然以上不是必須的讀者可以自行命名并加減相關(guān)標(biāo)簽，把它們組合起來就得到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"否則會報(bào)錯為非法字符，因?yàn)閄ML默認(rèn)不支持中文。site>為根節(jié)點(diǎn)NewList>
ist>等為子節(jié)點(diǎn)。對這個文件的意思我就不多說了大家也應(yīng)該看的明白了。接下來就是我們?nèi)绾蝸盹@示它了。
五、建立顯示XML數(shù)據(jù)的ASP文件(index.asp)
這個文件要實(shí)現(xiàn)的功能就是讀取并顯示XML數(shù)據(jù)，首先創(chuàng)建一個XML對像然后把XML讀入內(nèi)存中，利用DOM分離出我們所
要的數(shù)據(jù)。
%
strSourceFile = Server.MapPath("/") "\List.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由線程創(chuàng)建一個XML對像
objXML.load(strSourceFile)'把XML文件讀入內(nèi)存
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
'選取NewList節(jié)點(diǎn)
%>
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'假設(shè)每頁顯示10條留言
AllNodesNum =objRootsite.childNodes.length-1
'獲取子節(jié)點(diǎn)數(shù)據(jù)（因?yàn)槭菑墓?jié)點(diǎn)數(shù)從0開始的所最大子節(jié)點(diǎn)數(shù)要減1）
PageNum=AllNodesNum\PageSize+1'算出總頁數(shù)
PageNo=request.querystring("PageNo")
if PageNo="" then'如果是每一次獲得頁面則定位到每一頁顯示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1'獲得起始節(jié)點(diǎn)
EndNodes=(PageNo-1)*PageSize'獲得結(jié)束節(jié)點(diǎn)
if EndNodes0 then
EndNodes=0
end if
if StarNodes>AllNodesNum then'判斷起始節(jié)點(diǎn)數(shù)是否超過總的節(jié)點(diǎn)數(shù)
EndNodes=EndNodes-(StarNodes-AllNodesNum)
'如果超過則結(jié)束節(jié)點(diǎn)要減去(StarNodes-AllNodesNum)的差值否則下標(biāo)會超界出錯
StarNodes=AllNodesNum
end if
if EndNodes0 then
EndNodes=0
end if
while StarNodes>=EndNodes
'從結(jié)束節(jié)點(diǎn)到超始節(jié)點(diǎn)之間讀取節(jié)點(diǎn)數(shù)據(jù)
username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
'獲得用戶名
fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
'獲得用戶來自那里
Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
'獲得留言時(shí)間
homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
'獲得用戶主頁
email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
'獲得用戶Eamil
text = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
'獲昨留言內(nèi)容
'*****************************************************************************
'這里使作了XML的DOM來讀取數(shù)據(jù),顯然objRootsite對像所對應(yīng)的節(jié)點(diǎn)為NewList>
' objRootsite.childNodes.item(StarNodes)所對應(yīng)的節(jié)點(diǎn)就是list>節(jié)點(diǎn)因?yàn)椴恢烈粋€list>節(jié)點(diǎn)所以用了item()
來識別當(dāng)前節(jié)點(diǎn)數(shù)據(jù)，隨著StarNodes的遞減list>節(jié)點(diǎn)根著往上移一個個讀取list>節(jié)點(diǎn)數(shù)據(jù)。
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所對應(yīng)的節(jié)點(diǎn)為具體的每個節(jié)點(diǎn)的文本值，這里
(1)所對應(yīng)的就是username用戶名（因?yàn)閘ist>節(jié)點(diǎn)的子節(jié)點(diǎn)才是我們真正所要的）
'******************************************************************************
text = replace(text,chr(13),"br>")
'替代回車
text = replace(text,chr(32)," ")
'替代空格
%>
tr bgcolor="#F0F0F0">
td width="21%" height="94" valign="top">姓 名：%=username%>br>
來 自：%=fromwhere%>br>
/td>
td width="79%" height="94" valign="top"> | a href="%=homepage%>" target=_blank title="%=username%
>的主頁">主頁/a>
| | a href="mailto:%=email%>" title="給%=username%>寫信">信箱/a> | |font color="#CC6633">
留言時(shí)間：%=Posttime%> /font>|
hr>
%=text%> /td>
/tr>
tr bgcolor="#FFFFFF" align="right">
td colspan="2"> /td>
/tr>
%
StarNodes=StarNodes-1
wend
set objXML=nothing
%>
tr bgcolor="#FFFFFF" align="right">
td colspan="2"> 共有%=PageNum%>>頁
%
if cint(PageNo)>PageNum then'分頁
response.write "a href="/index.asp?PageNo="(PageNo+1)"'>上一頁/a>"
end if
if cint(PageNo)>1 then
response.write "a href="/index.asp?PageNo="(PageNo-1)"'>下一頁/a> "
end if
%>
/td>
/tr>
/table>
/body>
/html>
六、建立寫新留言程序(PostNew.asp)
這個文件要實(shí)現(xiàn)的功能就是寫入新的XML節(jié)點(diǎn)，首先創(chuàng)建一個XML對像然后把XML讀入內(nèi)存中，利用appendChild()方法
加入我們生成的XML節(jié)點(diǎn)。
%
username=request.form("username")
if username>"" then
fromwhere =request.form("fromwhere")
homepage =request.form("homepage")
email =request.form("email")
text =request.form("text")
text =replace(text,"","")
Posttime =now()
strSourceFile = Server.MapPath("/") "\List.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'創(chuàng)建XML對像
objXML.load(strSourceFile)
'把XML文件讀入內(nèi)存中
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
'選取NewList>節(jié)點(diǎn)
if objRootlist.hasChildNodes then
'判斷NewList>是否有子節(jié)點(diǎn)（因?yàn)槿绻敲恳淮蜰ewList>是沒有子節(jié)點(diǎn)的，
' 如果不加判斷在第一次運(yùn)得時(shí)就會報(bào)錯
id = objRootlist.lastchild.firstchild.text+1
'這里獲得將要插入子節(jié)點(diǎn)的ＩＤ號，其ＩＤ號為NewList>的最后一個子節(jié)點(diǎn)(lastchild)的第一個子節(jié)點(diǎn)(firstchild)
的ＩＤ號加1（這里我們按照關(guān)系型數(shù)據(jù)庫的ＩＤ號來遞增）
else
'如是沒有字子節(jié)點(diǎn)則是第一次留言ＩＤ號設(shè)為１
id=1
end if
brstr=chr(13)chr(10)chr(9)
'為了插入XML文件中的節(jié)點(diǎn)換行空格排列整齊
'（當(dāng)然你也可以不用這樣只是為了XML數(shù)據(jù)好看而以）
XMLnode=brstr"list>"brstr _
"id>"id"/id>"brstr _
"username>"username"/username>"brstr _
"fromwhere>"fromwhere"/fromwhere>"brstr _
"Posttime>"Posttime"/Posttime>"brstr _
"homepage>"homepage"/homepage>"brstr _
"email>"email"/email>"brstr _
"text>"text"/text>"brstr _
"/list>"chr(13)
'根據(jù)得到的數(shù)據(jù)建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一個新XML對像
objXML2.loadXML(XMLnode)
'把XML版片段讀入內(nèi)存中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節(jié)點(diǎn)
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存儲lsit.xml文件（因?yàn)椴淮鎯ist.xml只在內(nèi)存中更新了）
set objXML=nothing
set objXML2=nothing
response.write "謝謝您的留言"
response.end
end if
%>
html>
head>
title>Untitled Document/title>
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
style type="text/css">
!--
td { font-size: 9pt}
-->
/style>
/head>
body bgcolor="#0099CC" text="#000000">
table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#FFFFFF">
form action="PostNew.asp" method="post" name="form1">
tr bgcolor="#000000">
td colspan="2">font color="#FFFFFF">新留言/font>/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right">姓 名：/td>
td width="81%">
input type="text" name="username">
** /td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right">來 自：/td>
td width="81%">
input type="text" name="fromwhere" value="中國">
/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right">主 頁：/td>
td width="81%">
input type="text" name="homepage" value="http://">
/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right">Email：/td>
td width="81%">
input type="text" name="email">
/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right" valign="top">內(nèi) 容：/td>
td width="81%">
textarea name="text" cols="60" rows="10">/textarea>
/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right"> /td>
td width="81%">
input type="submit" name="Submit" value="提交">
input type="reset" name="Submit2" value="重填">
/td>
/tr>
/form>
/table>
/body>
/html>
七、總結(jié)
到這里我們就建立一個簡單并有分頁功能的XML留言本了，呵看完了簡單吧，其實(shí)我這里只起一個拋磚引玉的功能，其目的是引導(dǎo)大家建立更復(fù)雜更好的ASP＋XML程序，例如：所上面的留言本加上回復(fù)功能，管理功能，點(diǎn)擊計(jì)數(shù)據(jù)功能等，甚至你可以把它變一個ＢＢＳ等等。最后留言本運(yùn)行結(jié)果如下：
(List.xml在ＩＥ５下面的運(yùn)行結(jié)果)
(留言本index.asp運(yùn)行結(jié)果)
