📄 supermanboard.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=images/font.css rel=stylesheet type=text/css>
<title>轻舞飞扬--BBS</title>
<style type="text/css">
<!--
body {
background-image: url(images/background.gif);
}
.style4 {font-family: Georgia, "Times New Roman", Times, serif}
.style9 {color: #0000FF; font-size: 18px; }
-->
</style></head>
<% if session("superadmin")=0 then
response.redirect "nolog.asp"
end if
%>
<body>
<table width="463" border="3" align="center" cellpadding="1">
<tr>
<td><img src="images/qwfy.png" width="660" height="130"></td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFFFcc">
<%
response.write "超级管理员 |"
response.write " <a href=superlogout.asp>退出</a>"
%></td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFCC99">
<a href=supermanuser.asp>用户管理</a><%=" | "%><a href=supermanboard.asp>板块管理</a> </td>
</tr>
<tr>
<td align=center valign=center bgcolor="#FFFFcc">
<%
set conn=server.createobject("adodb.connection")
conn.open session("constr")
sqlstr="select * from t_board"
set rs=conn.execute(sqlstr)
%>
<table border=1 width=100%>
<tr bgcolor=#FFCCCC>
<td align=center bgcolor="#FFCCCC">板块名称</td>
<td align=center>板块描述</td>
<td align=center>板主</td>
<td align=center>主题数</td>
<td colspan=3 align=center>操作</td>
</tr>
<% while not rs.eof%>
<tr>
<td align=center><%=rs("f_boardname")%></td>
<td align=center><%=rs("f_comment")%></td>
<td align=center>
<%
sqlstr="select * from t_user where f_manboardid=" & rs("f_id")
set rs1=conn.execute(sqlstr)
while not rs1.eof
response.write rs1("f_name")
rs1.movenext
if not rs1.eof then
response.write " | "
end if
wend
%>
</td>
<td align=center><%=rs("f_topicnum")%></td>
<td><a href=supermanboard.asp?boardid=<%=rs("f_id")%>&action=mod>修改</td>
<td><a href=supermanboard.asp?action=add>增加</td>
<td><a href=superdelboard.asp?boardid=<%=rs("f_id")%>>删除</a></td>
</tr>
<% rs.movenext
wend
%>
</table>
<!--修改板块-->
<%
action=request("action")
if action="mod" then
boardid=request("boardid")
sqlstr="select * from t_board where f_id=" & boardid
set rs=conn.execute(sqlstr)
%>
<script language=vbscript>
sub datacheck()
if form1.boardname.value=empty then
msgbox "名称不能为空！"
exit sub
end if
if form1.comment.value=empty then
msgbox "描述不能为空！"
exit sub
end if
form1.submit
end sub
</script>
<form name=form1 action=supermodboard.asp method=post>
<table border=1>
<tr>
<td>名称</td>
<td><input type=text name=boardname size=60 value=<%=rs("f_boardname")%> ></td>
</tr>
<tr>
<td>描述</td>
<td><input type=text name=comment size=60 value=<%=rs("f_comment")%> ></td>
</tr>
<tr>
<td><input type=hidden name=boardid value=<%=boardid%>></td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=button value=修改 onclick=datacheck()> <input type=reset>
</td>
</tr>
</table>
</form>
<a href=supermanboard.asp>取消</a>
<%
end if
%>
<!--增加板块-->
<%
action=request("action")
if action="add" then
%>
<script language=vbscript>
sub datacheck()
if form1.boardname.value=empty then
msgbox "名称不能为空！"
exit sub
end if
if form1.comment.value=empty then
msgbox "描述不能为空！"
exit sub
end if
form1.submit
end sub
</script>
<form name=form1 action=superaddboard.asp method=post>
<table border=1>
<tr>
<td>名称</td>
<td><input type=text name=boardname size=60></td>
</tr>
<tr>
<td>描述</td>
<td><input type=text name=comment size=60></td>
</tr>
<tr>
<td colspan=2 align=center>
<input type=button value=增加 onclick=datacheck()> <input type=reset>
</td>
</tr>
</table>
</form>
<a href=supermanboard.asp>取消</a>
<%
end if
%> </td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#CC6633">
<span class="style9">版权所有@<span class="style4">corner</span></span></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -