adminright.asp

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

<!--#include file="bbs.asp"-->
<%dim bbsinfo,action,strt,i,uploadtype,badwords,badcontent,sms,str,offbbsinfo,obbs,paper,count,sql,id,ggtitle,ggok,content,contentok,thisbbs,bad,b,content2,bdlist2
dim name,url,picurl,readme,postcode,bbslinktype

sub bdlist()
set bdlist2=conn.execute("select * from bdinfo where followid<>0 order by followid,orders desc,id")
response.write"<select size=1 name=bd 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

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"bbs","editbbs" strt="论坛常规设置":application(prefix&"bbsname")=""
case"openbbsyn","editonoff" strt="论坛开关设置":application(prefix&"bbsname")=""
case"gonggaogl" strt="论坛公告管理 &nbsp; [ <a href=adminright.asp?action=addnewgg><font color=#ffffff>发布公告</font></a> ]"
case"delgg" strt="删除公告"
case"addnewgg","savegg" strt="<a href=adminright.asp?action=addnewgg><font color=#ffffff>发布公告</font></a>"
case"lm","addlinkform","addlm" strt="论坛联盟管理 &nbsp; [ <a href=adminright.asp?action=addlinkform><font color=#ffffff>添加联盟</font></a> ]":application(prefix&"thebbslink")=""
case"delbbslink" strt="删除论坛联盟":application(prefix&"thebbslink")=""
case"editbbslink","editlm" strt="编辑论坛联盟":application(prefix&"thebbslink")=""
case"ip","addiplock","delip" strt="IP封锁与解除"
case"setm" 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="0" cellpadding="0" style="border-collapse: collapse" width="90%">
  <tr>
    <td width="100%" valign="top" height="475">
<%
select case action
%>
<%case"bbs"
set rs=conn.execute("select bbsinfo,uploadtype,badwords,badcontent,postcode,sms from config")
bbsinfo=rs("bbsinfo")
bbsinfo=split(bbsinfo,"|")
%>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb">
  <form method="POST" action="adminright.asp?action=editbbs"><tr>
    <td width="100%" colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛基本信息</td>
  </tr>
  	<tr>
    <td width="43%">
    <p style="margin: 8; ">论坛名称：</td>
    <td width="57%">　<input type="text" name="b_0" size="40" value="<%=kbbs(bbsinfo(0))%>"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">短信收费金额：</td>
    <td>　<input type="text" name="b_15" value="<%=kbbs(bbsinfo(15))%>" size="5"></td>
  </tr>  
 <tr>
    <td>
    <p style="margin: 8; ">论坛建站时间：</td>
    <td>　<input type="text" name="b_26" value="<%=kbbs(bbsinfo(26))%>" size="20"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">论坛联盟显示方式：</td>
    <td>　<input type="radio" name="b_7" value="1" <%if checknum(bbsinfo(7))=1 then%>checked<%end if%>>文字 
    <input type="radio" name="b_7" value="2" <%if checknum(bbsinfo(7))=2 then%>checked<%end if%>>图片</td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">论坛注册码开关：</td>
    <td>　<input type="radio" name="postcode" value="0" <%if kbbs(rs("postcode"))=0 then%>checked<%end if%>>开启 
    <input type="radio" name="postcode" value="1" <%if kbbs(rs("postcode"))=1 then%>checked<%end if%>>关闭</td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">在线列表设置：</td>
    <td>　<input type="radio" name="b_23" value="0" <%if checknum(bbsinfo(23))=0 then%>checked<%end if%>>展开 
    <input type="radio" name="b_23" value="1" <%if checknum(bbsinfo(23))=1 then%>checked<%end if%>>关闭</td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">论坛注册情况：</td>
    <td>　<input type="radio" name="b_14" value="1" <%if checknum(bbsinfo(14))=1 then%>checked<%end if%>>允许 
    <input type="radio" name="b_14" value="2" <%if checknum(bbsinfo(14))=2 then%>checked<%end if%>>不允许</td>
  </tr>
  <tr>
    <td colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛头像设置</td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">论坛头像个数：</td>
    <td>　<input type="text" name="b_1" value="<%=kbbs(bbsinfo(1))%>" size="5"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">头像最大宽度×高度：</td>
    <td>　<input type="text" name="b_2" value="<%=kbbs(bbsinfo(2))%>" size="5"> 
    × <input type="text" name="b_3" value="<%=kbbs(bbsinfo(3))%>" size="5"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">头像默认宽度×高度：</td>
    <td>　<input type="text" name="b_4" value="<%=kbbs(bbsinfo(4))%>" size="5"> 
    × <input type="text" name="b_5" value="<%=kbbs(bbsinfo(5))%>" size="5"></td>
  </tr>
  <tr>
    <td height="31">
    <p style="margin: 8; ">是否使用外部头像：</td>
    <td height="31">　<input type="radio" name="b_6" value="1" <%if checknum(bbsinfo(6))=1 then%>checked<%end if%>>是 
    <input type="radio" name="b_6" value="2" <%if checknum(bbsinfo(6))=2 then%>checked<%end if%>>否</td>
  </tr>
  
  
  
  <tr>
    <td colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛上传设置</td>
  </tr>  
  
  
  
  <tr>
    <td>
    <p style="margin: 8; ">最大上传文件大小：</td>
    <td>　<input type="text" name="b_9" value="<%=kbbs(bbsinfo(9))%>" size="5"> KB</td>
  </tr>  <tr>
    <td>
    <p style="margin: 8; ">最多上传文件个数：</td>
    <td>　<input type="text" name="b_10" value="<%=kbbs(bbsinfo(10))%>" size="5"></td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">允许上传等级设置：</td>
    <td>　<input type="text" name="b_22" value="<%=kbbs(bbsinfo(22))%>" size="5"> *超过这个等级才能上传文件.</td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">上传头像等级设置：</td>
    <td>　<input type="text" name="b_27" value="<%=kbbs(bbsinfo(27))%>" size="5"> *超过这个等级才能上传头像.</td>
  </tr>
    <td>
    <p style="margin: 8; ">允许上传文件类型：<br>各个类型间用 | 隔开</td>
    <td>　<input type="text" name="uploadtype" value="<%=kbbs(rs("uploadtype"))%>" size="40"></td>
  </tr>
   <tr>
    <td>
    <p style="margin: 8; ">是否允许上传：</td>
    <td>　<input type="radio" name="b_8" value="1" <%if checknum(bbsinfo(8))=1 then%>checked<%end if%>>允许 
    <input type="radio" name="b_8" value="2" <%if checknum(bbsinfo(8))=2 then%>checked<%end if%>>不允许</td>
  </tr>
  
  <tr>
    <td colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛帖子设置</td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">开启帖子水印功能：</td>
    <td>　<input type="radio" name="b_25" value="1" <%if checknum(bbsinfo(25))=1 then%>checked<%end if%>>是 
    <input type="radio" name="b_25" value="2" <%if checknum(bbsinfo(25))=2 or checknum(bbsinfo(25))="" then%>checked<%end if%>>否</td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">开启Flash动画功能：</td>
    <td>　<input type="radio" name="b_16" value="1" <%if checknum(bbsinfo(16))=1 then%>checked<%end if%>>是 
    <input type="radio" name="b_16" value="0" <%if checknum(bbsinfo(16))=0 or checknum(bbsinfo(16))="" then%>checked<%end if%>>否　　*开启此功能可能使您的密码被盗，请慎用！</td>
  </tr>
 <tr>
    <td>
    <p style="margin: 8; ">最多投票选项个数：</td>
    <td>　<input type="text" name="b_11" value="<%=kbbs(bbsinfo(11))%>" size="5"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">帖子列表每页显示数：</td>
    <td>　<input type="text" name="b_12" value="<%=kbbs(bbsinfo(12))%>" size="5"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">话题每页回帖显示数：</td>
    <td>　<input type="text" name="b_13" value="<%=kbbs(bbsinfo(13))%>" size="5"></td>
  </tr>
 <tr>
    <td>
    <p style="margin: 8; ">发贴时间间隔：</td>
    <td>　<input type="text" name="b_17" value="<%=kbbs(bbsinfo(17))%>" size="5">  *这里的1代表10秒,2代表20,0则不限制</td> 
  </tr>
<tr>
    <td colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛积分设置</td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">登陆积分设置：</td>
    <td>　<input type="text" name="b_18" value="<%=kbbs(bbsinfo(18))%>" size="5">  </td> 
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">发帖积分设置：</td>
    <td>　<input type="text" name="b_19" value="<%=kbbs(bbsinfo(19))%>" size="5">  </td> 
  </tr>
   <tr>
    <td>
    <p style="margin: 8; ">回帖积分设置：</td>
    <td>　<input type="text" name="b_20" value="<%=kbbs(bbsinfo(20))%>" size="5">  </td> 
  </tr>
 <tr>
    <td>
    <p style="margin: 8; ">他人回复积分设置：</td>
    <td>　<input type="text" name="b_21" value="<%=kbbs(bbsinfo(21))%>" size="5"> 
	*Ａ回复Ｂ，Ｂ所加的积分.</td> 
  </tr>

    <tr>
    <td colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛脏字过滤</td>
  </tr>
  
    <td>
    <p style="margin: 8; ">禁止注册的用户名：<br>各个类型间用 | 隔开</td>
    <td>　<input type="text" name="badwords" value="<%=kbbs(rs("badwords"))%>" size="60"></td>
  </tr>
  <tr>
    <td>
    <p style="margin: 8; ">帖子过滤脏字：<br>各个类型间用 | 隔开</td>
    <td>　<input type="text" name="badcontent" value="<%=kbbs(rs("badcontent"))%>" size="60"></td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">新用户注册发贺信：</td>
    <td>　<input type="radio" name="b_24" value="0" <%if checknum(bbsinfo(24))=0 then%>checked<%end if%>>开启 
    <input type="radio" name="b_24" value="1" <%if checknum(bbsinfo(24))=1 then%>checked<%end if%>>关闭</td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">用户注册贺信内容：</td>