用ASP+XML打造留言本
一、讀者指引
讀者指引幫助你掌握本文的梗概。以免你看了大半才明白這編文章不適合你，給你造成視覺污染。
如果你正在用ASP+XML寫一些程序，或者你正在學(xué)XML那就值得一看。
閱讀本文須具備的知識(shí)，對(duì)ASP有基本的了解，對(duì)XML和DOM有基本了解，如果你不了解那么你通過學(xué)習(xí)本文基本上能夠
撐握ASP＋XML和DOM的應(yīng)用，并能根據(jù)本文范寫出自已更高級(jí)的ASP＋XML程序。
二、基本思想
本文思想是基于用ASP和DOM來讀取和存儲(chǔ)XML數(shù)據(jù)，并利用XML數(shù)據(jù)來存儲(chǔ)留言信息，達(dá)到同用數(shù)據(jù)庫(kù)存儲(chǔ)數(shù)據(jù)的功
能。
三、XML留言本的優(yōu)勢(shì)
或許你會(huì)問用ASP＋TXT文本也可以達(dá)到不用數(shù)據(jù)庫(kù)實(shí)上留言的功能，不錯(cuò)確實(shí)能夠做到，而且網(wǎng)上也有很多這樣的留
言本免費(fèi)下載，但這里我要講一下ASP＋XML的優(yōu)越性。
１、XML＋ASP比ASP＋TXT速度要快?？赡苣阋舶l(fā)現(xiàn)當(dāng)TXT文件很少時(shí)速度出奇的快，但是隨著留言信息的增加TXT文本
變大，速度卻又是出奇的慢這就是ＡＳＰ＋TXT的弱點(diǎn)。當(dāng)然我不能說ＡＳＰ＋XML就一定是出奇的快，但是比起ＡＳ
Ｐ＋TXT來說是快了許多，當(dāng)然隨著留言信息的增加ＸＭＬ文本增大速度也下降很快，但是比起TXT來說就還是好了許多
（這一點(diǎn)可以從ＷＡＳ測(cè)試證明讀者可以自行測(cè)試），當(dāng)然ＡＳＰ＋XML比不上數(shù)據(jù)庫(kù)，因?yàn)閿?shù)據(jù)庫(kù)對(duì)查詢做了特別的優(yōu)
化，而XML只是純文本，在ＡＳＰ建立對(duì)像是要把ＸＭＬ數(shù)據(jù)全部讀入內(nèi)存中，如果數(shù)據(jù)量大的話可想而知速度會(huì)慢下來。
那你也許會(huì)問那我什么時(shí)候用關(guān)系數(shù)據(jù)庫(kù)存儲(chǔ)數(shù)據(jù)，又什么時(shí)候用XML存儲(chǔ)數(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ù)庫(kù)的空間時(shí)還是不要用XML文件來存儲(chǔ)數(shù)據(jù)為好。
２、XML數(shù)據(jù)的易讀取性，TXT文本是比較難操作的，我們必須一行一行的讀取判斷，而且很多功能無法實(shí)上，只能編
制比較簡(jiǎn)單的留言本，而ＸＭＬ數(shù)據(jù)則不同了，利用DOM可以輕易的訪問每一個(gè)節(jié)點(diǎn)，而不是TXT那些煩人的Readline()
Witeline()了，我們可以隨意的加入刪除更新某一個(gè)我們感興趣的節(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ù)存儲(chǔ)為XML那么這些數(shù)據(jù)就能被應(yīng)何基它語(yǔ)言或系統(tǒng)所識(shí)別，而不用做
應(yīng)何改動(dòng)。TXT顯然不具備這些性能。例如我們?cè)诰W(wǎng)上的留言信息可以直接被被轉(zhuǎn)換成wap格式在手機(jī)上顯示。
四、建立存儲(chǔ)留言信息的XML文件(List.xml)
我們這里不打算使用ＤＴＤ，因?yàn)槲覀冞@是我們自已編制并測(cè)試通過的XML數(shù)據(jù)，所以不需要ＤＴＤ來驗(yàn)證（如果你對(duì)
此感興趣當(dāng)然可以加一個(gè)這不影響程序的運(yùn)行）?，F(xiàn)在我們來看看建立一個(gè)留言本的基本要素
０、留言ＩＤ號(hào)--定義為id>
１、用戶名我們--定義為username>
２、來自那里們--定義為fromwhere>
３、留言時(shí)間定--義為Posttime>
４、用戶主頁(yè)定--義為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>中國(guó)廣州/fromwhere>
Posttime>01-4-23 18:26:56/Posttime>
homepage>http://page2000.xiloo.com/homepage>
email>lucaihui@cmmail.com/email>
text>這是我的第一個(gè)XML文件/text>
/list>
/NewList>
/site>
注意：必須加上encoding="gb2312"否則會(huì)報(bào)錯(cuò)為非法字符，因?yàn)閄ML默認(rèn)不支持中文。site>為根節(jié)點(diǎn)NewList>
ist>等為子節(jié)點(diǎn)。對(duì)這個(gè)文件的意思我就不多說了大家也應(yīng)該看的明白了。接下來就是我們?nèi)绾蝸盹@示它了。
五、建立顯示XML數(shù)據(jù)的ASP文件(index.asp)
這個(gè)文件要實(shí)現(xiàn)的功能就是讀取并顯示XML數(shù)據(jù)，首先創(chuàng)建一個(gè)XML對(duì)像然后把XML讀入內(nèi)存中，利用DOM分離出我們所
要的數(shù)據(jù)。
%
strSourceFile = Server.MapPath("/") "\List.xml"
'獲取XML文件的路徑這里根據(jù)你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
'以自由線程創(chuàng)建一個(gè)XML對(duì)像
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è)每頁(yè)顯示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'算出總頁(yè)數(shù)
PageNo=request.querystring("PageNo")
if PageNo="" then'如果是每一次獲得頁(yè)面則定位到每一頁(yè)顯示最新的留言
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)會(huì)超界出錯(cuò)
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
'獲得用戶主頁(yè)
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對(duì)像所對(duì)應(yīng)的節(jié)點(diǎn)為NewList>
' objRootsite.childNodes.item(StarNodes)所對(duì)應(yīng)的節(jié)點(diǎn)就是list>節(jié)點(diǎn)因?yàn)椴恢烈粋€(gè)list>節(jié)點(diǎn)所以用了item()
來識(shí)別當(dāng)前節(jié)點(diǎn)數(shù)據(jù)，隨著StarNodes的遞減list>節(jié)點(diǎn)根著往上移一個(gè)個(gè)讀取list>節(jié)點(diǎn)數(shù)據(jù)。
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所對(duì)應(yīng)的節(jié)點(diǎn)為具體的每個(gè)節(jié)點(diǎn)的文本值，這里
(1)所對(duì)應(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%
>的主頁(yè)">主頁(yè)/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%>>頁(yè)
%
if cint(PageNo)>PageNum then'分頁(yè)
response.write "a href="/index.asp?PageNo="(PageNo+1)"'>上一頁(yè)/a>"
end if
if cint(PageNo)>1 then
response.write "a href="/index.asp?PageNo="(PageNo-1)"'>下一頁(yè)/a> "
end if
%>
/td>
/tr>
/table>
/body>
/html>
六、建立寫新留言程序(PostNew.asp)
這個(gè)文件要實(shí)現(xiàn)的功能就是寫入新的XML節(jié)點(diǎn)，首先創(chuàng)建一個(gè)XML對(duì)像然后把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對(duì)像
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í)就會(huì)報(bào)錯(cuò)
id = objRootlist.lastchild.firstchild.text+1
'這里獲得將要插入子節(jié)點(diǎn)的ＩＤ號(hào)，其ＩＤ號(hào)為NewList>的最后一個(gè)子節(jié)點(diǎn)(lastchild)的第一個(gè)子節(jié)點(diǎn)(firstchild)
的ＩＤ號(hào)加1（這里我們按照關(guān)系型數(shù)據(jù)庫(kù)的ＩＤ號(hào)來遞增）
else
'如是沒有字子節(jié)點(diǎn)則是第一次留言ＩＤ號(hào)設(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")
'建立一個(gè)新XML對(duì)像
objXML2.loadXML(XMLnode)
'把XML版片段讀入內(nèi)存中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節(jié)點(diǎn)
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'存儲(chǔ)lsit.xml文件（因?yàn)椴淮鎯?chǔ)List.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="中國(guó)">
/td>
/tr>
tr bgcolor="#EFEFEF">
td width="19%" align="right">主 頁(yè)：/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é)
到這里我們就建立一個(gè)簡(jiǎn)單并有分頁(yè)功能的XML留言本了，呵看完了簡(jiǎn)單吧，其實(shí)我這里只起一個(gè)拋磚引玉的功能，其目的是引導(dǎo)大家建立更復(fù)雜更好的ASP＋XML程序，例如：所上面的留言本加上回復(fù)功能，管理功能，點(diǎn)擊計(jì)數(shù)據(jù)功能等，甚至你可以把它變一個(gè)ＢＢＳ等等。最后留言本運(yùn)行結(jié)果如下：
(List.xml在ＩＥ５下面的運(yùn)行結(jié)果)
(留言本index.asp運(yùn)行結(jié)果)
