这个文件要实现的功能就是读取并显示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=AllNodesNumPageSize+1"算出总页数
PageNo=request.querystring("PageNo")
if PageNo="" then"如果是每一次获得页面则定位到每一页显示最新的留言
PageNo=PageNum
end if
StarNodes=PageNo*PageSize-1"获得起始节点
EndNodes=(PageNo-1)*PageSize"获得结束节点
if EndNodes＜0 then
http://m.bbyears.com/zhufuduanxin/3169.html
推荐访问: