asp+xml留言板你分页问题 - Web 开发 / ASP

VBScript code:

<%
strSourceFile=Server.MapPath("guestbook.xml")
Set objXML=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
%>
<%
'每页大小
pageSize=4
'所有节点数
AllNodesNum=objRootsite.childNodes.length-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
end if
if EndNodes<0 then
EndNodes=0
end if
while St