adminright1.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

		</font></span> </td>
      <td><%bdlist("bd")%></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#F4F6FC" colspan="2" align="center" height="35">
      
    <input type="submit" value="  确 认 删 除  " name="B1"></td>
    </tr>
  </table>
	</div>
</form><form action="adminright1.asp?action=delusertopic" method="POST">
  <div align="center">
  <table style="BORDER-COLLAPSE: collapse" cellPadding="0" width="90%" border="1" bordercolor="#cad6eb">
    <tr>
      <td class=td1 width="100%" height="28" colspan="2" background="pic/titlebg.gif">
      <span style="font-weight: 400">
      <font color="#000000">&nbsp;删除指定用户的所有帖子</font></span></td>
    </tr>
    <tr>
      <td class=td2 width="30%" height="28">
      <p style="MARGIN: 5px"><span style="font-weight: 400">
		<font color="#000000">删除指定用户的帖子：( 用户名 )</font></span></p>
      </td>
      <td width="70%">
      <input size="20" name="name"></td>
    </tr>
    <tr>
      <td class=td2 height="28">
      <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">删除帖子所在的论坛：( 请选择 ) 
		</font></span> </td>
      <td><%bdlist("bd")%></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#F4F6FC" colspan="2" align="center" height="35">
      
    <input type="submit" value="  确 认 删 除  " name="B1"></td>
    </tr>
  </table>
	</div>
</form>
<%case"delday"
bd=checknum(request.form("bd"))
daynum=checknum(request.form("daynum"))
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
if bd=0 then
conn.execute("delete*from bbs"&i&" where bid in(select id from topic where edittime<now()+"&timeset&"/24-"&daynum&" and totable="&i&")")
conn.execute("delete*from bbs"&i&" where edittime<now()+"&timeset&"/24-"&daynum&"")
else
conn.execute("delete*from bbs"&i&" where bd="&bd&" and bid in(select id from topic where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&bd&" and totable="&i&")")
conn.execute("delete*from bbs"&i&" where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&bd&"")

end if
next

if bd=0 then
conn.execute("delete*from topic where edittime<now()+"&timeset&"/24-"&daynum&"")
else
conn.execute("delete*from topic where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&bd&"")
end if
call send("删除成功，建议您压缩数据库。")

case"deldaynore"
bd=checknum(request.form("bd"))
daynum=checknum(request.form("daynum"))
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
if bd=0 then
conn.execute("delete*from bbs"&i&" where id in(select id from topic where edittime<now()+"&timeset&"/24-"&daynum&" and renum=0 and totable="&i&")")
else
conn.execute("delete*from bbs"&i&" where id in(select id from topic where edittime<now()+"&timeset&"/24-"&daynum&" and renum=0 and totable="&i&" and bd="&bd&")")
end if
next
if bd=0 then
conn.execute("delete*from topic where edittime<now()+"&timeset&"/24-"&daynum&" and renum=0")
else
conn.execute("delete*from topic where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&bd&" and renum=0")
end if
call send("删除成功，建议您压缩数据库。")

case"delusertopic"
dim userid
bd=checknum(request.form("bd"))
name=Replace(Request.Form("name"),"'","")

set rs=conn.execute("select top 1 userid from [user] where name='"&name&"'")
if rs.eof then
call send("·论坛不存在该用户<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
userid=rs(0)
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
if bd=0 then
conn.execute("delete*from bbs"&i&" where userid="&userid&"")
else
conn.execute("delete*from bbs"&i&" where userid="&userid&" and bd="&bd&"")
end if
next

if bd=0 then
conn.execute("delete*from topic where userid="&userid&"")
else
conn.execute("delete*from topic where userid="&userid&" and bd="&bd&"")
end if
call send("删除成功，建议您压缩数据库。")
end if
%>
<%case"movetopic"%><br><form method="POST" action="adminright1.asp?action=moveday">
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<span style="font-weight: 400"><font color="#000000">&nbsp;按指定天数移动帖子</font></span></td>
  </tr>
  <tr>
    <td class=td2 width="30%">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">移动多少天前的帖子：( 填数字 )</font></span></td>
    <td width="70%">
      <input size="20" name="daynum"></td>
  </tr>
  <tr>
    <td  class=td2 >
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">帖子原来所在的论坛：( 请选择 )</font></span></td>
    <td><%bdlist("oldbd")%></td>
  </tr>
  <tr>
    <td class=td2 >
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">帖子要移动到的论坛：( 请选择 )</font></span></td>
    <td><%bdlist("newbd")%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" align="center" height="35">
      
    <input type="submit" value="  确 认 移 动  " name="B1"></td>
  </tr>
</table></div>
</form>
<form method="POST" action="adminright1.asp?action=moveuser">
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
    <span style="font-weight: 400">
    <font color="#000000">&nbsp;按指定用户移动帖子</font></span></td>
  </tr>
  <tr>
    <td class=td2 width="30%">
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">移动指定用户的帖子：( 用户名 )</font></span></td>
    <td width="70%">
      <input size="20" name="name"></td>
  </tr>
  <tr>
    <td  class=td2 >
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">帖子原来所在的论坛：( 请选择 )</font></span></td>
    <td><%bdlist("oldbd")%></td>
  </tr>
  <tr>
    <td class=td2 >
    <p style="margin: 5"><span style="font-weight: 400"><font color="#000000">帖子要移动到的论坛：( 请选择 )</font></span></td>
    <td><%bdlist("newbd")%></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" align="center" height="35">
      
    <input type="submit" value="  确 认 移 动  " name="B1"></td>
  </tr>
</table></div>
</form>
<%case"moveday"
dim oldbd,newbd
oldbd=checknum(request.form("oldbd"))
newbd=checknum(request.form("newbd"))
if newbd=0 then
call send("·请选择要移动到的版面<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else

daynum=checknum(request.form("daynum"))
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
if oldbd=0 then
conn.execute("update bbs"&i&" set bd="&newbd&" where edittime<now()+"&timeset&"/24-"&daynum&"")
else
conn.execute("update bbs"&i&" set bd="&newbd&" where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&oldbd&"")
end if
next

if oldbd=0 then
conn.execute("update topic set bd="&newbd&" where edittime<now()+"&timeset&"/24-"&daynum&"")
else
conn.execute("update topic set bd="&newbd&" where edittime<now()+"&timeset&"/24-"&daynum&" and bd="&oldbd&"")
end if
call send("移动帖子成功。")
end if

case"moveuser"
oldbd=checknum(request.form("oldbd"))
newbd=checknum(request.form("newbd"))
name=Replace(Request.Form("name"),"'","")

if newbd=0 then
call send("·请选择要移动到的版面<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else

set rs=conn.execute("select top 1 userid from [user] where name='"&name&"'")
if rs.eof then
call send("·论坛不存在该用户<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
userid=rs(0)
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
if oldbd=0 then
conn.execute("update bbs"&i&" set bd="&newbd&" where userid="&userid&"")
else
conn.execute("update bbs"&i&" set bd="&newbd&" where userid="&userid&" and bd="&oldbd&"")
end if
next

if oldbd=0 then
conn.execute("update topic set bd="&newbd&" where userid="&userid&"")
else
conn.execute("update topic set bd="&newbd&" where userid="&userid&" and bd="&oldbd&"")
end if
call send("移动帖子成功。")
end if
end if
case"adminpwd"
%>
<form method="POST" action="adminright1.asp?action=editadminpwd">
<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="margin: 8"><span style="font-weight: 400"><font color="#000000">管 理 员：</font></span></td>
    <td width="75%">&nbsp;<%=flid%><input type="text" name="name" size="40"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8">后台密码：</td>
    <td>&nbsp;<input type="password" name="pwd" size="40"></td>
  </tr>  <tr>
    <td colspan="2" bgcolor="#F4F6FC" align="center" height="35">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table></div>
</form>
<%case"editadminpwd"
name=Replace(Request.Form("name"),"'","")
pwd=Replace(Request.Form("pwd"),"'","")
newpwd=md5(pwd)
set rs1=server.createobject("adodb.recordset")
sql="Select * from [admin] where name='"&name&"'"
rs1.open sql,conn,1,3
if rs1.eof then
call send("不存在该管理员。")
else
rs1("password")=newpwd
rs1.Update
call send("修改后台管理密码成功。")
end if
rs1.close
set rs1=nothing%>
<%end select%></td>
  </tr>
</table>
<%call admindown%>