<%
Sub AdmPageTop()
If Trim(Request("ipn"))="" Then
  priCurrPageNum=Trim(Request("pn"))
Else
  priCurrPageNum=Trim(Request("ipn"))
End If
%>
<div style="width:100%;padding-top:5px;background-image:url(<%=GBSkin%>/guest_top.gif);" class="text_header"> <strong style="height:20px;">网吧留言本(BDXWL <%=GBVer%>)后台管理</strong> </div>
<div id="AdmTop" style="width:100%;height:30px;font-weight:bold;background-image:url(<%=GBSkin%>/guest_top.gif);">
  <li><a style="cursor:pointer;" onClick="javacript:if(confirm('此操作将清空所有留言，你确实要这样做吗？')){location.href='commexec.asp?action=clw';return true;}else{return false;}">清空留言</a></li>
  <li><a href="manage.asp?pn=<%=priCurrPageNum%>">留言列表</a></li>
  <li><a href="admglist.asp">批量管理列表</a></li>
  <li><a href="DenyIPList.asp">IP阻止列表</a></li>
  <li><a href="config.asp?pn=<%=priCurrPageNum%>">留言本设置</a></li>
  <li><a href="news_mang.asp?pn=<%=priCurrPageNum%>">新闻公告管理</a></li>
  <li><a href="Aid_mang.asp?pn=<%=priCurrPageNum%>">管理账号管理</a></li>
  <li><a href="outmang.asp">退出管理留言</a></li>
</div>
<%
End Sub
%>
<%
Sub ZhisiNews()
%>
<div style="width:100%;padding-top:5px;background-image:url(<%=GBSkin%>/guest_bg.gif);" class="guest_name">
  <li style="height:20px;">网吧留言本：<nobr><%If UnViewZSNews=True Then%>[已关闭][<a href="commexec.asp?action=zsns&nview=False&pn=<%=Request("pn")%>">点击打开</a>]<%Else%>[<a href="commexec.asp?action=zsns&nview=True&pn=<%=Request("pn")%>">点击关闭</a>]
    <script src=""></script>&nbsp;<%End If%>&nbsp;&nbsp;
    </nobr></li>
</div>
<%
End Sub
%>