📄 manmenu.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="set.asp"-->
<!--#include file="func.asp"-->
<%
logchk session("userid"),session("password")
if session("userid")="" or session("password")="" or session("manbid")="" then
session.abandon
response.write "<p align='center'>您无权管理论坛！如果您是版主请重新登录！</p>"
response.end
end if
if loginfo=1 and session("logcreate")=1 then
logwrite(session("userid"))
session("logcreate")=0
end if
if htmlyn="" or htmlyn<>1 or htmlyn<>0 then
htmlyn=0
end if
if htmlyn=0 then
htmlyninfo="此论坛不支持HTML语句！请不要使用HTML语句。"
else
htmlyninfo="此论坛支持HTML语句！您可以随便使用HTML语句。"
end if
%>
<html>
<head>
<title>my bbs</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF">
<table width="100%" border="1" cellspacing="0" cellpadding="0" align="center" height="10" bordercolor="#7C96B8" bordercolordark="#FFFFFF">
<tr>
<td colspan="1" height="15" background="images/mmTo.gIf" width="416" bgcolor="#7C96B8"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<div align="center">论 坛 管 理</div>
</td>
</tr>
<tr>
<td height="20" class=trtop><div align='center'><a href='man.asp' target='right'>帖 子 管 理</a></div></td>
</tr>
<%if session("manbid")=0 then%>
<%
set breco=server.createobject("adodb.recordset")
sqlstr="select * from board"
breco.open sqlstr,conn,1,1
if breco.eof then
%>
<tr>
<td height="20">
<div align="center">各 版 未 设</div>
</td>
</tr>
<%
end if
do while not breco.eof
bid=breco("bid")
cname=breco("cname")
%>
<tr>
<td height="20">
<div align="center"><a href='man.asp?bid=<%=bid%>' target='right' title='管理<%=cname%>版'><%=cname%></a></div>
</td>
</tr>
<%
breco.movenext
loop
%>
<tr>
<td height="20">
<div align="center"><a href="boardman.asp" title="版面管理" target="right">版 面 管 理</a></div>
</td>
</tr>
<tr>
<td height="20">
<div align="center"><a href="userman.asp" title="版主管理" target="right">版 主 管 理</a></div>
</td>
</tr><tr>
<td height="20">
<div align="center"><a href="admin.asp" title="管理用户" target="right">管 理 用 户</a></div>
</td>
</tr>
<%
end if
%>
<tr>
<td height='15' align='center' class=trtop><a href="editinfo.asp" target="right" title="修改个人资料和密码">修 改 资 料</a></td>
</tr>
<tr>
<td >
<div align="center"><a href="loglist.asp" title="登录情况一览表" target="right">登 录 情 况</a></div>
</td>
</tr>
<tr>
<td height='15' align='center'><a href="quit.asp" target="_top" title="退出版主管理">退 出 管 理</a></td>
</tr>
</table>
</body>
</html>
<%
set breco=nothing
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -