admin_board.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<!--#include file="./inc/const.asp"-->
<%if session("userkey")=4 then%>
<%call main()%>

<%else%>
<script language=javascript>  
alert( "错误：您无权进行版面管理！"  );
location.href = "javascript:history.back()"  
</script>
<%end if%>


<%sub main()%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_board.asp>版面管理</a></td>
  </tr>
</table>
<%
if Request("action") = "addclass" then
	call addclass()
elseif request("action") = "saveclass" then
	call saveclass()
elseif request("action") = "delclass" then
	call delclass()
elseif request("action") = "editclass" then
	call editclass()
elseif request("action") = "saveeditclass" then
	call saveeditclass()
elseif request("action") = "addboard" then
	call addboard()
elseif request("action") = "saveboard" then
	call saveboard()
elseif request("action") = "delboard" then
	call delboard()
elseif request("action") = "editboard" then
	call editboard()
elseif request("action") = "saveeditboard" then
	call saveeditboard()
else
	call boardlist()
end if
%>
<%end sub%>


<%sub boardlist()%>
<table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
  <tr bgcolor=#cccccc><td colspan=4><center><b>所有版面列表</b></td></tr>
  <tr bgcolor=#ffffff><td colspan=4>【<a href=admin_board.asp?action=addclass><font color=#cc0000>增加总类</font></a>】</td></tr>
<%set rs_1 = server.CreateObject ("adodb.recordset")
set rs_2 = server.CreateObject ("adodb.recordset")
sql_2 = "select * from class order by classid"
rs_2.Open sql_2,conn,1,1
do while not rs_2.Eof
%>
  <tr bgcolor=#eeeeee> 
    <td>【<b><%=rs_2("classname")%></b>】(<%=rs_2("classid")%>)</td>
    <td>管理员:<a href=userinfo.asp?username=<%=rs_2("classMaster")%>><%=rs_2("classMaster")%></a></td>
    <td >简介：<%=rs_2("classinfo")%> </td>
    <td ><a href=admin_board.asp?action=addboard&classid=<%=rs_2("classid")%>>增加子类</a> 
      | <a href=admin_board.asp?action=editclass&classid=<%=rs_2("classid")%>>修改</a> 
      | <a href=admin_board.asp?action=delclass&classid=<%=rs_2("classid")%>>删除</a> 
    </td>
  </tr>
<%sql_1 = "select boardid,boardname,classid,boardinfo,boardmaster from board where classid="&rs_2("classid")&" order by boardid"
rs_1.Open sql_1,conn,1,1
do while not rs_1.EOF 
%>
<tr bgcolor=#eeeeee><td><%=rs_1("boardname")%>(<%=rs_1("boardid")%>)</td><td>斑竹:<a href=userinfo.asp?username=<%=rs_1("boardmaster")%>><%=rs_1("boardmaster")%></a></td><td >简介：<%=rs_1("boardinfo")%> </td><td >[<a href=admin_board.asp?action=editboard&boardid=<%=rs_1("boardid")%>&classid=<%=rs_2("classid")%>>修改</a>]  [<a href=admin_board.asp?action=delboard&boardid=<%=rs_1("boardid")%>>删除] </td></tr>
<%
rs_1.MoveNext
loop
rs_1.Close 
rs_2.MoveNext 
Loop
rs_2.Close
%>
</table>
<%end sub%>


<%sub addclass()%>
<%set rs = server.CreateObject ("Adodb.recordset")
	sql="select classid from class"
	rs.open sql,conn,1,1
	num=rs.recordcount
	rs.close%>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<form action="admin_board.asp?action=saveclass" method=POST name=addclass>
<tr bgcolor="#CCCCCC" align=center><td colspan="2"><b>增加版面总类</b></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类名称：</td><td><input type=text name=classname size=20></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类排序：</td><td><input type=text name=classid size=5 value="<%=num+2%>"></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类说明：</td><td><textarea name="classinfo" cols="40" rows="5"></textarea></td></tr>
<tr bgcolor="#eeeeee"><td align=right>管理员：</td>
<td><select name=classMaster>
<%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select userid,username,userkey from users where userkey>=3 order by userkey desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<option value="">还没有管理员<option>
<%else%>
<%do while not rs.EOF%>
<option value="<%=rs("username")%>"><%=rs("username")%></option>
<%rs.MoveNext 
loop
end if
rs.Close 
set rs=nothing %>
</select></td></tr>
<tr bgcolor=#eeeeee><td></td><td><input type="submit" name="Submit" value="确定"> &nbsp;&nbsp;<input type="Reset" name="Reset" value="重填"></td></tr>
</form></table>
<%end sub%>


<%sub saveclass()%>
<% dim classid
set rs = server.CreateObject ("adodb.recordset")
 sql="select classid from class where classid="+cstr(request("classid"))
 rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
rs.close
set rs=nothing%>
<script language=javascript>  
alert( "错误：总类版面序号有重复"  );
location.href = "javascript:history.back()"  
</script>
<% 
exit sub
end if%>
<%if request("classname")="" then%>
<script language=javascript>  
alert( "错误：请输入类别名称！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("classinfo")="" then%>
<script language=javascript>  
alert( "错误：请输入类别说明！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from class"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("classname") = Request("classname")
	rs("classid") = Request("classid")
	rs("classinfo") = Request("classinfo")
	rs("classMaster") = Request("classMaster")
	rs("Addtime") = now()
	rs("classNum") = 0
	rs.Update 
	rs.Close 
set rs=nothing
%>
<script language=javascript>  
alert( "恭喜：总类版面添加成功"  );
location.href = "admin_board.asp"  
</script>
<%end if%>
<%end sub%>




<%sub delclass()






	set rs = server.CreateObject ("adodb.recordset")
	sql = "delete from class where classid="+Cstr(Request("classid"))
	conn.execute(sql)
	sql = "delete from board where classid="+Cstr(Request("classid"))
	conn.execute(sql)
	sql = "delete from topic where classid="+Cstr(Request("classid"))
	conn.execute(sql)
	sql="select boardid from board where classid="+Cstr(Request("classid"))
	rs.open sql,conn,1,1
	do while not rs.eof
	sql_1 = "delete from article where boardid="+cstr(rs("boardid"))
	conn.execute(sql_1)
	rs.movenext
	loop
	rs.close
	set rs=nothing
%>
<script language=javascript>  
alert( "总类删除成功"  );
location.href = "admin_board.asp"  
</script>
<%end sub%>



<%sub editclass()%>
<%
     set rs=server.createobject("adodb.recordset")
   sql="select * from [class] where classid="&request("classid")
   rs.open sql,conn,1,1
%>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<form action="admin_board.asp?action=saveeditclass&classid=<%=request("classid")%>" method=POST name=editclass>
<tr bgcolor="#CCCCCC" align=center><td colspan="2"><b>修改版面总类</b></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类名称：</td><td><input type=text name=classname size=20 value="<%=rs("classname")%>"></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类排序：</td><td><input type=text name=newclassid size=5 value="<%=rs("classid")%>"></td></tr>
<tr bgcolor="#eeeeee"><td align=right>总类说明：</td><td><textarea name="classinfo" cols="40" rows="5"><%=rs("classinfo")%></textarea></td></tr>
<tr bgcolor="#eeeeee"><td align=right>管理员：</td>
<td><select name=classMaster>
<%
set rs1 = server.CreateObject ("Adodb.recordset")
sql = "select userid,username,userkey from users where userkey>=3 order by userkey desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
%>
<option value="">还没有管理员<option>
<%else%>
<%do while not rs1.EOF%>
<option value="<%=rs1("username")%>" <%if rs1("username")=rs("classmaster") then%> selected<%end if%> ><%=rs1("username")%></option>
<%rs1.MoveNext 
loop
end if
rs1.Close 
set rs1=nothing %>
</select></td></tr>
<tr bgcolor=#eeeeee><td></td><td><input type="submit" name="Submit" value="确定"> &nbsp;&nbsp;<input type="Reset" name="Reset" value="重填"></td></tr>
</form></table>
<%end sub%>



<%sub saveeditclass()%>
<% if request("classid")="" then %>
<script language=javascript>  
alert( "错误：请输入总类版面序号"  );
location.href = "javascript:history.back()"  
</script>
<% 
exit sub
end if%>
<%if request("classname")="" then%>
<script language=javascript>  
alert( "错误：请输入类别名称！"  );
location.href = "javascript:history.back()"  
</script>
<%elseif request("classinfo")="" then%>
<script language=javascript>  
alert( "错误：请输入类别说明！"  );
location.href = "javascript:history.back()"  
</script>
<%else%>
<%sql="update class set classname='"&request("classname")&"',classid='"&request("newclassid")&"',classinfo='"&request("classinfo")&"',classmaster='"&request("classmaster")&"' where classid="&cstr(request("classid"))
conn.execute(sql)
sql="update board set classid="&request("newclassid")&" where classid="&cstr(request("classid"))
conn.execute(sql)
sql="update article set classid="&request("newclassid")&" where classid="&cstr(request("classid"))