adminright4.asp

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

if isnull(tinfo) or tinfo="" then tinfo=" "
if isnull(binfo) or binfo="" then binfo=" "
if isnull(ttop) or ttop="" then ttop=" "
if isnull(tbottom) or tbottom="" then tbottom=" "
if stylename="" or c1="" or c2="" or tbw="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
conn.execute("update style set stylename='"&stylename&"',c1='"&c1&"',c2='"&c2&"',c3='"&c3&"',tbw='"&tbw&"',tbg='"&tbg&"',tinfo='"&tinfo&"',binfo='"&binfo&"',ttop='"&ttop&"',tbottom='"&tbottom&"' where id="&id&"")
call send("修改论坛风格成功。")
end if
case"autouse"
dim autouse
autouse=checknum(request.form("autouse"))
conn.execute("update style set autouse=false")
conn.execute("update style set autouse=true where id="&autouse&"")
call send("已经成功设定论坛默认风格。")
case "delanyuser"
%><br><form action="adminright4.asp?action=deluser" 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">
      <p align="center">&nbsp;<span style="font-weight: 400"><font color="#000000">删除指定日期内没有登陆的用户</font></span></td>
    </tr>
    <tr>
      <td class=td2 width="50%" height="28">
      <p style="MARGIN: 5px"><span style="font-weight: 400">
		<font color="#000000">删除多少天没有登陆的用户：( 填数字 ) </font></span> </p>
      </td>
      <td width="50%">
      <input size="20" name="daynum"></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"deluser"
dim daynum
daynum=checknum(request.form("daynum"))
conn.execute("update [user] set del=true where lasttime<now()+"&timeset&"/24-"&daynum&"")
call send("批量删除用户成功。")
case"zl"
dim usedtable,topicnum,allnum,usernum,bdadmin,bdadmin2
topicnum=conn.execute("select count(id) from topic")(0)
usedtable=application(prefix&"usedtable")
usedtable=split(usedtable,"|")
allnum=0
for i=1 to ubound(usedtable)
allnum=allnum+conn.execute("select count(bbsid) from bbs"&usedtable(i)&"")(0)
next
usernum=conn.execute("select count(userid) from [user]")(0)
conn.execute("update config set topicnum="&topicnum&",allnum="&allnum&",usernum="&usernum&"")
set rs=conn.execute("select id,followid from [bdinfo] where followid<>0")
do while not rs.eof
bdadmin2=""
set bdadmin=conn.execute("select name from admin where bd="&rs("id")&"")
do while not bdadmin.eof
bdadmin2=bdadmin("name")&"|"&bdadmin2
bdadmin.movenext
loop
set bdadmin=nothing
conn.execute("update bdinfo set admin='"&bdadmin2&"' where id="&rs("id")&" and followid<>0")
rs.movenext
loop
set rs=nothing
call send("整理话题数成功。<br>整理总帖数成功。<br>整理用户数成功。<br>整理各版面版主成功。")

%>

<%case"changeinfo"%>
<form method="POST" action="adminright4.asp?action=userinfo">
  <div align="center">
  <table border="1" bordercolor="#cad6eb" cellpadding="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="90%">
 <tr>
   <td class=td2 height="30" bgcolor="#F4F6FC" colspan="2" background="pic/titlebg.gif">
	<p align="center"><font color="#000000"><span style="font-weight: 400">
	修改用户资料</span></font></td>
</tr>
 <tr>
   <td class=td2 width="25%" height="30" bgcolor="#F4F6FC">&nbsp;<span style="font-weight: 400"><font color="#000000">要进行修改的用户名：</font></span></td>
   <td bgcolor="#F4F6FC">&nbsp;<input type="text" name="name" size="40">&nbsp;
    <input type="submit" value="  确  认  " name="B1"></td>
</tr></table></div>
</form>
<%case"userinfo"
name=replace(request.form("name"),"'","")
set rs=conn.execute("select top 1 userinfo,mark from [user] where name='"&name&"'")
if rs.eof then
call send("该用户不存在。")
else
userinfo=rs("userinfo")
userinfo1=split(rs("userinfo"),"|")
%>
<form method="POST" action="adminright4.asp?action=editinfo">
  <div align="center">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb">
        <tr class=td2>
          <td width="25%" height="28">
          <p style="margin: 5"><font color="#000000">
			<span style="font-weight: 400">用户名：</span></font></td>
          <td width="75%">
          <p style="margin: 5">
<input type="hidden" name="name" size="40" value="<%=kbbs(name)%>"><input type="hidden" name="userinfo" size="40" value="<%=kbbs(userinfo)%>"><%=kbbs(name)%></td>
        </tr>
        <tr>
          <td class=td2>
          <p style="margin: 5"><font color="#000000">
			<span style="font-weight: 400">自定义头像：</span></font></td>
          <td>
          <p style="margin: 5"><input name=mypic size=38 maxlength=100 value="<%=kbbs(userinfo1(5))%>"> 
          * 完整Url地址<br>图像宽度：<input type=text name=picw size=6 value="<%=kbbs(userinfo1(6))%>"> 
          * 高度： 
        <input type=text name=pich size=6 value="<%=kbbs(userinfo1(7))%>"> *（宽最大<%=checknum(application(prefix&"picw"))%> &nbsp; 高最大<%=checknum(application(prefix&"pich"))%>）</td>
        </tr>
<tr class=td2><td width="25%"><p style="margin: 5"><font color="#000000">
	<span style="font-weight: 400">自定义头衔：</span></font></td><td width="75%"><p style="margin: 5"><input type=text name=diyname size=30 maxlength=255 value="<%=kbbs(userinfo1(10))%>"></td></tr>
<tr class=td2><td width="25%" valign="top"><p style="margin: 5">
	<font color="#000000"><span style="font-weight: 400">个性签名：</span></font></td><td width="75%"><p style="margin: 5">
        <TEXTAREA name=gxqm rows=5 wrap=PHYSICAL cols=60 style="font-family: 宋体; font-size: 9pt"><%=kbbs(userinfo1(8))%></TEXTAREA></td></tr>
<tr class=td2><td width="25%"><p style="margin: 5"><font color="#000000">
	<span style="font-weight: 400">论坛积分：</span></font></td><td width="75%"><p style="margin: 5">
  <input type="text" name="mark" size="20" value="<%=rs("mark")%>">*</td></tr>
<tr class=td2>
  <td width="100%" colspan="2" bgcolor="#F4F6FC" height="32" align="center">
    <input type="submit" value="    确  定  修  改    " name="B1"></td></tr>
      </table></div>
</form>
<%end if
set rs=nothing
%>
<%case"editinfo"
dim picw,pich,diyname,gxqm,mypic,mark
name=replace(request.form("name"),"'","")
userinfo=replace(request.form("userinfo"),"'","")
userinfo=split(userinfo,"|")
picw=checknum(Request.Form("picw"))
pich=checknum(Request.Form("pich"))
mypic=Replace(Request.Form("mypic"),"'","''")
mark=checknum(request.form("mark"))
if picw="" or pich="" or mypic="" or mark="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
gxqm=Request.Form("gxqm")
gxqm=Replace(left(gxqm,255),"'","''")
gxqm=replace(gxqm,"|","│")
qqshow=Replace(Request.Form("qqshow"),"'","''")
diyname=Request.Form("diyname")
diyname=Replace(left(diyname,8),"'","")
diyname=replace(diyname,"|","│")


uinfo=userinfo(0)&"|"&userinfo(1)&"|"&userinfo(2)&"|"&userinfo(3)&"|"&userinfo(4)&"|"&mypic&"|"&picw&"|"&pich&"|"&gxqm&"|"&userinfo(9)&"|"&diyname&"|"&qqshow
conn.execute("update [user] set userinfo='"&uinfo&"',mark="&mark&" where name='"&name&"'")
call send("修改用户资料成功。")
end if
%>
<%case"menu"%><div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td2 width="100%" colspan="4" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<font color="#000000"><span style="font-weight: 400">论坛现有插件</span></font></td>
  </tr>
  <%set rs=conn.execute("select id,name,link from menu")
  do while not rs.eof
  response.write"<tr class=td2><td width=30% >　插件ID： "&rs("id")&"</td><td width=35% >　名称："&rs("name")&"</td><td width=35% >　<a title='编辑' href=adminright4.asp?action=editmenu&id="&rs("id")&"><img src=../pic/edit.gif border=0></a>&nbsp; &nbsp; <a title='删除' href=adminright4.asp?action=delmenu&id="&rs("id")&"><img src=../pic/del.gif border=0></a></td></tr>"
rs.movenext
  loop
  set rs=nothing%>
</table></div>
</form><form method="POST" action="adminright4.asp?action=addmenu">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<span style="font-weight: 400"><font color="#000000">添加论坛插件</span></font></td>
  </tr>
  <tr class=td2>
    <td width="30%">
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">插件名称：</span></font></td>
    <td width="70%"><font color="#000000">&nbsp;</font><input type="text" name="name" size="30"></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">连接地址：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="link" size="30"></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">插件分类：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="cid" size="30"> 
	*1为论坛设施,2为论坛娱乐.</td>
  </tr>

	<tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  添  加    " name="B1"></td>
  </tr>
  </table></div>
</form>
<%case"addmenu"

name=replace(request.form("name"),"'","")
link=replace(request.form("link"),"'","")
cid=replace(request.form("cid"),"'","")
if name="" or link="" or cid="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
conn.execute("insert into menu(name,link,cid) values('"&name&"','"&link&"','"&cid&"')")
call send("添加论坛插件 "&name&" 成功。")
end if
%>
<%case"delmenu"
id=checknum(request.querystring("id"))
conn.execute("delete*from menu where id="&id&"")
call send("删除论坛插件成功。")
%>
<%case"editmenu"
id=checknum(request.querystring("id"))
set rs=conn.execute("select*from menu where id="&id&"")
%>
<form method="POST" action="adminright4.asp?action=editmenuok&id=<%=id%>">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<p align="center">&nbsp;<span style="font-weight: 400"><font color="#000000">编辑论坛插件</font></span></td>
  </tr>
  <tr class=td2>
    <td width="30%">
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">插件名称：</font></span></td>
    <td width="70%"><font color="#000000">&nbsp;</font><input type="text" name="name" size="30" value="<%=kbbs(rs("name"))%>"></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><span style="font-weight: 400">
	<font color="#000000">插件地址：</font></span></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="link" size="30" value="<%=kbbs(rs("link"))%>"></td>
  </tr>
  <tr class=td2>
    <td>
    <p style="line-height: 120%; margin: 5"><font color="#000000">
	<span style="font-weight: 400">插件分类：</span></font></td>
    <td><font color="#000000">&nbsp;</font><input type="text" name="cid" size="30" value="<%=kbbs(rs("cid"))%>"> 
	*1为论坛设施,2为论坛娱乐.</td>
  </tr>
	<tr>
    <td class=td2 colspan="2" align="center" height="35" bordercolor="#F4F6FC">
    <input type="submit" value="    确  定  修  改    " name="B1"></td>
  </tr>
  </table></div>
</form>
  <%case"editmenuok"
  dim link
 id=checknum(request.querystring("id"))
name=replace(request.form("name"),"'","")
link=replace(request.form("link"),"'","")
cid=replace(request.form("cid"),"'","")
if name="" or link="" or cid="" then
call send("·请填写完整必填资料<br>·<a href='javascript:history.go(-1)'>返回重新填写</a>")
else
conn.execute("update menu set name='"&name&"',link='"&link&"',cid='"&cid&"' where id="&id&"")
call send("修改论坛插件成功。")
end if%>
<%end select
%></td>
  </tr>
</table>
<%call admindown%>