📄 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")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
if sp="" then sp="a"
if c1="" then c1=bbs(1)
if c2="" then c2=bbs(2)
set bbs=nothing
lgname=Request.Cookies(cn)("lgname")
lgpwd=request.cookies(cn)("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' width='94%'><tr><td width='240' background='pic/"&sp&"3.gif'> <img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=94% >"
d1="<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/<%=sp%>3.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
id=bn&"0"
myconn.execute("insert into bdinfo(id,bn,bdname,key)values("&id&","&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"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"
set bbs=myconn.execute("select*from bbsinfo")
%>
<form method="POST" action="admin-gl.asp?menu=bbs">
<%=t1%>论坛参数设置<%=t2&d1%><hr>
<P style="MARGIN: 5px"><b>论坛常规设置：</b></p>
<P style="MARGIN: 5px">论坛名称:<input type="text" name="tl" size="37" value="<%=bbs("tl")%>"><font color="#FF0000">·</font>(你的论坛的名称)</p>
<P style="MARGIN: 5px">论坛顶部广告:（可以使用html）</p>
<P style="MARGIN: 5px"><textarea rows="5" name="topinfo" cols="69"><%=bbs("topinfo")%></textarea></p><hr>
<P style="MARGIN: 5px"><b>论坛上传设置：</b></p>
<P style="MARGIN: 5px">每次上传个数：<input type="text" name="upnum" size="5" value="<%=bbs("upnum")%>"> 个<font color="#FF0000">·</font></p>
<P style="MARGIN: 5px">最大上传大小：<input type="text" name="upsize" size="5" value="<%=bbs("upsize")%>"> KB<font color="#FF0000">·</font></p>
<hr><P style="MARGIN: 5px"><b>论坛默认样式设置：</b></p>
<P style="MARGIN: 5px">默认边框颜色：<input type="text" name="c1" size="20" value="<%=bbs("c1")%>"><font color="#FF0000">·</font>(表格边框的颜色)</p>
<P style="MARGIN: 5px">默认论坛底色：<input type="text" name="c2" size="20" value="<%=bbs("c2")%>"><font color="#FF0000">·</font>(一些表格的底色)</p>
<P style="MARGIN: 5px">默认论坛样式：<input type="text" name="style" size="10" value="<%=bbs("style")%>"><font color="#FF0000">·</font>(可以参照以下填写)</p>
<P style="MARGIN: 5px">论坛样式参照：（蓝色：a 绿色：b 红色：c 黄色：d 灰色：e）</p>
<hr>
<P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
<%=d2%>
</form>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -