[XML] asp读取xml文件并分页

asp读取xml文件并分页
xml文件ly.xml


1
赵
浙江


2
钱
江苏


3
孙
安徽


4
李
福建


5
周
江西


6
吴
广东


7
郑
广西


8
王
云南


9
冯
贵州


10
陈
四川


11
储
湖南


12
卫
湖北


13
蒋
陕西


asp文件index.asp
<% xmlfilename="ly.xml" Set objxml=Server.CreateObject("Microsoft.XMLDOM") objxml.load(Server.MapPath(xmlFileName)) Set rootNode=objxml.documentElement yu=rootNode.childNodes.length mod 5 '最后一页的留言数 PageSize =5'假设每页显示5条留言 AllNodesNum =rootNode.childNodes.length-1 '获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1） PageNum=AllNodesNumPageSize+1 '算出总页数 PageNo=request.querystring("PageNo") if PageNo="" then '如果是每一次获得页面则定位到每一页显示最新的留言 PageNo=1 end if StarNodes=(PageNum-PageNo)*PageSize-1+yu '获得起始节点 if yu=0 then StarNodes=(PageNum-PageNo+1)*PageSize-1+yu '获得起始节点 end if EndNodes=StarNodes-4 '获得结束节点 if StarNodes=yu-1 then EndNodes=0 end if for i=StarNodes to EndNodes step -1 '从结束节点到超始节点之间读取节点数据 id = rootNode.childNodes.item(i).childNodes.item(0).text '获序号 name =rootNode.childNodes.item(i).childNodes.item(1).text '获得名字 add = rootNode.childNodes.item(i).childNodes.item(2).text '获得地址 %>

<% Response.Write " " next set objXML=nothing Response.Write " " %>