用ASP+XML打造留言本

最後更新：2018-12-08 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

用ASP+XML打造留言本

一、讀者指引
讀者指引協助你掌握本文的梗概。以免你看了大半才明白這編文章不適合你，給你造成視覺汙染。

如果你正在用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">

</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.item(StarNodes).childNodes.item(3).text
'獲得留言時間
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
'獲昨留言內容

'*****************************************************************************
'這裡使作了XML的DOM來讀取資料,顯然objRootsite對像所對應的節點為<NewList>
' objRootsite.childNodes.item(StarNodes)所對應的節點就是<list>節點因為不至一個<list>節點所以用了item()
來識別當前節點資料，隨著StarNodes的遞減<list>節點根著往上移一個個讀取<list>節點資料。
'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所對應的節點為具體的每個節點的文本值，這裡
(1)所對應的就是username使用者名稱（因為<list>節點的子節點才是我們真正所要的）
'******************************************************************************

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">
留言時間：<%=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)
這個檔案要實現的功能就是寫入新的XML節點，首先建立一個XML對像然後把XML讀入記憶體中，利用appendChild()方法
加入我們產生的XML節點。

<%
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檔案的路徑這雷根據你的虛擬目錄不同而不同
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'建立XML對像
objXML.load(strSourceFile)
'把XML檔案讀入記憶體中
Set objRootlist = objXML.documentElement.selectSingleNode("NewList")
'選取<NewList>節點
if objRootlist.hasChildNodes then
'判斷<NewList>是否有子節點（因為如果是每一次<NewList>是沒有子節點的，
' 如果不加判斷在第一次運得時就會報錯
id = objRootlist.lastchild.firstchild.text+1
'這裡獲得將要插入子節點的ＩＤ號，其ＩＤ號為<NewList>的最後一個子節點(lastchild)的第一個子節點(firstchild)
的ＩＤ號加1（這裡我們按照關係型資料庫的ＩＤ號來遞增）
else
'如是沒有字子節點則是第一次留言ＩＤ號設為１
id=1
end if
brstr=chr(13)&chr(10)&chr(9)
'為了插入XML檔案中的節點換行空格排列整齊
'（當然你也可以不用這樣只是為了XML資料好看而以）
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)
'根據得到的資料建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
'建立一個新XML對像
objXML2.loadXML(XMLnode)
'把XML版片段讀入記憶體中
set rootNewNode=objXML2.documentElement
'獲得objXML2的根節點
objRootlist.appendChild(rootNewNode)
'把XML片段插入到List.xml中
objXML.save(strSourceFile)
'儲存lsit.xml檔案（因為不儲存List.xml只在記憶體中更新了）
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">

</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">內容：</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>

七、總結

到這裡我們就建立一個簡單並有分頁功能的XML留言本了，呵看完了簡單吧，其實我這裡只起一個拋磚引玉的功能，其目的是引導大家建立更複雜更好的ASP＋XML程式，例如：所上面的留言本加上回複功能，管理功能，點擊計資料功能等，甚至你可以把它變一個ＢＢＳ等等。最後留言本運行結果如下：

(List.xml在ＩＥ５下面的運行結果)

(留言本index.asp運行結果)

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More