📄 bbs_board.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="opendb.asp" -->
<%
'管理员删除大版-----------
if Request("del_board")<>"" then
delsql="delete from bbs_suboard where bid="&Request("del_board") '先删除其子版
conn.execute(delsql)
delsql="delete from bbs_board where bid="&Request("del_board") '删除大版
conn.execute(delsql)
end if
'删除结束---------------
'新增大版begin----
if Request("add_board")<>"" then
'delsql="insert into bbs_board board values '"&Request("add_board")&"'"
'conn.execute(delsql)
sql="select * from bbs_board"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust.addnew
rscust("board")=Request("add_board")
rscust.update
set rscust=nothing
end if
'新增大版end----
'管理员删除子版-----------
if Request("del_suboard")<>"" then
delsql="delete from bbs_suboard where subid="&Request("del_suboard") '先删除其子版
conn.execute(delsql)
end if
'删除结束---------------
'新增子版begin----
if Request("add_suboard")<>"" and Request("board")<>"" then
sql="select * from bbs_suboard"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust.addnew
rscust("bid")=cint(Request("board"))
rscust("suboard")=Request("add_suboard")
rscust.update
set rscust=nothing
end if
'新增子版end----
'大版块改名-----------
if Request("board_rename")<>"" then
sql="select * from bbs_board where bid="&Request("board_name")
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust("board")=Request("board_rename")
rscust.update
set rscust=nothing
end if
'大版块改名结束---------------
'小版块改名-----------
if Request("suboard_rename")<>"" then
sql="select * from bbs_suboard where subid="&Request("suboard_name")
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust("suboard")=Request("suboard_rename")
rscust.update
set rscust=nothing
end if
'小版块改名结束---------------
'管理员锁定版块-----------
if request("submit")="锁定版块" then
conn.execute("update bbs_suboard set stopflag=false")
for each item in request("stopflag")
delsql="update bbs_suboard set stopflag=1 where subid="&item&""
conn.execute(delsql)
next
end if
'锁定结束---------------
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
<script>
<!--
function bren_form() {
validity=true;
if (!check_empty(document.form_bren.board_rename.value))
{ validity=false;
alert('要改名请输入！');
document.form_bren.board_rename.focus();
return validity; }
if (validity==true)
{return(confirm("真的改名吗？"));}
return validity;
}
function check_empty(text) {
return (text.length > 1); // returns false if empty
}
-->
</script>
<script>
<!--
function subren_form() {
validity=true;
if (!check_empty(document.form_subren.suboard_rename.value))
{ validity=false;
alert('要改名请输入！');
document.form_subren.suboard_rename.focus();
return validity; }
if (validity==true)
{return(confirm("真的改名吗？"));}
return validity;
}
function check_empty(text) {
return (text.length > 1); // returns false if empty
}
-->
</script>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("您确认删除吗? 请注意删除后无法恢复!"))
return false;
}//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<table width="96%" border="0" align="center" class="px14">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" bgcolor="#0065CA"><font color="#FFFFFF">版 块 管 理</font></td>
</tr>
</table>
<br>
<table width="96%" border="0" align="center" class="px14">
<tr valign="top">
<td width="33%"><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#B5DAFF">删除大版块</td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form1" method="post" onsubmit="return cform()">
<table width="100%" border="0">
<tr>
<td width="34%" align="right">选择版块</td>
<td width="66%"> <%
sql="select * from bbs_board order by bid"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%> <select name="del_board" class="input" id="del_board">
<%do while not rscust.eof %>
<option value="<%= rscust("bid") %>"><%= rscust("board") %></option>
<% rscust.movenext
loop
set rscust=nothing%>
</select></td>
</tr>
<tr>
<td align="right"> </td>
<td><font color="#FF0000">注意:删除大版块会连子版一起删除</font></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit" value="删除大版"></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
<td width="33%"><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#B5DAFF">增加大版块</td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form2" method="post" action="">
<table width="100%" border="0">
<tr>
<td width="34%" align="right">输入新版块</td>
<td width="66%"><input name="add_board" type="text" class="input" id="add_board" maxlength="20">
</td>
</tr>
<tr>
<td align="right"> </td>
<td><br>
</td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="submit" name="Submit2" value="增加大版"></td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
</table>
</form></td>
</tr>
</table></td>
<td width="33%"><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#B5DAFF">大版块改名</td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#EFEFEF"><form method="post" name="form_bren" onsubmit="return bren_form()()">
<table width="100%" border="0">
<tr>
<td width="34%" align="right">选择版块</td>
<td width="66%">
<%
sql="select * from bbs_board order by bid"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -