| 购物网站大全排名 | 返回购物网站大全,B2C首页
<% 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 %>
<%=name%> 发表于:<%=addtime%>
<% response.write replace(content,chr(13),"
") if reply<>"" then response.write "

KF98购物网址:" response.write reply 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%>篇)

点击进入友情链接及收录
2010年9月中国网上零售年会
2009年11月中国网上零售年会
什么东西在网上最好卖?
即尚网探寻中国网购市场之路
2009第四届艾瑞新营销年会
2009年5月29日中国B2C电子商务大会
2009年3月7日北京互联网之夜
2009中国互联网草根大会参后感
2009中国互联网草根大会
2008年有哪些购物网站值信赖?
2008对比较购物网站发展的新思考 
 
 
商家合作QQ1055640335
KF98购物网址团队照照