用ASP+XML打造留言本 - 2

五、建立显示XML数据的ASP文件(index.asp)

这个文件要实现的功能就是读取并显示XML数据，首先创建一个XML对像然后把XML读入内存中，利用DOM分离出我们所
要的数据。

1   
2strSourceFile = Server.MapPath("/") & "\List.xml"   
3'获取XML文件的路径这里根据你的虚拟目录不同而不同   
4Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")   
5'以自由线程创建一个XML对像   
6objXML.load(strSourceFile)'把XML文件读入内存   
7Set objRootsite = objXML.documentElement.selectSingleNode("NewList")   
8'选取NewList节点

 1<html>
 2<head>
 3<title>留言本</title>
 4<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
 5<style type="text/css">   
 6<!--   
 7td { font-family: "宋体"; font-size: 9pt; text-decoration: none}   
 8a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}   
 9a:hover { color: #FF6600; text-decoration: underline}   
10\-->   
11</style>
12</head><body bgcolor="#0099CC" text="#000000">
13<table align="center" bgcolor="#CCCCCC" border="0" cellpadding="4" cellspacing="1" width="80%">
14<tr bgcolor="#000000">
15<td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color="#FFFFFF">写新留言   
16</font></a></font></td>
17</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)," ")
'替代空格

 1<tr bgcolor="#F0F0F0">
 2<td height="94" valign="top" width="21%">姓 名：```
 3=username
 4```<br/>   
 5来 自：```
 6=fromwhere
 7```<br/>
 8</td>
 9<td height="94" valign="top" width="79%"> | <a href="```
10=homepage
11```" target="_blank" title="```
12=username%   
13&amp;gt;的主页"&gt;主页&lt;/a&gt;   
14| | &lt;a href="  mailto:&amp;lt;%=email%  &amp;gt;" title="给&amp;lt;%=username
15```写信">信箱</a> | |<font color="#CC6633">   
16留言时间：```
17=Posttime
18``` </font>|   
19<hr/>

=text

1</tr>
2<tr align="right" bgcolor="#FFFFFF">
3<td colspan="2"> </td>
4</tr>

StarNodes=StarNodes-1
wend
set objXML=nothing

1<tr align="right" bgcolor="#FFFFFF">
2<td colspan="2"> 共有&lt;```
3=PageNum
4```&gt;页

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

1</td>
2</tr>
3</list></list></list></list></list></newlist></table>
4</body>
5</html>