admin_bbs.asp

青年人社区BBSXP SQL修改版 更新修正： 社区日志功能加强 几处小细节的修改 修正了利用伪装IP获得最高权限的漏洞 对images目录进行了一些调整。 修正了SQL数据库连接出现

<select name="classid">
<option value="<%=rs("followid")%>">默认</option>
<option value="0">一级分类</option>
<%BBSList(0)%>
</select> 一级分类将当作类别名称</td></tr>
   <tr height=25>
    <td class=a3 align=middle>


论坛版主</td>
    <td class=a3>


<input size="30" name=moderated value="<%=rs("moderated")%>"> 多版主添加请用“|”分隔，如：yuzi|裕裕
</td></tr>
   <tr height=25>
    <td class=a3 align=middle>


论坛介绍</td>
    <td class=a3>


<textarea rows="5" name="intro" cols="50"><%=rs("intro")%></textarea></td></tr>
   <tr height=25>
    <td class=a3 align=middle>

论坛状态</td>
    <td class=a3>

<select size="1" name="pass">
<option value=0 <%if rs("pass")=0 then%>selected<%end if%>>关闭</option>
<option value=1 <%if rs("pass")=1 then%>selected<%end if%>>正常</option>
<option value=2 <%if rs("pass")=2 then%>selected<%end if%>>游客止步</option>
<option value=3 <%if rs("pass")=3 then%>selected<%end if%>>授权浏览</option>
<option value=4 <%if rs("pass")=4 then%>selected<%end if%>>授权发帖</option>
</select>
</td></tr>




   <tr height=25>
    <td class=a3 align=middle>

授权用户名单</td>
    <td class=a3>

<textarea rows="3" name="userlist" cols="40"><%=rs("userlist")%></textarea> 添加请用|分隔，如：yuzi|裕裕
</td></tr>

   <tr height=25>
    <td class=a3 align=middle>


小图标URL</td>
    <td class=a3>


<input size="30" name="icon" value="<%=rs("icon")%>"> 显示在社区首页论坛介绍右边
</td></tr>
   <tr height=25>
    <td class=a3 align=middle>


大图标URL</td>
    <td class=a3>


<input size="30" name="logo" value="<%=rs("logo")%>"> 显示在论坛左上角</td></tr>



   <tr height=25>
    <td class=a3 align=middle>

通行密码</td>
    <td class=a3>

<input size="30" name="password" value="<%=rs("password")%>"> 如果是公开论坛，此处请留空</td></tr>

   <tr height=25>
    <td class=a3 align=middle>


是否显示在论坛列表</td>
    <td class=a3>


<input type="radio" <%if rs("hide")=0 then%>CHECKED <%end if%>value="0" name="hide" value="0" id=hide1><label for=hide1>显示</label> 
<input type="radio" <%if rs("hide")=1 then%>CHECKED <%end if%>value="1" name="hide" value="1" id=hide2><label for=hide2>隐藏</label> </td></tr>
   <tr height=25>
    <td class=a3 align=middle colspan="2">


<input type="submit" value=" 编 辑 " name="Submit1"></td></tr></table><br></form>
<center><br><a href=javascript:history.back()>< 返 回 ></a>
<Script>
document.form.intro.value = unybbcode(document.form.intro.value);
function unybbcode(temp) {
temp = temp.replace(/<br>/ig,"\n");
return (temp);
}
</Script>
<%
end sub



sub bbsmanage

%>

<script>
var BBSList="<%BBSList(0)%>"
</script>


论坛数：<b><font color=red><%=conn.execute("Select count(id)from bbsconfig")(0)%></font></b>　　主题数：<b><font color=red><%=conn.execute("Select count(id)from forum")(0)%></font></b><br>



<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan="3">批量删除主题</td>
  </tr>
  
  <form method="post" action="?menu=deltopicok">

   <tr height=25>
    <td class=a3 align=middle width="50%">
删除 <INPUT size=3 name=TimeLimit value="180">
天以前的主题</td>
    <td class=a3 align=middle>
<select name="bbsid">
<option value="">所有论坛</option>
<script>document.write(BBSList);</script>
</select></td>
    <td class=a3 align=middle>
 <input type="submit" value=" 确 定 "></td></form></tr>
  
  
  
  
<form method="post" action="?menu=delforumok">
<tr height=25><td class=a3 align=middle width="50%">
删除 <INPUT size=3 name=TimeLimit value="180">
天没有更新的主题</td>
    <td class=a3 align=middle>
<select name="bbsid">
<option value="">所有论坛</option>
<script>document.write(BBSList);</script>
</select></td>
    <td class=a3 align=middle>
 <input type="submit" value=" 确 定 "></td></form></tr>

   <tr>
    <td class=a4 align=middle>
    <form method="post" action="?menu=delusertopicok">
删除 <input size="10" name="username"> 发表的所有主题
</tr>
    <td class=a4 align=middle>
    
<select name="bbsid">
<option value="">所有论坛</option>
<script>document.write(BBSList);</script>
</select></tr>
    <td class=a4 align=middle>
	<input type="submit" value=" 确 定 "></tr>
	</tr></form>

   <tr height=25>
    <td class=a4 align=middle>
    <form method="post" action="?menu=delliketopicok">
删除标题里包含有 <input size="10" name="topic"> 的所有主题
</tr>
    <td class=a4 align=middle>
    
<select name="bbsid">
<option value="">所有论坛</option>
<script>document.write(BBSList);</script>
</select></tr>
    <td class=a4 align=middle>
	<input type="submit" value=" 确 定 "></tr></form>

</table>

<br>

<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>批量删除回帖</td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle width="50%">


<form method="post" action="?menu=delretopicok">
删除 <INPUT size=3 name=TimeLimit value="180">
天以前的回帖 <input type="submit" value=" 确 定 "></td></form>

    <td class=a3 align=middle width="50%">
    <form method="post" action="?menu=deluserretopicok">
删除 <input size="10" name="username"> 发表的所有回帖 <input type="submit" value=" 确 定 "></td></form></tr>
    
   </table>


<form method="post" action="?menu=delbbsconfigok">
<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle>批量删除论坛</td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle>
删除 <INPUT size=3 name=TimeLimit value="90">
天没有新帖子的论坛

<input type="submit" value=" 确 定 "></td>
    </tr>
    </table></form>



<form method="post" action="?menu=uniteok">
<table cellspacing="1" cellpadding="2" width="80%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=3>移动论坛帖子</td>
  </tr>
   <tr>
    <td class=a3 align=middle>

将 <select name="ybbs">
<script>document.write(BBSList);</script>
</select> 移动到
</td>
    <td class=a3 align=middle>

<select name="hbbs">
<script>document.write(BBSList);</script>
</select>
</td>
    <td class=a3 align=middle rowspan="2">

<INPUT type=submit value=" 确 定 " name=submit></td>
	</tr>
   <tr>
    <td class=a3 align=middle width="49%">

仅移动

<input size="2" name="TimeLimit" value="0"> 天前的帖子
</td>
    <td class=a3 align=middle>

仅移动

<input size="8" name="username"> 发表的帖子</td>
    </tr>
   </table></form>






<%
end sub

sub upclubconfig
%>

<table cellspacing="1" cellpadding="2" width="70%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan=2>社区资料更新</td>
  </tr>
   <tr height=25>
    <td class=a3 align=middle colspan=2>
    
此操作将更新论坛资料，修复论坛统计的信息<br>
<a href="?menu=upclubconfigok">点击这里更新论坛统计数据</a><br>


<a href="?menu=delapplication">清除服务器上的application缓存</a><br>



</td></tr></table><br>

<%
end sub

sub upclubconfigok


rs.Open "bbsconfig",Conn
do while not rs.eof

allarticle=conn.execute("Select count(forumid) from forum where deltopic<>1 and forumid="&rs("id")&"")(0)
if allarticle>0 then
allrearticle=conn.execute("Select sum(replies) from forum where deltopic<>1 and forumid="&rs("id")&"")(0)
else
allrearticle=0
end if

conn.execute("update [bbsconfig] set toltopic="&allarticle&",tolrestore="&allarticle+allrearticle&" where ID="&rs("id")&"")


rs.movenext
loop
rs.close

%>
操作成功！<br>
<br>
已经更新社区所有论坛的统计数据<br>

<%
end sub

htmlend

sub activation
%>
<script>
function CheckAll(form){for (var i=0;i<form.elements.length;i++){var e = form.elements[i];if (e.name != 'chkall')e.checked = form.chkall.checked;}}
</script>
  <form method="POST" action=?menu=activationok>

<TABLE cellSpacing=1 cellPadding=1 width=97% align=center border=0 class=a2>
<TR height=25 class=a1>
		<td align="center">激活</td>
		<td align="center">主题</td>
		<td align="center">作者</td>
		<td align="center">发表时间</td></tr>
<%
sql="select * from forum where deltopic=1 order by id Desc"
rs.Open sql,Conn,1

pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1

%>
<TR height=25>

      <TD align=middle width="6%" class=a3>
<INPUT type=checkbox value=<%=rs("id")%> name=id></TD>
      <TD width="60%" align=left class=a4>&nbsp;<%if rs("icon")>0 then%><img border=0 src=images/brow/<%=rs("icon")%>.gif> <%end if%><a target=_blank href=ShowPost.asp?id=<%=rs("id")%>><%=rs("topic")%></a></TD>
      <TD align=middle width=9% class=a3><a href=Profile.asp?username=<%=rs("username")%>><%=rs("username")%>　</TD>

      <TD align=center width=30% class=a4>&nbsp;<%=rs("posttime")%></TD>
    </TR>

<%

RS.MoveNext
loop
RS.Close


%>


<TR height=25>

      <TD width="6%" class=a3 align="center"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></TD>

      <TD width="60%" class=a3>		
<b>&nbsp;共有
<font color="990000"><%=TotalPage%></font> 页 [
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"menu=activation")
</script>]</b>
		
</TD>

      <TD width="48%" class=a3 colspan="2" align="center">
		
		
<input type=submit onclick="checkclick('您确定要激活所选的主题?');" value=" 激 活 "></TD>
    </TR>
    


</table><%
end sub

dim ii
ii=0
sub sort(selec)
	sql="Select * From bbsconfig where followid="&selec&" and hide=0 order by SortNum"
	Set Rs1=Conn.Execute(sql)


	do while not rs1.eof

if selec=0 then
%>
  <tr class=a1 id=TableTitleLink height=25>
<td>　<a target=_blank href=ShowForum.asp?forumid=<%=rs1("id")%>><%=rs1("bbsname")%></a></td>
<td align="right" width="190">
<a href=?menu=bbsadd&id=<%=rs1("id")%>>建立论坛</a> | <a href=?menu=bbsmanagexiu&id=<%=rs1("id")%>>编辑论坛</a> | 
<a onclick=checkclick('您确定要删除该论坛的所有资料?') href=?menu=bbsmanagedel&id=<%=rs1("id")%>>删除论坛</a>
</tr>

<%
else
%>
<tr class=a3 height=25>
<td>　<%=string(ii*2,"　")%><a target=_blank href=ShowForum.asp?forumid=<%=rs1("id")%>><%=rs1("bbsname")%></a></td>
<td align="right">
<a href=?menu=bbsadd&id=<%=rs1("id")%>>建立论坛</a> | <a href=?menu=bbsmanagexiu&id=<%=rs1("id")%>>编辑论坛</a> | 
<a onclick=checkclick('您确定要删除该论坛的所有资料?') href=?menu=bbsmanagedel&id=<%=rs1("id")%>>删除论坛</a>
</tr>
<%
end if
ii=ii+1
	sort rs1("id")
ii=ii-1
	rs1.movenext
	loop
	Set Rs1 = Nothing
end sub

%>