📄 admin_bbsmanage.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=4
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="admin_Function.asp" -->
<% dim rs,bookid,title,usid,datetime,tellself,locknews,passed,filepath,page,i,errmsg
dim bbsclass
bbsclass=trim(request("bbsclass"))
title=trim(request("title"))
set rs=Server.CreateObject("ADODB.Recordset")
if bbsclass<>"" then
rs.open"select * from userbook where bbsclass='"&bbsclass&"' order by bookid desc",conn,1,1
else
if title<>"" then
rs.open"select * from userbook where title like '%"&title&"%' order by bookid desc",conn,1,1
else
rs.open"SELECT * FROM userbook order by bookid desc",conn,1,1
end if
end if
if rs.eof or rs.bof then
errmsg=errmsg + "<br><br><li>暂时还没有任何主题可管理！</li>"
errmsg=errmsg + "<br><br><li>你可以：［<a href='admin_BbsAdd.asp'>添加新主题</a>］［<a href='admin_BbsManage.asp'>返回</a>］</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rs.pagesize=15
if not isempty(page) then
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page>rs.pagecount then
rs.absolutepage=rs.pagecount
elseif page<=0 then
rs.absolutepage=1
else
rs.absolutepage=page
end if
else
rs.absolutepage=1
end if
page=rs.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理：BBS</title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function BBSDel()
{
if (confirm("你确定要删除这个主题吗？一旦删除，回复也会被删除，将不能恢复！"))
return true;
else
return false;
}
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt1">欢迎来到bbs的管理面板</td>
</tr>
<tr>
<td align="center" bgcolor="#F5F8F5" class="txt05">［<a href="admin_BbsAdd.asp">添加新主题</a>］ 单击［修改］可对主题的各个属性进行设置</td>
</tr>
<tr>
<td><form name="form1" method="post" action="admin_BbsDel.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt05"><strong>请选择所属栏目：</strong><select name="bbsclass" class="but" id="bbsclass" onChange="window.open(this.options[this.selectedIndex].value,'_self')">
<option>请选择所属栏目</option>
<%dim rsbbscla
set rsbbscla=server.createobject("ADODB.Recordset")
rsbbscla.open"select * from bbsclass order by bbsid desc",conn,1,1
if rsbbscla.eof or rsbbscla.bof then%>
<option>还没有栏目</option>
<%else%>
<%
do while not rsbbscla.eof %>
<option value="admin_BbsManage.asp?bbsclass=<%=rsbbscla("bbsclass")%>"><%=rsbbscla("bbsclass")%></option>
<%
rsbbscla.movenext
loop
end if
%>
<%
rsbbscla.close
set rsbbscla=nothing
%>
</select></td>
</tr>
<tr>
<td align="center" class="txt1"><span class="txt03">
<%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
</span></td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#F5F8F5">
<tr align="center">
<td width="5%" class="tbbgtitle">选定</td>
<td width="35%" class="tbbgtitle">主题</td>
<td width="10%" class="tbbgtitle">作者</td>
<td width="19%" class="tbbgtitle">时间</td>
<td width="16%" class="tbbgtitle">所属栏目</td>
<td width="10%" class="tbbgtitle">当前状态</td>
<td width="5%" class="tbbgtitle">操作</td>
<%if session("adminpurview")<=3 then%>
<%end if%>
</tr>
<% for i=1 to rs.pagesize
if rs.eof then
exit for
end if %>
<tr align="center">
<td class="tbbgtitle"><input name="bid" type="checkbox" class="but" id="bid3" value="<%=rs("bookid")%>"></td>
<td class="txt05"><a href="admin_BbsShow.asp?bookid=<%=rs("bookid")%>" title="<%=rs("title")%>">
<%if len(rs("title"))>15 then
response.write""&left(rs("title"),15)&"…"
else
response.write""&rs("title")&""
end if%>
</a></td>
<td class="txt05"><%=rs("usid")%></td>
<td class="txt05"><%=rs("datetime")%></td>
<td class="txt05"><%=rs("bbsclass")%></td>
<td class="txt05"><%if rs("tellself")=true then%>
悄悄话<br>
<%end if%>
<%if rs("locknews")=true then%>
已锁定<br>
<%else%>
<font color="#FF9900">未锁定<br></font>
<%end if%>
<%if rs("passed")=true then%>
已审核
<%else%>
<font color="#FF9900">未审核</font>
<%end if%></td>
<td class="txt05"><a href="admin_BBSMod.asp?bookid=<%=rs("bookid")%>" >修改</a><br><a href="admin_BBSDel.asp?bookid=<%=rs("bookid")%>" onClick="return BBSDel();">删除</a></td>
<%if session("adminpurview")<=3 then%>
<%end if%>
</tr>
<% rs.movenext
next
%>
</table></td>
</tr>
<tr>
<td align="center" class="txt1"><span class="txt03">
<%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
</span></td>
</tr>
<tr>
<td align="center" class="txt05"><input name="chkAll" type="checkbox" class="but" id="chkAll" onClick=CheckAll(this.form) value="checkbox">
单击选中本页所有主题
<input name="Submit" type="submit" class="but" value="单击删除本页所有主题"></td>
</tr>
<tr>
<td align="center" class="txt05"> </td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><form name="search" method="get" action="admin_BbsManage.asp">
<p class="txt05"><strong>请输入主题：</strong>
<input name="title" type="text" class="but" id="title" size="20" maxlength="50">
<input name="Submit2" type="submit" class="but" value="查找">
请输入主题关键字，如果为空，则查找所有的主题。
</p>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -