📄 manage.asp
字号:
<!--
############################ 智思留言本 版权声明 ##############################
##### 智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01） #####
##### 智思网络（zhisi.net) （2004-2024）版权所有！ #####
##### 此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项， #####
##### 你也可以进行更改，但必须本保留版权信息！ #####
##### 如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！ #####
##### 电子邮箱：zhisi@126.com QQ：122178250 POPO：simonda #####
#################################################################################
##### 此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp"-->
<!-- #include file="isadm.asp" -->
<!-- #include file="ubbcode.asp" -->
<%
set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from guest order by TopG,ID DESC"
rs.open sqlstr,conn,1,3
pagesize=5
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理后台</title>
<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
currentpage=request.querystring("currentpage")
if currentpage="" then
currentpage=0
rs.movefirst
else
rs.move Clng(currentpage)*pagesize
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="background-image:url(<% =GBSkin %>/guest_top.gif) ">
<tr align="center">
<td height="30" colspan="6" class="text_header"><strong>智思留言本(ZSBS)后台管理</strong></td>
</tr>
<tr>
<td height="30"> </td>
<td width="120" align="center"><a href="config.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>"><strong>留言本设置</strong></a></td>
<td width="120" align="center"><b><a href="news_mang.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">新闻公告管理</a></b></td>
<td width="120" align="center"><a href="Aid_mang.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>"><strong>管理账号管理</strong></a></td>
<td width="120" align="center"><b><a href="outmang.asp">退出管理留言</a></b></td>
<td> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
<tr>
<td height="30" align="center"><table width="720" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center">[智思公告（建议站长勿删）]<nobr>
<script src="http://www.zhisi.net/zsbook/rnews.asp"></script>
</nobr></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" align="center" bgcolor="#EEEEEE"><table width="650" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" colspan="3" align="left" class="guest_name"><% rscount=rs.recordcount %>
共有 <% =rscount %> 条留言,
共 <%
totalpage=(rscount-1)/pagesize
totalpage=int(totalpage)+1
%><% =totalpage %>
页,
每页 <% =pagesize %> 条,
这是第 <% =currentpage+1 %> 页留言.</td>
<td align="right">
<% if Clng(currentpage)>0 then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)-1 %>">上一页</a>
<% else %>
上一页
<% end if %>/
<% if Clng(currentpage)+1<totalpage then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)+1 %>">下一页</a>
<% else %>下一页<% end if %> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#eeeeee" class="guest_name">
[
<%
i=1
while i<=totalpage
%>
<a href="manage.asp?currentpage=<% =i-1 %>"><% =i %></a>
<%
i=i+1
wend
%>
]
</td>
</tr>
<tr>
<td height="15" align="center" class="guest_name"> </td>
</tr>
</table>
<%
i=0
while i<pagesize and not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name">
<tr align="right" bgcolor="#D9F5FF">
<td height="25" colspan="2">QQ：
<% =rs("Oicq") %>
邮箱：
<% =rs("email") %>
主页：<a href="<% =rs("homepage") %>" target="_blank">
<% =rs("homepage") %>
</a> IP:
<% =rs("IP") %>
</td>
</tr>
<tr bgcolor="#60D8FF">
<td height="25" colspan="2">
<% =rs("sex") %>
<font color="#FFFFFF"><strong>
<% =rs("name") %>
</strong></font> [ 来自
<% =rs("address") %>
]</td>
</tr>
<tr>
<td width="150" height="22" align="center" bgcolor="#FFFFFF"><img src="images/<% =rs("headpic") %>.gif" alt=""></td>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed; ">
<tr>
<td height="30"> <strong>
<% =rs("Title") %>
</strong> [
<% =rs("Date") %>
<% =rs("Time") %>
]</td>
</tr>
<tr>
<td height="2" bgcolor="#D9F5FF"></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
<tr>
<td style="word-break:break-all; word-wrap:break-word;"><% =ubbcode(rs("content")) %></td>
</tr>
<tr>
<td> </td>
</tr>
<%
set rsb=Server.CreateObject("ADODB.Recordset")
strsql="select * from reply where GuestID=" & rs("ID")
rsb.open strsql,conn,1,3
if not rsb.eof then
%>
<tr>
<td height="2" bgcolor="#0099CC"></td>
</tr>
<tr>
<td height="20" bgcolor="#D9F5FF">留言回复：<% if rs("ReNoView")= True then%><b>[已设置为不显示]</b><%else%><% end if %></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td style="word-break:break-all; word-wrap:break-word;"><% =ubbcode(rsb("content")) %></td>
</tr>
<tr>
<td> </td>
</tr>
<%
end if
rsb.close
set rsb=nothing
%>
</table>
</td>
</tr>
<tr bgcolor="#f5f5f5">
<td colspan="2" align="center" bgcolor="#f5f5f5">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="guest_name">
<tr align="center">
<td width="120"><font color=red><b><%If rs("TopG")=True Then%>置顶留言<%Else%>普通留言<%End If%></b></font></td>
<td width="160">
<%If ifNeedAuditing="YES" Then%>
<%If rs("ifHadDealAuditing")=False Then%>
<font color=red><b>未处理审核</b></font>[ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =currentpage %>">通过</a>|<a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =currentpage %>">不通过</a> ]
<%Else%>
<%If rs("ifHadPassAuditing")=False Then%>
<font color=red><b>审核未通过</b></font> [ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=pass&pn=<% =currentpage %>">通过</a> ]
<%Else%>
<font color=red><b>审核已通过</b></font> [ <a href="setauditing.asp?ID=<% =rs("ID") %>&op=unpass&pn=<% =currentpage %>">不通过</a> ]
<%End If%>
<%End If%>
<%End If%>
</td>
<td width="120" height="25"><a href="modify.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">修改留言</a></td>
<td width="120"><a href="delete.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">删除留言</a></td>
<td width="120"><a href="reply.asp?ID=<% =rs("ID") %>&pn=<% =currentpage %>">回复/修改回复</a></td>
<td><%If rs("TopG")=False Then%><a href="settop.asp?ID=<% =rs("ID") %>&op=top&pn=<% =currentpage %>">设为置顶</a><%Else%><a href="settop.asp?ID=<% =rs("ID") %>&op=untop&pn=<% =currentpage %>">取消置顶</a><%End If%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" colspan="2" align="center"></td>
</tr>
</table>
</td>
</tr>
</table>
<% rs.movenext %>
<% i=i+1 %>
<% wend %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="guest_name">
<tr bgcolor="#ECFBFF" >
<td height="25" align="left"><% rscount=rs.recordcount %>
共有 <% =rscount %> 条留言,
共 <%
totalpage=(rscount-1)/pagesize
totalpage=int(totalpage)+1
%><% =totalpage %>
页,
每页
<% =pagesize %> 条,
这是第 <% =currentpage+1 %> 页留言.</td>
<td align="right">
<% if Clng(currentpage)>0 then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)-1 %>">上一页</a>
<% else %>
上一页
<% end if %>/
<% if Clng(currentpage)+1<totalpage then %>
<a href="manage.asp?currentpage=<% =Clng(currentpage)+1 %>">下一页</a>
<% else %>下一页<% end if %> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#eeeeee" class="guest_name" height="30">
[
<%
i=1
while i<=totalpage
%>
<a href="manage.asp?currentpage=<% =i-1 %>"><% =i %></a>
<%
i=i+1
wend
%>
]
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -