📄 adminright1.asp
字号:
<!--#include file="bbs.asp"-->
<%
dim action,strt,bad,b,bd,rs1,bdinfo,name,sql,i,bdlist2,usedtable,daynum,listname,dely
sub bdlist(listname)
set bdlist2=conn.execute("select * from bdinfo where followid<>0 order by followid,orders desc,id")
response.write"<select size=1 name="&listname&" style='font-size: 9pt'><option value=0>所有论坛</option>"
do while not bdlist2.eof
response.write"<option value="&bdlist2("id")&">"&split(bdlist2("bdinfo"),"|")(0)&"</option>"
bdlist2.movenext
Loop
response.write"</select>"
set bdlist2=nothing
end sub
action=request.querystring("action")
select case action
case"editfl","updatefl" strt="编辑分类名称"
case"editbd","editbdsave" strt="编辑版面资料"
case"upfl" strt="提升分类"
case"upbd" strt="提升版面"
case"pass","addpassuser" strt="编辑认证用户"
case"userdel","deluser","hyuser" strt="论坛用户删除与恢复"
case"changepwd","newpwd" strt="修改用户密码"
case"userset","setuserok" strt="用户特殊设置"
case"vip","addvip","delvip" strt="VIP用户设置"
case"deltopic","delday","deldaynore","delusertopic" strt="批量删除帖子"
case"movetopic","moveday","moveuser" strt="批量移动帖子"
case"adminpwd","editadminpwd" strt="修改管理员后台登陆密码"
end select
sub send(str)
response.write"<div align=center><table class=td1 border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#cad6eb width=90% height=50><tr><td width=100% ><p style='margin:5px;line-height:150%'><font color= red>"&str&"</font></p></td></tr></table></div>"
end sub
%>
<body topmargin="0" leftmargin="0">
<%call admintop%>
<div align="center">
<table border="1" bordercolor="#cad6eb" cellpadding="0" style="border-collapse: collapse" width="90%" height="24">
<tr>
<td class=td1 width="100%" height="24" background="pic/titlebg.gif">
<p align="center"><span style="font-weight: 400"><font color=#000000> <%=strt%></font></span></td>
</tr>
</table>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" valign="top" height="475">
<%select case action%>
<%case"editfl"
flid=checknum(request.querystring("flid"))
set rs=conn.execute("select top 1 bdinfo,type from bdinfo where id="&flid&" and followid=0")
%><form method="POST" action="adminright1.asp?action=updatefl&flid=<%=flid%>">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr class=td2>
<td width="35%">
<p style="margin: 8"><span style="font-weight: 400"><font color="#000000">编辑分类的 ID：</font></span></td>
<td width="65%"> <%=flid%></td>
</tr>
<tr>
<td width="35%">
<p style="margin: 8">选择分类状态<br>0为默认方式,1简便方式,2为隐藏方式 </td>
<td width="65%"> <input type="text" name="flpcid" size="9" value="<%=rs("type")%>"></td>
</tr>
<tr>
<td>
<p style="margin: 8">分类的名称：<br>支持 HTML</td>
<td> <input type="text" name="flname" size="46" value="<%=rs("bdinfo")%>"</td>
</tr> <tr>
<td colspan="2" bgcolor="#F4F6FC" align="center" height="35">
<input type="submit" value=" 确 认 修 改 " name="B1"></td>
</tr>
</table></div>
</form>
<%set rs=nothing%>
<%case"updatefl"
dim flid,flname,flpcid
flid=checknum(request.querystring("flid"))
flpcid=checknum(request.form("flpcid"))
flname=Replace(Request.Form("flname"),"'","")
if flname="" then
call send("·对不起，请正确填写分类名称。<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
conn.execute("update bdinfo set bdinfo='"&flname&"',type="&flpcid&" where id="&flid&" and followid=0")
call send("编辑分类成功。")
end if%>
<%case"editbd"
bd=checknum(request.querystring("bd"))
set rs=conn.execute("select top 1 * from bdinfo where id="&bd&" and followid<>0")
bdinfo=rs("bdinfo")
bdinfo=split(bdinfo,"|")
%>
<form method="POST" action="adminright1.asp?action=editbdsave&bd=<%=bd%>">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr class=td2>
<td width="25%">
<p style="line-height: 150%; margin: 5"><span style="font-weight: 400">
<font color="#000000">版面 ID：</font></span></td>
<td width="75%"> <%=bd%></td>
</tr>
<tr>
<td>
<p style="line-height: 150%; margin: 5">论坛名称：<br>支持HTML</td>
<td> <input type="text" name="bdname" size="25" value="<%=bdinfo(0)%>"></td>
</tr>
<tr>
<td>
<p style="line-height: 150%; margin: 5">论坛LOGO：<br>可以不填</td>
<td> <input type="text" name="picurl" size="49" value="<%=bdinfo(2)%>"></td>
</tr>
<tr>
<td valign="top">
<p style="line-height: 150%; margin: 5">论坛介绍：</td>
<td>
<p style="margin: 4">
<textarea rows="4" name="bdinfo" cols="58" style="font-size: 9pt; font-family: 宋体"><%=bdinfo(1)%></textarea></td>
</tr>
<tr>
<td>
<p style="line-height: 150%; margin: 5">属于分类：</td>
<td> <%set rs1=conn.execute("select * from bdinfo where followid=0 order by orders desc,id")%><select size="1" name="followid" style="font-size: 9pt">
<%do while not rs1.eof%><option value="<%=rs1("id")%>" <%if rs1("id")=rs("followid") then%>selected<%end if%>><%=rs1("bdinfo")%></option><%
rs1.movenext
Loop
rs1.Close
set rs1=nothing
%>
</select></td>
</tr>
<tr>
<td valign="top">
<p style="line-height: 150%; margin: 5">论坛类型：</td>
<td>
<p style="MARGIN: 4px">
<input type="radio" CHECKED value="0" name="bbstype" <%if rs("type")=0 then:response.write"checked":end if%>>普通论坛（用户和游客可以自由的进入该类型论坛，·推荐·） </p>
<p style="MARGIN: 4px"><input type="radio" value="1" name="bbstype" <%if rs("type")=1 then:response.write"checked":end if%>>会员论坛（只有注册用户才能进入该类型论坛）</p>
<p style="MARGIN: 4px"><input type="radio" value="2" name="bbstype" <%if rs("type")=2 then:response.write"checked":end if%>>锁定论坛（会员和游客只能浏览帖子，不能对该论坛的帖子回复等）</p>
<p style="MARGIN: 4px"><input type="radio" value="3" name="bbstype" <%if rs("type")=3 then:response.write"checked":end if%>>认证论坛（只有版主认证的注册用户才能进入该类型论坛）</p>
<p style="MARGIN: 4px"><input type="radio" value="4" name="bbstype" <%if rs("type")=4 then:response.write"checked":end if%>>VIP论坛（只有vip用户方能进入--版主甚至管理员如非vip也不能进入）</td>
</tr>
<tr>
<td colspan="2" bgcolor="#F4F6FC" align="center" height="35">
<input type="submit" value=" 确 认 添 加 " name="B1"></td>
</tr>
</table></div>
</form>
<%set rs=nothing%>
<%case"editbdsave"
dim bdname,followid,bbstype,picurl
bd=checknum(request.querystring("bd"))
bdname=Replace(Request.Form("bdname"),"|","│")
picurl=Replace(Request.Form("picurl"),"|","│")
bdinfo=Replace(Request.Form("bdinfo"),"|","│")
followid=checknum(request.form("followid"))
bbstype=checknum(request.form("bbstype"))
if bdname="" or bdinfo="" then
call send("·请填写完整必填的资料<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
bdinfo=bdname&"|"&bdinfo&"|"&picurl&"|"
bdinfo=replace(bdinfo,"'","")
conn.execute("update [bdinfo] set followid="&followid&",bdinfo='"&bdinfo&"',type="&bbstype&" where id="&bd&" and followid<>0")
call send("成功编辑版面 "&bdname&" 。")
end if
application(prefix&"allthebbs")=""
%>
<%case"upfl"
dim maxorders
flid=checknum(request.querystring("flid"))
maxorders=conn.execute("select top 1 max(orders) from bdinfo where followid=0")(0)
maxorders=maxorders+1
conn.execute("update bdinfo set orders="&maxorders&" where id="&flid&" and followid=0")
application(prefix&"allthebbs")=""
response.redirect "adminright2.asp?action=bdinfo"
case"upbd"
bd=checknum(request.querystring("bd"))
maxorders=conn.execute("select top 1 max(orders) from bdinfo where followid<>0")(0)
maxorders=maxorders+1
conn.execute("update bdinfo set orders="&maxorders&" where id="&bd&" and followid<>0")
application(prefix&"allthebbs")=""
response.redirect "adminright2.asp?action=bdinfo"
case"pass"
bd=checknum(request.querystring("bd"))
set rs=conn.execute("select top 1 passuser from bdinfo where id="&bd&" and followid<>0")
%><form method="POST" action="adminright1.asp?action=addpassuser&bd=<%=bd%>">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr>
<td width="110%" valign="top">
<p style="line-height: 120%; margin: 5">版面认证用户：<br>
该版面为认证版面，请输入能够进入该版面的用户的用户名。<br>各个用户名用<font color="#FF0000">
| </font> 隔开，输入过程中<b><font color="#FF0000">不能按 Enter</font></b>。</td>
</tr>
<tr>
<td width="110%" valign="top">
<p style="margin: 5">
<textarea rows="10" name="passuser" cols="70" style="font-family: 宋体; font-size: 9pt"><%=rs("passuser")%></textarea></td>
</tr>
<tr>
<td width="110%" bgcolor="#F4F6FC" align="center" height="35">
<input type="submit" value=" 确 定 提 交 " name="B1"></td>
</tr>
</table></div>
</form>
<%set rs=nothing%>
<%case"addpassuser"
dim passuser
bd=checknum(request.querystring("bd"))
passuser=Replace(Request.Form("passuser"),"'","")
conn.execute("update bdinfo set passuser='"&passuser&"' where id="&bd&" and followid<>0")
call send("添加认证用户成功。")
%>
<%case"userdel"%>
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%" bgcolor="#F4F6FC">
<tr class=td1>
<td width="100%" height="28">
<span style="font-weight: 400"><font color="#000000"> 暂时被删除的用户：</font></span></td>
</tr>
<tr>
<td class=td2 width="100%" height="40"><%set rs=conn.execute("select name from [user] where del=true")
i=0
do while not rs.eof
response.write kbbs(rs("name"))&" "
i=i+1
if i/10=i\10 then
response.write"<br>"
end if
rs.movenext
loop
set rs=nothing%> </td>
</tr>
</table></div>
<form method="POST" action="adminright1.asp?action=deluser">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb">
<tr class=td1>
<td width="100%" colspan="2" height="28" background="pic/titlebg.gif"> <span style="font-weight: 400"><font color="#000000">删除用户：</font></span></td>
</tr>
<tr>
<td class=td2 width="30%" height="40" bgcolor="#FFFFFF">
<span style="font-weight: 400"><font color="#000000"> 请输入要删除的用户名：</font></span></td>
<td width="70%" bgcolor="#FFFFFF"> <input type="text" name="name" size="40"></td>
</tr> <tr>
<td width="30%" height="40" bgcolor="#FFFFFF">
<p style="line-height: 150%; margin: 4">是否永久删除。<br>这样将删除该用户的所有帖子，<br>选择该操作将不可恢复。</td>
<td width="70%" bgcolor="#FFFFFF"> <input type="radio" value="1" name="dely">是
<input type="radio" value="2" name="dely" checked>否</td>
</tr> <tr>
<td width="100%" height="40" colspan="2" align="center"> <input type="submit" value=" 确 认 删 除 " name="B1"></td>
</tr>
</table></div>
</form><form method="POST" action="adminright1.asp?action=hyuser">
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%" bgcolor="#F4F6FC">
<tr class=td1>
<td width="100%" colspan="2" height="28" background="pic/titlebg.gif">
<span style="font-weight: 400"><font color="#000000"> 还原用户：</font></span></td>
</tr>
<tr>
<td class=td2 width="30%" height="40"><span style="font-weight: 400">
<font color="#000000"> 请输入要还原的用户名：</font></span></td>
<td width="70%"> <input name="name" size="40">
<input type="submit" value=" 确 认 还 原 " name="B1"></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -