<%
strSourceFile = Server.MapPath("siva.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'每页显示*条留言
PageSize = cint(""&num&"")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
AllNodesNum = objRootsite.childNodes.length - 1
'算出总页数
PageNum = AllNodesNum\PageSize + 1
PageNo = cint(Request.querystring("PageNo"))
'如果是每一次获得页面则定位到每一页显示最新的留言
if PageNo="" or PageNo="0" then
PageNo = 1
end if
'获得起始节点
StarNodes = AllNodesNum - (PageNo - 1)*PageSize
'获得结束节点
EndNodes = StarNodes - PageSize + 1
if EndNodes < 0 then
EndNodes = 0
end If
'判断起始节点数是否超过总的节点数
if StarNodes > AllNodesNum then
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes < 0 then
EndNodes=0
end if
while StarNodes >= EndNodes
id=objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
name=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
qq=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
email=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
sex=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
content=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(6).text
reply=objRootsite.childNodes.item(starNodes).childNodes.item(7).text
hftime=objRootsite.childNodes.item(starNodes).childNodes.item(8).text
ischeck=objRootsite.childNodes.item(starNodes).childNodes.item(9).text
if ischeck=0 then
response.write ""
else
%>
| <%=name%>
发表于：<%=addtime%> |
<%
response.write replace(content,chr(13),"
")
if reply<>"" then
response.write "
专家回复："
response.write reply
end if
%>
|
<%
end if
StarNodes = StarNodes - 1
wend
set objXML = nothing
%>
页数：<%=pageno%>/<%=pagenum%>
<%if pageno <> 1 then
response.write "首页"
response.write " 上一页"
else
response.write "首页 上一页"
end if
if pageno <> pagenum then
response.write " 下一页"
response.write " 尾页"
else
response.write " 下一页 尾页"
end if%>
共有<%=AllNodesNum+1%>篇(每页<%=PageSize%>篇) |