留言簿-后台管理-退出

以下留言只代表网友个人观点，不代表本站观点！立即发表留言

公告：<%=webtake%>

<% strSourceFile = Server.MapPath("Word.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 content=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text reply=objRootsite.childNodes.item(starNodes).childNodes.item(3).text jtime=objRootsite.childNodes.item(starNodes).childNodes.item(4).text ip=objRootsite.childNodes.item(starNodes).childNodes.item(5).text ip=split(ip,".") uip=ip(0)&"."&ip(1)&"."&ip(2)&".*" %> <% StarNodes = StarNodes - 1 wend set objXML = nothing %>

<%=name%> IP:<%=uip%> <%=jtime%> 回复留言删除留言

<%=content%><% if reply <> "" then response.write("

管理员回复："&reply) end if%>

留言<%=AllNodesNum+1%>条(每页<%=PageSize%>条)

<%if pageno <> 1 then%>

上一页 | <%else%>

上一页 | <%end if%> <%if pageno <> pagenum then%> 下一页

<%else%> 下一页

<%end if%>

签写留言

称昵：

内容：

请自觉遵守：爱国、守法、自律、真实、文明的原则
尊重网上道德，遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其他各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
您在本站讨论板发表的作品，本站有权在网站内转载或引用
参与本留言即表明您已经阅读并接受上述条款