admin_bbs.asp

感谢您使用BBSXP

<input size="15" name="ForumName" value="<%=Rs("ForumName")%>"> &nbsp; 排序 <input size="2" name="SortNum" value="<%=Rs("SortNum")%>">
从小到大排序</td></tr>
   <tr height=25>
    <td class=a3 align=middle>

论坛类别</td>
    <td class=a3>


<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 class=a3>
<td height="2" align="center" width="20%">帖子专题</td>
<td height="2" align="Left" valign="middle" width="77%">
<input size="30" name="TolSpecialTopic" value="<%=Rs("TolSpecialTopic")%>"> 
添加请用“|”隔开，如：原创|转贴</td></tr>
   <tr height=25>
    <td class=a3 align=middle>


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


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

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

<select size="1" name="ForumPass">
<option value=0 <%if Rs("ForumPass")=0 then%>selected<%end if%>>关闭</option>
<option value=1 <%if Rs("ForumPass")=1 then%>selected<%end if%>>正常</option>
<option value=2 <%if Rs("ForumPass")=2 then%>selected<%end if%>>游客止步</option>
<option value=3 <%if Rs("ForumPass")=3 then%>selected<%end if%>>授权浏览</option>
<option value=4 <%if Rs("ForumPass")=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="ForumUserList" cols="40"><%=Rs("ForumUserList")%></textarea> 添加请用“|”隔开，如：yuzi|裕裕
</td></tr>

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


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


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


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


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



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

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

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

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


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


<input type="radio" <%if Rs("ForumHide")=0 then%>CHECKED <%end if%>value="0" name="ForumHide" value="0">显示 
<input type="radio" <%if Rs("ForumHide")=1 then%>CHECKED <%end if%>value="1" name="ForumHide" value="1">隐藏 </td></tr>
   <tr height=25>
    <td class=a3 align=middle colspan="2">


<input type="submit" value=" 编 辑 "></td></tr></table><br></form>
<center><br><a href=javascript:history.back()>< 返 回 ></a>
<Script>
document.form.ForumIntro.value = unYBBcode(document.form.ForumIntro.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 [BBSXP_Forums]")(0)%></font></b>　　主题数：<b><font color=red><%=Conn.execute("Select count(id)from [BBSXP_Threads]")(0)%></font></b><br>



<table cellspacing="1" cellpadding="2" width="100%" border="0" class="a2" align="center">
  <tr height=25>
    <td class=a1 align=middle colspan="3">批量删除主题</td>
  </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>




<form method="POST" action="?menu=DelForumsok">
<table cellspacing="1" cellpadding="2" width="100%" 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="100%" 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=" 确 定 "></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 upSiteSettings
%>

<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=upSiteSettingsok">点击这里更新论坛统计数据</a><br>


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



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

<%
end sub

sub upSiteSettingsok


Rs.Open "[BBSXP_Forums]",Conn
do while not Rs.eof

allarticle=Conn.execute("Select count(ID) from [BBSXP_Threads] where IsDel<>1 and ForumID="&Rs("id")&"")(0)
if allarticle>0 then
allrearticle=Conn.execute("Select sum(replies) from [BBSXP_Threads] where IsDel<>1 and ForumID="&Rs("id")&"")(0)
else
allrearticle=0
end if

Conn.execute("update [BBSXP_Forums] set ForumThreads="&allarticle&",ForumPosts="&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=100% align=center border=0 class=a2>
<TR height=25 class=a1>
		<td align="center"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td>
		<td align="center">主题</td>
		<td align="center">最后更新时间</td></tr>
<%
sql="select * from [BBSXP_Threads] where IsDel=1 order by id Desc"
Rs.Open sql,Conn,1

PageSetup=20 '设定每页的显示数量
Rs.Pagesize=PageSetup
TotalPage=Rs.Pagecount  '总页数
PageCount = cint(Request.QueryString("PageIndex"))
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="72%" 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?ThreadID=<%=Rs("id")%>><%=Rs("Topic")%></a>
      <br>&nbsp;by <a href=Profile.asp?UserName=<%=Rs("UserName")%>><%=Rs("UserName")%>
      
      </TD>

      <TD align=center width="21%" class=a4>&nbsp;<%=Rs("lasttime")%></TD>
    </TR>

<%

Rs.MoveNext
loop
Rs.Close


%>
    


</table>
<table border=0 width=100% align=center><tr><td valign="top">
<input type=submit onclick="checkclick('您确定要激活所选的主题?');" value=" 激 活 ">
</td></form>
	<td>				<form method="POST" action="?menu=clean">
					清空 <input maxlength="1" size="1" value="7" name="TimeLimit"> 天以前的主题 
					<input type="submit" value="确定">
				</form></td>
<td align="right" valign="top">
<script>ShowPage(<%=TotalPage%>,<%=PageCount%>,"menu=activation")</script>
</td></tr></table>

<%
end sub

dim ii
ii=0
sub sort(selec)
	sql="Select * From [BBSXP_Forums] where followid="&selec&" and ForumHide=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("ForumName")%></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("ForumName")%></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

%>