<%=webname%>_后台管理

<% if Session("UserRank")<>1 then response.write "" 'response.redirect "../index.html" end if %> <%=webname%>_后台管理

网站前台留言簿管理

<% 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 ischeck=objRootsite.childNodes.item(starNodes).childNodes.item(9).text %>

<%=name%>

留言时间：<%=addtime%> Email：<%=email%> QQ:<%=qq%> 回复留言删除留言 <%if ischeck=1 then%>已审核<%else%>未审核<%end if%>

<% response.write replace(content,chr(13),"
") if reply<>"" then response.write "

管理员回复：" response.write reply response.write "

回复时间：" response.write hftime response.write "

" 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%>笔)