用ASP+XML打造留言本 - 2

用ASP+XML打造留言本 - 2
(01-6-6 17)


　　五、建立显示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.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＞ 

原文转自：http://www.ltesting.net