📄 admin_bbs.asp
字号:
<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/bbs.css rel=stylesheet>
<br><center>
<p></p>
<body background=images/bei.gif>
<%
select case Request("menu")
case "bbsmanage"
bbsmanage
case "bbsmanagexiu"
bbsmanagexiu
case "bbsmanagexiuok"
bbsmanagexiuok
case "bbslist"
bbslist
case "bbsadd"
bbsadd
case "bbsaddok"
bbsaddok
case "classs"
classs
case "classxiu"
classxiu
case "classadd"
if Request("classname")="" then
error2("请填写类别名称")
end if
rs.Open "class",Conn,1,3
rs.addnew
rs("id")=Request("id")
rs("classname")=Request("classname")
rs.update
rs.close
classs
case "classdel"
conn.execute("delete from [class] where id="&Request("id")&"")
classs
case "classxiuok"
conn.execute("update [class] set classname='"&Request("classname")&"',id="&Request("id")&" where id="&Request("oldid")&"")
classs
case "bbsmanagedel"
conn.execute("delete from [bbsconfig] where id="&Request("id")&"")
bbslist
case "clean"
conn.execute("delete from [forum] where deltopic=1")
error2("已经清空回收站了！")
case "delforumok"
if request("TimeLimit")="" then
error2("您没有选择日期！")
end if
if request("jh")="1" then
jh=" and goodtopic<>1"
end if
if request("bbsid")<>"" then
bbsid="and forumid="&request("bbsid")&""
end if
conn.execute("delete from [forum] where DateDiff('d',lasttime,now)>"&request("TimeLimit")&" "&jh&" "&bbsid&"")
error2("已经将"&request("TimeLimit")&"天没有用户回复的主题删除了！")
case "delretopicok"
conn.execute("delete from [reforum] where DateDiff('d',posttime,now)>"&request("TimeLimit")&"")
error2("已经将"&request("TimeLimit")&"天的回帖删除了！")
case "deltopicok"
if request("topic")="" then
error2("您没有输入字字符！")
end if
conn.execute("delete from [forum] where topic like '%"&request("topic")&"%' ")
error2("已经将标题里包含有 "&request("topic")&" 的帖子全部删除了！")
case "uniteok"
if Request("hbbs") = Request("ybbs") then
error2("不能选择相同论坛！")
end if
conn.execute("update [forum] set forumid="&Request("hbbs")&" where forumid="&Request("ybbs")&"")
conn.execute("update [reforum] set forumid="&Request("hbbs")&" where forumid="&Request("ybbs")&"")
error2("已经成功将2个论坛的资料合并了！")
end select
sub classs
rs.open "class order by id",conn
do while not rs.eof
classlist=""+classlist+""&rs("id")&"."&rs("classname")&" | <a href=?menu=classxiu&id="&rs("id")&">修改分类</a> | <a href=?menu=classdel&id="&rs("id")&">删除分类</a><br>"
rs.movenext
loop
rs.close
%><form method="post" action="?menu=classadd">
类别名称：（例如：电脑网络）<INPUT size=20 name=classname> 序号：<INPUT size=2 name=id value=<%=conn.execute("Select count(id)from class")(0)+1%>>
<input type=submit value="建立">
<br><br>
<table width="90%">
<tr>
<td width="100%" align="left">
<%=classlist%>
</td>
</tr>
</table>
<%
end sub
sub classxiu
sql="select * from class where id="&Request("id")&""
rs.Open sql,Conn
%>
<form method="post" action="?menu=classxiuok">修改论坛类别
<input type=hidden name=oldid value=<%=Request("id")%>>
类别名称：<INPUT size=20 name=classname value=<%=rs("classname")%>> 序号：<INPUT size=2 name=id value=<%=Request("id")%>>
<input type=submit value="修改">
<%
rs.close
end sub
sub bbsadd
rs.open "class order by id",conn
do while not rs.eof
classlist=""+classlist+"<option value="&rs("id")&">"&rs("classname")&"</option>"
rs.movenext
loop
rs.close
%>
<SCRIPT>
function VerifyInput(){
if (document.form.classid.value == "")
{
alert("请先建立论坛类别");
return false;
}
}
</SCRIPT>
<fieldset style="WIDTH: 600">
<legend>建立论坛资料</legend>
</center>
<form name="form" method="post" action="?menu=bbsaddok" onsubmit="return VerifyInput();">
论坛名称 <input size="10" name="bbsname"> 类别 <select name="classid">
<%=classlist%>
</select>
<br>
论坛版主 <input size="30" name=moderated> 多版主添加请用|分隔，如：yuzi|裕裕
<br>
论坛介绍 <textarea rows="5" name="intro" cols="50"></textarea>
<br>
访问密码 <input size="10" name="pass"> 如果此论坛为公开论坛，此项请不要填写
<br> <input type="submit" value=" 建 立 " name="Submit"><br></form></fieldset><br>
<%
end sub
sub bbsaddok
if Request("bbsname")="" then
error2("请输入论坛名称")
end if
moderated2="|"&replace(Request("moderated"),"||","|")&"|"
rs.Open "bbsconfig",Conn,1,3
rs.addnew
rs("classid")=Request("classid")
rs("bbsname")=Request("bbsname")
rs("moderated")=replace(moderated2,"||","|")
rs("intro")=Request("intro")
rs("pass")=Request("pass")
rs.update
id=rs("id")
if rs("moderated")<>"" then
master=split(rs("moderated"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=3,levelname='论坛版主',levelimage='<img src=images/level12.gif>' where username='"&master(i)&"' and membercode<4")
next
end if
rs.close
%>
<a target="_blank" href="forumdisplay.asp?forumid=<%=id%>"><%=Request("bbsname")%></a><br><br><a href=javascript:history.back()>返 回</a>
<%
end sub
sub bbslist
rs.open "bbsconfig",conn
do while not rs.eof
classlist=""+classlist+"<tr><td width=350>"&rs("id")&".<a target=_blank href=forumdisplay.asp?forumid="&rs("id")&">"&rs("bbsname")&"</a> <font color=C0C0C0>（版主："&rs("moderated")&"）</font></td><td align=center><a href=?menu=bbsmanagexiu&id="&rs("id")&">编辑论坛</a></td><td><a onclick=checkclick('您确定要删除该论坛的所有资料?') href=?menu=bbsmanagedel&id="&rs("id")&">删除论坛</a></td></tr>"
rs.movenext
loop
rs.close
%>
<table width=600>
<%=classlist%>
</table>
<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>
<%
end sub
sub bbsmanagexiuok
moderated2="|"&replace(Request("moderated"),"||","|")&"|"
sql="select * from bbsconfig where id="&Request("id")&""
rs.Open sql,Conn,1,3
if rs("moderated")<>"" then
master=split(rs("moderated"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=1,levelname='普通会员',levelimage='<img src=images/level1.gif>' where username='"&master(i)&"' and membercode<4")
next
end if
rs("classid")=Request("classid")
rs("bbsname")=Request("bbsname")
rs("moderated")=replace(moderated2,"||","|")
rs("intro")=Request("intro")
rs("pass")=Request("pass")
rs.update
if rs("moderated")<>"" then
master=split(rs("moderated"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=3,levelname='论坛版主',levelimage='<img src=images/level12.gif>' where username='"&master(i)&"' and membercode<4")
next
end if
rs.close
%>
编辑成功<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub
sub bbsmanagexiu
rs.open "class order by id",conn
do while not rs.eof
classlist=""+classlist+"<option value="&rs("id")&">"&rs("classname")&"</option>"
rs.movenext
loop
rs.close
sql="select * from bbsconfig where id="&Request("id")&""
rs.Open sql,Conn
%>
<fieldset style="WIDTH:600">
<legend>编辑论坛资料</legend>
</center>
<form method="post" action="?menu=bbsmanagexiuok">
<input type=hidden name=id value=<%=rs("id")%>>
论坛名称 <input size="10" name="bbsname" value="<%=rs("bbsname")%>"> 类别 <select name="classid">
<option value="<%=rs("classid")%>">默认</option>
<%=classlist%>
</select><br>
论坛版主 <input size="30" name=moderated value="<%=rs("moderated")%>"> 多版主添加请用|分隔，如：yuzi|裕裕
<br>
论坛介绍 <textarea rows="5" name="intro" cols="50"><%=rs("intro")%></textarea>
<br>
访问密码 <input size="10" name="pass" value="<%=rs("pass")%>"> 如果此论坛为公开论坛，此项请不要填写
<br> <input type="submit" value=" 编 辑 " name="Submit"><br></form>
<%
end sub
sub bbsmanage
%>
主题：<b><font color=red><%=conn.execute("Select count(id)from forum")(0)%></font></b> 条<br>回帖：<font color=red><%=conn.execute("Select count(id)from reforum")(0)%></font> 条<br>
<form method="post" action="?menu=delforumok">
<fieldset style=width:500><legend>批量删除主题</legend>
删除 <select name=TimeLimit>
<option value="30">30</option>
<option value="60" selected>60</option>
<option value="90">90</option>
</select> 天没有用户回复的主题 <input type="checkbox" value="1" name="jh" checked>精华帖子除外
<br>
<select name="bbsid">
<option value="">所有论坛</option>
<%
rs.Open "class order by id",Conn
do while not rs.eof
%>
<option value="" style=BACKGROUND-COLOR:ECF5FF>╋ <%=rs("classname")%></option>
<%
sql="select id,bbsname from bbsconfig where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
%>
<option value="<%=rs1("id")%>"> ├『<%=rs1("bbsname")%>』</option>
<%
rs1.movenext
loop
rs1.close
rs.movenext
loop
rs.close
%>
</select>
<input type="submit" value=" 确 定 "></form>
<form method="post" action="?menu=deltopicok">
删除标题里包含有 <input size="20" name="topic"> 的所有帖子 <input type="submit" value="确定"></form>
<input type="button" value=" 清空回收站 " onclick=javascript:open('?menu=clean','_top','')>
</fieldset>
<form method="post" action="?menu=delretopicok">
<fieldset style=width:500><legend>批量删除回帖</legend>
删除 <select name=TimeLimit>
<option value="30">30</option>
<option value="60" selected>60</option>
<option value="90">90</option>
</select> 天以前的回帖 <input type="submit" value=" 确 定 "></form>
</fieldset>
<form method="post" action="?menu=uniteok">
<fieldset style=width:500><legend>合并论坛数据</legend>
将<br>
<select name="ybbs">
<%
rs.Open "bbsconfig",Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>">『<%=rs("bbsname")%>』</option>
<%
rs.movenext
loop
rs.close
%>
</select><br>
合并到<br>
<select name="hbbs">
<%
rs.Open "bbsconfig",Conn
do while not rs.eof
%>
<option value="<%=rs("id")%>">『<%=rs("bbsname")%>』</option>
<%
rs.movenext
loop
rs.close
%>
</select>
<br>
<INPUT type=submit value=" 确 定 " name=submit>
</fieldset>
</form>
<%
end sub
htmlend
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -