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