adminright3.asp

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

<!--#include file="bbs.asp"-->
<%dim action,strt,i,lguserid,touserid,usedtable,usetable,using,table,canadd,totable,tablestr,autotable,usedtable1,sql,bd,rs2,content,toname,bad,contentok,b,content2
lguserid=checknum(session(prefix&"lguserid"))
action=request.querystring("action")
select case action
case"sms","deloldsms","delusersms" strt="论坛留言管理"
case"sendmark","savemark" strt="群发留言及发放工资"
case"table","updatetable","addtable","deltable" strt="论坛帖子数据表管理"
case"recycle","delbbsgg" 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% class=td2 colspan=2 background=pic/titlebg.gif height=26><p align=center>操作提示</p></td></tr><tr><td width=100% ><p style='margin:5px;line-height:150%'><font color= red>"&str&"</font></p></td></tr></table></div>"
end sub
%>
<%call admintop%>
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb" background="pic/titlebg.gif">
  <tr>
    <td class=td1 width="90%" height="28" background="pic/titlebg.gif" align="center">
	<span style="font-weight: 400"><font color="#000000">&nbsp; <%=strt%></font></span></td>
  </tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="90%">
  <tr>
    <td width="100%" valign="top" height="475">
<%
select case action
case"sms"
%><form method="POST" action="adminright3.asp?action=deloldsms">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="100%">
  <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="40" bgcolor="#F4F6FC">
    <p style="margin: 6"><span style="font-weight: 400"><font color="#000000">删除所有已读的留言：<br>确实要删除，请输入ok。</font></span></td>
    <td width="70%" bgcolor="#F4F6FC">
    <input name="ok" size="20">&nbsp; 
    <input type="submit" value=" 确  认  删  除 " name="B1"></td>
  </tr>
  </table></form>
  <form method="POST" action="adminright3.asp?action=delusersms">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="100%">
  <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="40" bgcolor="#F4F6FC">
    <p style="margin: 6"><span style="font-weight: 400"><font color="#000000">删除指定用户的留言：( 用户名 )</font></span></td>
    <td width="70%" bgcolor="#F4F6FC">
    <input name="name" size="20">&nbsp; <input type="submit" value=" 确  认  删  除 " name="B1"></td>
  </tr>
  </table></form>
<%case"deloldsms"
dim ok
ok=Replace(Request.Form("ok"),"'","")
if ok="ok" then
conn.execute("delete*from sms where new=false")
call send("删除已读留言成功。")
else
call send("删除已读留言失败。")
end if

case"delusersms"
dim name,userid
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)'><font color=#ffffff>返回重新填写</font></a>")
else
userid=rs(0)
conn.execute("delete*from sms where touserid="&userid&"")
call send("删除 "&kbbs(name)&" 的留言成功。")
end if
set rs=nothing
%>
<%case"sendmark"%>
<SCRIPT src=../inc/ybbcode.js></script>
<SCRIPT>function openwin()
{
document.form1.topic.value="发放给 "+document.topic.toname.value+" 的工资";
document.form1.content.value=document.topic.content.value;
var popupWin = window.open('paper.asp?action=preview', 'showgg', 'width=500,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes');
document.form1.submit()
}


function emoticon(theSmilie){
document.topic.content.value +=theSmilie + '';
document.topic.content.focus();
}

</SCRIPT>
<div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div>

<form method="POST" action="adminright3.asp?action=savemark" name="topic">

    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#cad6eb">
      <tr>
        <td class=td2 width="100%" height="32" colspan="2" bgcolor="#F4F6FC">
        &nbsp;<font color="#FF0000">提示：如果您想群发短信，那么就在工资里面填写"0".</font></td>
      </tr>
      <tr>
        <td class=td2 width="20%" height="32">
        <p style="line-height: 120%; margin: 4"><span style="font-weight: 400">
		<font color="#000000">留言对象：</font></span></td>
        <td width="80%">
        <p style="line-height: 120%; margin: 4">
        <select style="FONT-SIZE: 9pt" name="toname">
        <option value="0" selected>所有在线用户</option>
        <option value="1">所有版主</option>
        <option value="2">所有超级版主</option>
        <option value="3">所有管理员</option>
        <option value="4">所有Vip用户</option>
        <option value="5">所有注册用户</option>
        </select></td>
      </tr>
<tr><td><p style="line-height: 120%; margin: 4">工资金额：</td><td><p style="line-height: 120%; margin: 4"><input type="text" name="money" value="" size="12">&nbsp; 
	积分</td></tr>
      <tr>
        <td valign="top">
        <p style="line-height: 120%; margin: 4">发放工资说明内容：<%call tie%><br>
        </td>
        <td>
        <p style="margin: 4"><%call adminqian%><br>      <textarea rows="9" name="content" cols="85" style="font-family: 宋体; font-size: 9pt" onkeydown=presskey(); onkeyup=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain);></textarea>
        
       
</p><br></td>
</tr>
      <tr>
        <td colspan="2" align="center" height="40" bgcolor="#F4F6FC">
        <input class=submit type=submit value=OK_！发送 name=B1>&nbsp;&nbsp;&nbsp; <input class=submit type=button value="预  览！" onclick=openwin()>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=NO_！重写 name=B2>&nbsp; [ 按 Alt+Enter 直接发送 ]</td>
      </tr>
      </table>
</div>
</form>
<form name=form1 action=paper.asp?action=preview method=post target=showgg>
<input type=hidden name=topic value=><input type=hidden name=content value=>
</form>
<%case"savemark"
dim money
toname=checknum(request.form("toname"))

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

content=checkbad(Request.Form("content"))
money=checkbad(Request.Form("money"))
content=replace(content,"|","│")
content=replace(content,"'","''")
contentok=Replace(content," ","")
content2=content&"|"&now()+timeset/24
if toname="" or contentok="" or money="" then
call send("·请填写完整发放工资对象、金额和发放工资说明内容<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
select case toname

case 0
set rs=conn.execute("select * from online where userid<>0")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user] where userid<>0"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&" where userid<>0"
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

case 1
set rs=conn.execute("select * from [user] where grade=14")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user] where grade=14"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&" where grade=14"
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

case 2
set rs=conn.execute("select * from [user] where grade=15")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user] where grade=15"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&" where grade=15"
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

case 3
set rs=conn.execute("select * from [user] where grade=16")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user] where grade=16"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&" where grade=16"
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

case 4
set rs=conn.execute("select * from [user] where grade=13")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user] where grade=13"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&" where grade=13"
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

case 5
set rs=conn.execute("select * from [user]")
do while not rs.eof
conn.execute("insert into sms(fromuserid,touserid,content) values("&lguserid&","&rs("userid")&",'"&content2&"')")
rs.movenext
loop
set rs2=server.createobject("adodb.recordset") 
sql="select * from [user]"
rs2.open sql,conn,1,3
sql="update [user] set [mark]=mark+"&money&""
conn.execute sql
rs2.close
set rs2=nothing
set rs=nothing

end select
call send("工资发放成功。")
end if
case"table"
%>


<form method="POST" action="adminright3.asp?action=updatetable">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="100%">
  <tr>
    <td class=td2 width="100%" colspan="4" height="32" bgcolor="#F4F6FC">
	<span style="font-weight: 400"><font color="#000000">&nbsp;当前论坛已有的帖子数据表：</font></span></td>
  </tr>
  <tr class=td2>
    <td width="20%" height="28"><span style="font-weight: 400">
	<font color="#000000">&nbsp;数据表名称：</font></span></td>
    <td width="20%"><span style="font-weight: 400"><font color="#000000">&nbsp;帖数：</font></span></td>
    <td width="20%"><span style="font-weight: 400"><font color="#000000">&nbsp;默认使用：</font></span></td>
    <td width="40%"><span style="font-weight: 400"><font color="#000000">&nbsp;删除：（这样将删除相关的帖子）</font></span></td>
  </tr>
<%usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
for i=1 to ubound(usedtable)
response.write"<tr class=td2><td width=20% height=28>　bbs"&usedtable(i)&"</td><td width=20% >　"&conn.execute("select count(bbsid) from bbs"&usedtable(i)&"")(0)&"</td><td width=20% >　<input type=radio value='"&usedtable(i)&"'"
if int(usedtable(i))=checknum(application(prefix&"autotable")) then:response.write" checked ":end if
response.write"name='using'></td><td width=40% >　<a href=adminright3.asp?action=deltable&totable="&usedtable(i)&"><img src=../pic/del.gif border=0></a></td></tr>"
next
%>  <tr>
    <td class=td2 width="100%" colspan="4" height="32" bgcolor="#F4F6FC" align="center">
    <input type="submit" value="   确  认  修  改   " name="B1"></td>
  </tr>
</table></form><form method="POST" action="adminright3.asp?action=addtable">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="100%">