📄 readmin.asp
字号:
<!--#include file="conn.asp"--><!--#include file="inc/fun.asp"-->
<%
dim action,strt,i,bad,b,lgname,lgpwd,lgpwdmd5,id,paper,ggtitle,ggok,content,contentok,content2,rs1,sql,bdlist2,grade
dim name,url,picurl,readme
lgname=replace(session(prefix&"lgname"),"'","''")
lgpwd=replace(session(prefix&"lgpwd"),"'","''")
sub bdlist()
set bdlist2=nothing
end sub
function checkbad(str)
if isnull(str) then exit function
bad=split(application(prefix&"badcontent"), "|")
for b=0 to ubound(bad)
str=Replace(str,bad(b),string(len(bad(b)),"*"))
next
checkbad=str
end function
action=request.querystring("action")
select case action
case"readmiin","addadmin","deladmin" strt="管理员设置"
end select
sub send(str)
response.write"<table class=td1 border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#F4F6FC width=100% bgcolor=#749AEC height=50><tr><td width=100% ><p style='margin:5px;line-height:150%'>"&str&"</p></td></tr></table>"
end sub
%>
<link rel=stylesheet type=text/css href=inc/css.css>
<STYLE type=text/css>BODY {
SCROLLBAR-FACE-COLOR: #749AEC; SCROLLBAR-HIGHLIGHT-COLOR:#749AEC; SCROLLBAR-3DLIGHT-COLOR: #749AEC; SCROLLBAR-ARROW-COLOR:#F4F6FC; SCROLLBAR-TRACK-COLOR: #B0C7F4; SCROLLBAR-DARKSHADOW-COLOR: #749AEC}
</style>
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="12"><img border="0" src="pic/admin/a1.gif"></td>
<td background="pic/admin/a2.gif" width="100%">管理员紧急恢复系统 For 6k7.0</td>
<td width="279"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#749AEC">
<tr>
<td class=td1 width="100%" height="35">
<img border="0" src="pic/admin/a4.gif" align="absmiddle"><%=strt%>请确认您是本论坛的合法管理员，并拥有FTP权限。否则，本程序作者，不负任何责任！本程序只供合法使用，对非法使用的人，本人不承担任何法律责任！</td>
</tr>
</table>
<table border="3" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#749AEC" width="100%">
<tr>
<td width="100%" valign="top" height="475"><br>
程序作者：Gawain<br>
日期：2004年8月27日<br>
适用版本：V 7.0<br>
技术支持：http://vanidc.01www.net<br><br><br><br>
<div align=center><a href=?action=readmin>开始恢复</a></div>
<%
application(prefix&"allthebbs")=""
select case action
case"readmin"
dim pswd
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" bgcolor="#F4F6FC" height="40">
<tr>
<td class=td2 width="100%"> 当前已有的管理员：<%set rs=conn.execute("select name from admin where bd=0"):do while not rs.eof:response.write rs("name")&" ":rs.movenext:loop:set rs=nothing%></td>
</tr>
</table>
<form method="POST" action="readmin.asp?action=addadmin">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
<tr>
<td class=td1 width="100%" colspan="2" bgcolor="#749AEC" height="32"> 恢复管理员：</td>
</tr>
<tr>
<td class=td2 width="25%" height="50" bgcolor="#F4F6FC"> 管理员ID：</td>
<td bgcolor="#F4F6FC"> <input type="text" name="name" size="40">
<input type="submit" value=" 确 认 恢 复 " name="B1"></td>
</tr>
</table></form>
<%case"addadmin"
name=Replace(Request.Form("name"),"'","")
set rs=server.createobject("adodb.recordset")
sql="Select top 1 name,password,grade from [user] where name='"&name&"' and grade<16"
rs.open sql,conn,1,3
if rs.eof then
call send("·论坛中不存在该用户或者该用户已经是管理员<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
rs("grade")=16
rs.Update
pswd=rs("password")
conn.execute("delete*from [admin] where name='"&name&"' and bd<>0")
conn.execute("insert into [admin] values('"&name&"','"&pswd&"',0)")
call send("恢复管理员成功。")
end if
rs.close
set rs=nothing
%>
<%case"deladmin"
name=Replace(Request.Form("name"),"'","")
conn.execute("update [user] set grade=0 where name='"&name&"'")
conn.execute("delete*from admin where name='"&name&"' and bd=0")
call send("删除管理员成功。")
%>
<%end select
application(prefix&"bbsname")=""%></td>
</tr>
</table>
<table rules='none' border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#346AE4">
<tr>
<td valign="top"><img border="0" src="pic/admin/2.gif"></td>
<td background="pic/admin/4.gif" width="100%">
</td>
<td valign="top"><img border="0" src="pic/admin/3.gif"></td>
</tr>
<tr>
<td valign="top" colspan="3" bgcolor="#749AEC" height="4"></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -