微慑信息网

[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 '获得地址 %>

<%=id%> <%=name%> <%=add%>

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

<%=pageno%>/<%=PageNum%>页 <%if pageno=1 then%>首页<%else%>首页<%end if%> <%if pageno=1 then%>上页<%else%>"> 上页<%end if%> <%if cint(PageNo)=pagenum then%>下页<%else%>">下页<%end if%> <%if cint(PageNo)=pagenum then%>末页<%else%>"> 末页<%end if%>
赞(0) 打赏
转载请附本站链接,未经允许不得转载,,谢谢:微慑信息网-VulSee.com » [XML] asp读取xml文件并分页

评论 抢沙发

微慑信息网 专注工匠精神

微慑信息网-VulSee.com-关注前沿安全态势,聚合网络安全漏洞信息,分享安全文档案例

访问我们联系我们

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续提供更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏

登录

找回密码

注册