📄 admin-right.asp
字号:
<!--#include file="conn.asp"--><!--#include file="fun.asp"-->
<link rel="stylesheet" type="text/css" href="css.css">
<%set bbs=myconn.execute("select*from bbsinfo")
c1=bbs(1)
c2=bbs(2)
set bbs=nothing
lgname=Request.Cookies("lgname")
lgpwd=request.cookies("lgpwd")
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
noyes="登 陆 失 败 ！"
mes="你不能进入后台管理。<br>·你现在登陆论坛的用户名 "&lgname&" 不是管理员。·"%>
<!--#include file="mes.asp"-->
<%response.end
else
t1="<div align=center><center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=94% ><tr><td width=50% background=pic/5.gif><img border=0 src=pic/9.gif align=absbottom><font color=#FFFFFF><b>"
t2="</b></font></td><td width=50% background=pic/7.gif><img border=0 src=pic/6.gif></td></tr></table></center></div>"
d1="<div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=94% ><tr><td width= 100% >"
d2="</td></tr></table></center></div>"
function bdlist(sename,n)
response.write"<select size=1 name="&sename&" style='font-size: 9pt; '>"
if n=1 then
response.write"<option value=all selected>所有论坛</option>"
end if
set bf=myconn.execute("select*from bdinfo where key<>'0'")
do while not bf.eof
response.write"<option value="&bf("bn")&">"&bf("bdname")&"</option>"
bf.movenext
loop
bf.close
set bf=nothing
response.write"</select>"
end function
%>
<body topmargin="0" leftmargin="0"><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="28" background="pic/8.gif" align="center">
<b><font color="#FFFFFF">论坛后台管理系统</font></b></td>
</tr>
</table><br>
<%action=request.querystring("action")
select case action%>
<%case"addfl"
noyes="添 加 分 类"
mes="<P style='MARGIN: 5px'>分类序号：<input type=text name=bn size=20><font color=#FF0000>·</font>只能填 <b>0</b> 除外的数字</p><P style='MARGIN: 5px'>分类名称：<input type=text name=bdname size=20><font color=#FF0000>·</font>分类的名称，无限制</p><P style='MARGIN: 5px'><input type=submit value=' 提 交 ' name=B1> <input type=reset value=' 重 置 ' name=B2></p>"
%>
<%
bn=request.form("bn")
bdname=Replace(Request.Form("bdname"),"'","''")
if bn="" or bn="0" or bdname="" or not isnumeric(bn) then
%>
<%else
set flyn=myconn.execute("select bn,bdname from bdinfo where bn='"&bn&"' and key='0'")
if not flyn.eof then
mes="<br>·分类序号 <b>"&bn&"</b> 已经存在！·请选择别的分类序号<br><br>"
else
myconn.execute("insert into bdinfo(bn,bdname,key)values('"&bn&"','"&bdname&"','0')")
mes="<br>·添加论坛分类成功！<br><br>"
end if
set flyn=nothing
end if
%><form method=POST>
<!--#include file="mes.asp"--></form>
<%case"bzgl"
bz=request.querystring("bz")
if bz="add" then
bt="添加新版主"
go="add"
put=" 添 加 "
elseif bz="del" then
bt="删除版主"
go="del"
put=" 删 除 "
end if
%>
<form action="admin-gl.asp?menu=bzgl&go=<%=go%>" method="POST">
<%=t1&bt&t2&d1%>
<P style='MARGIN: 5px'>版主名称：<input type="text" name="name" size="20"></p><P style='MARGIN: 5px'>管理论坛：<%=bdlist("bd",0)%>
</p><P style='MARGIN: 5px'><input type="submit" value=<%=put%> name="B1">
<input type="reset" value=" 重 置 " name="B2"></p>
<%=d2%>
</form>
<%case"chadmin"%><%=t1%>现有管理员<%=t2&d1%><P style="MARGIN: 5px">现有管理员名称：<br><%
set sho=myconn.execute("select name from admin where bd='70767766'")
do while not sho.eof
%><%=sho("name")%> <%sho.movenext
loop
set sho=nothing%><%=d2%>
<form action="admin-gl.asp?menu=addadmin" method="POST">
<%=t1%>添加管理员<%=t2&d1%><P style="MARGIN: 5px">添加管理员名称：( 该名称必须已经在论坛中注册 ) <input type="text" name="adminname" size="20">
<input type="submit" value=" 添 加 " name="B1">
<input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<form action="admin-gl.asp?menu=deladmin" method="POST">
<%=t1%>删除管理员<%=t2&d1%><P style="MARGIN: 5px">删除管理员名称：<input type="text" name="adminname" size="20">
<input type="submit" value=" 删 除 " name="B1">
<input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%case"deluser"%>
<form action="admin-gl.asp?menu=deluser" method="POST">
<%=t1%>删除用户<%=t2&d1%><P style="MARGIN: 5px">用户名：<input type="text" name="delname" size="20">
<input type="submit" value=" 删 除 " name="B1">
<input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%case"lookuser"%><br>
<%=t1%>查 看 注 册 用 户<%=t2%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-left-width:1px; border-right-width:1px; border-top-width:1px" bordercolor="<%=c1%>" width="94%">
<tr>
<%
i=1
set rs=myconn.execute("select name from user")
do while not rs.eof
%>
<td width="12.5%" height="26"> <a target="_blank" href="userinfo.asp?name=<%=rs("name")%>"><%=rs("name")%></a></td>
<%
i=i+1
if i=9 then
response.write"</tr>"
i=1
end if
rs.movenext
Loop
rs.Close
set rs=nothing%></tr>
</table>
</center>
</div>
<%case"addpassuser"
bn=request.querystring("bn")
set showps=myconn.execute("select pass from bdinfo where bn='"&bn&"' and key<>'0'")
%>
<form method="POST" action="admin-gl.asp?menu=addpassuser&bn=<%=bn%>">
<%=t1%>修改论坛认证用户<%=t2&d1%>
<P style="MARGIN: 5px">下面是已经通过认证的用户，要添加请继续填写，各用户之间用“,”隔开。</p><P style="MARGIN: 5px"><b>
<font color="#FF0000">注意：</font></b>填写过程中一定不能使用回车</p><P style="MARGIN: 5px">
<textarea name="user" cols=90 rows="15"><%=showps("pass")%></textarea></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="b1"> <input type="reset" value=" 重 置 " name="b2">
</p><%set showps=nothing%>
</form>
<%case"bbs"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -