📄 bbs_bz.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="opendb.asp" -->
<%
if request("Submit")="增加版主" then
insert="insert into bbs_bz (userid,suboard) values ("&Request("userid")&","&Request("suboard")&")"
conn.execute(insert)
end if
'删除版主-----------
if request("submit")="删除版主" then
for each item in request("id")
delsql="delete from bbs_bz where id="&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 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">
<tr>
<td align="center" bgcolor="#B5DAFF">设置版主</td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form5" method="post">
<table width="100%" border="0">
<tr>
<td width="33%" align="right">选择子版块</td>
<td width="67%"> <select name="suboard" class="input" id="select4">
<%
sql="select * from bbs_board order by bid"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
do while not rscust.eof%>
<%
sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
set rs=Server.Createobject("ADODB.Recordset")
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<option value="<%= rs("subid") %>"><%= rscust("board")%> -> <%= rs("suboard")%></option>
<% rs.movenext
loop
set rs=nothing
%>
<% rscust.movenext
loop
set rscust=nothing
%>
</select></td>
</tr>
<tr>
<td align="right">选择用户名</td>
<td><select name="userid" class="input" id="userid">
<%
sqlstr="select userid,nickname from users order by nickname"
set rs=Server.Createobject("ADODB.Recordset")
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<option value="<%= rs("userid") %>"><%= rs("nickname")%></option>
<% rs.movenext
loop
set rs=nothing
%>
</select> </td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="Submit" type="submit" id="Submit3" value="增加版主"></td>
</tr>
</table>
</form></td>
</tr>
</table>
<br>
<table width="96%" border="0" align="center">
<tr>
<td align="center" bgcolor="#B5DAFF">删除版主</td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#EFEFEF"> <table width="100%" border="1" cellspacing="0">
<tr bgcolor="#CCCCCC">
<td width="45%">版块</td>
<td width="38%">目前版主</td>
<td width="17%">删除版主</td>
</tr>
<%
sql="select * from bbs_board order by bid"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
do while not rscust.eof%>
<%
sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
set rs=Server.Createobject("ADODB.Recordset")
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<form name="form6" method="post" onsubmit="return cform()">
<tr>
<td> <%= rscust("board")%> -> <%= rs("suboard")%> </td>
<td>
<%
set rsuser=Server.Createobject("ADODB.Recordset")
rsuser.open "select id,userid from bbs_bz where suboard="&rs("subid")&"",conn,1,3
do while not rsuser.eof
%>
<%
set rsbz=Server.Createobject("ADODB.Recordset")
rsbz.open "select nickname from users where userid="&rsuser("userid")&"",conn,1,3
do while not rsbz.eof
%>
<input name="id" type="checkbox" value="<%= rsuser("id") %>">
<%= rsbz("nickname") %>
<% rsbz.movenext
loop
set rsbz=nothing
%>
<% rsuser.movenext
loop
set rsuser=nothing
%>
</td>
<td><input name="Submit" type="submit"value="删除版主"></td>
</tr>
</form>
<% rs.movenext
loop
set rs=nothing
%>
<% rscust.movenext
loop
set rscust=nothing
%>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -