📄 admin-right.asp

📁 asp构建网站bbs.采用B/S架构
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"--><!--#include file="fun.asp"--><!--#include file="md5.asp"-->
<link href=css.css rel=stylesheet>
<%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")

tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbbs=tli(9)
lmbbs=tli(10)

if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
set bbs=nothing

lgname=Request.Cookies(cn&"0")("lgname")
lgpwd=request.cookies(cn&"0")("lgpwd")
lgpwd=md5(lgpwd)
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
set cjbz=nothing
response.redirect"admin-login.asp"
end if
t1="<div align=center><center> <table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' height='24'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 15px'>"
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

%><link rel="stylesheet" type="text/css" href="css.css">
<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
iidd=myconn.execute("select max(id) from bdinfo")(0)
if iidd="" or isnull(iidd) then iidd=0
id=int(iidd)+1
set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from [bdinfo]"
rs.open sql,myconn,1,2
rs.addnew
rs("id")=id
rs("bn")=bn
rs("bdname")=bdname
rs("key")=0
rs.update
rs.close
set rs=nothing
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="&nbsp;添&nbsp;加&nbsp;"
elseif bz="del" then
bt="删除版主"
go="del"
put="&nbsp;删&nbsp;除&nbsp; "
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">&nbsp;
<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")%>&nbsp;&nbsp;&nbsp;<%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"
%><SCRIPT>function showlm(){
if (document.form.lmyn.checked == true) {
lm.style.display = "";
}else{
lm.style.display = "none";
}
}
</SCRIPT>
<form method="POST" action="admin-gl.asp?menu=bbs" name="form">
<%=t1%>论坛参数设置<%=t2&d1%><hr color="<%=c1%>" size="1">
<P style="MARGIN: 5px"><b>论坛常规设置：</b></p>
<P style="MARGIN: 5px">论坛名称:<input type="text" name="tl" size="37" value="<%=tl%>"><font color="#FF0000">·</font>(你的论坛的名称)</p>
<P style="MARGIN: 5px">论坛顶部广告:（可以使用html）</p>
<P style="MARGIN: 5px"><textarea rows="5" name="topinfo" cols="69"><%=topinfo%></textarea></p>
<hr color="<%=c1%>" size="1">
<P style="MARGIN: 5px"><b>论坛上传设置：</b></p>
<P style="MARGIN: 5px">每次上传个数：<input type="text" name="upnum" size="5" value="<%=upnum%>"> 个<font color="#FF0000">·</font></p>
<P style="MARGIN: 5px">最大上传大小：<input type="text" name="upsize" size="5" value="<%=upsize%>"> KB<font color="#FF0000">·</font></p>
<hr color="<%=c1%>" size="1"><P style="MARGIN: 5px"><b>论坛默认样式设置：</b></p>
<P style="MARGIN: 5px">
<input type="radio" name="style" value="a" <%if tli(6)="a" then%>checked<%end if%>>蔚蓝 
<input type="radio" name="style" value="b" <%if tli(6)="b" then%>checked<%end if%>>绿色 
<input type="radio" name="style" value="c" <%if tli(6)="c" then%>checked<%end if%>>红色 
<input type="radio" name="style" value="d" <%if tli(6)="d" then%>checked<%end if%>>金黄 
<input type="radio" name="style" value="e" <%if tli(6)="e" then%>checked<%end if%>>银灰 
<input type="radio" name="style" value="f" <%if tli(6)="f" then%>checked<%end if%>>粉红 
<input type="radio" name="style" value="g" <%if tli(6)="g" then%>checked<%end if%>>蓝色 
<input type="radio" name="style" value="h" <%if tli(6)="h" then%>checked<%end if%>>紫色 
<input type="radio" name="style" value="i" <%if tli(6)="i" then%>checked<%end if%>>咖啡 
<input type="radio" name="style" value="j" <%if tli(6)="j" then%>checked<%end if%>>浅蓝 
</p>
<hr color="<%=c1%>" size="1">
<P style="MARGIN: 5px"><b>论坛联盟选项：</b></p><P style="MARGIN: 5px">是否显示论坛联盟：<input onclick=showlm() type="checkbox" name="lmyn" value="1" <%if int(lmbbs)<>0 then%>checked<%end if%>>显示</p><div id="lm" <%if int(lmbbs)=0 then%>style="DISPLAY: none"<%end if%>><P style="MARGIN: 5px">
<%if int(lmbbs)=1 then
str1="checked"
elseif int(lmbbs)=2 then
str2="checked"
end if
%>论坛联盟显示类型：<input type="radio" name="lmtype" value="1" <%=str1%>> 显示文字 <input type="radio" name="lmtype" value="2" <%=str2%>> 显示图片</p></div><hr color="<%=c1%>" size="1">
<P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p>
<%=d2%>
</form>
<%case"chbbsinfo"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -