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/skins/<%=Request.Cookies("skins")%>/bbs.css rel=stylesheet>
<br><center>
<p></p>

<%


select case Request("menu")

case "bbsmanage"
bbsmanage

case "bbsmanagexiu"
bbsmanagexiu


case "bbsmanagexiuok"
bbsmanagexiuok

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")&"")
classs

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
%>
<script>function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}</script>
<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>



<%


sql="select * from class order by id"
rs.Open sql,Conn
do while not rs.eof

%>


<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="90%" class=a3>
  <tr>
    <td width="50%">
<%=rs("id")%>.<%=rs("classname")%>
    </td>

    <td width="50%" align="right">
    <a href=?menu=bbsadd&id=<%=rs("id")%>>建立论坛</a> | <a href=?menu=classxiu&id=<%=rs("id")%>>编辑分类</a> | <a href=?menu=classdel&id=<%=rs("id")%>>删除分类</a>

    　</td>
  </tr>
</table>
<%


sql="select * from bbsconfig  where classid="&rs("id")&""
rs1.Open sql,Conn
do while not rs1.eof
%>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="90%" class=a4>
  <tr>

<td width="50%">

<li><%=rs1("bbsname")%></td>
    
<td width="50%" align="right"><a href=?menu=bbsmanagexiu&id=<%=rs1("id")%>>编辑论坛</a> | <a onclick=checkclick('您确定要删除该论坛的所有资料?') href=?menu=bbsmanagedel&id=<%=rs1("id")%>>删除论坛</a>
　</td>
    
  </tr>
</table>
<%
rs1.movenext
loop
rs1.close




rs.movenext
loop
rs.close

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="修改"><center><br><br><a href=javascript:history.back()>< 返 回 ></a>
<%
rs.close
end sub

sub bbsadd

%>

<fieldset style="WIDTH: 550">
<legend>建立论坛资料</legend>
</center>
<form name="form" method="post" action="?menu=bbsaddok">
<input type=hidden name=classid value=<%=Request("id")%>>

　论坛名称 <input size="20" name="bbsname"> 
<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>
<center><br><br><a href=javascript:history.back()>< 返 回 ></a>


<%
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 where username='"&master(i)&"' and membercode<4")
next
end if

rs.close

classs

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 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 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:550">
<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"></fieldset><br></form>
<center><br><a href=javascript:history.back()>< 返 回 ></a>
<%
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>

<%
sql="select id,bbsname,classid from bbsconfig order by classid,id"
rs.Open sql,Conn
do while not rs.eof
Classid=Trim(Rs("classid"))
		if TClass <> Classid Then
		Response.write "<option style=BACKGROUND-COLOR:ECF5FF value=''>╋ "&Conn.Execute("Select classname From class where id="&Classid)(0)&"</option>"
		TClass = Classid
		end if
		
	Response.write "<option value="&rs("id")&""&selected&">　├『"&rs("bbsname")&"』</option>"
	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>

</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



%>