admin_manage.asp

一个asp写的论坛源代码,论坛所需要的功能都有

  </tr>
  <form method="post" action="?Action=deltopicok">
    <tr class="a4">
      <td width="40%"> 删除 <INPUT size="3" name="posttime" value="180"> 天以前的主题</td>
      <td width="40%"><select name="bbsid">
          <option value="">所有论坛</option>
          <%ForumList_Sel(0)%>
        </select></td>
      <td width="20%"><input type="submit" value=" 确 定 "></td>
  </tr>
</form>
<form method="post" action="?Action=delforumok">
    <tr class="a3">
      <td> 删除<INPUT size="3" name="posttime" value="180"> 天没有更新的主题</td>
      <td><select name="bbsid">
          <option value="">所有论坛</option>
          <%ForumList_Sel(0)%>
        </select></td>
      <td><input type="submit" value=" 确 定 "></td>
  </tr>
   </form>
  <form method="post" action="?Action=delusertopicok">
  <tr class="a4">
	<td>删除 <input size="10" name="postname"> 发表的所有主题 </td>
    <td> <select name="bbsid">
			<option value="">所有论坛</option>
			<%ForumList_Sel(0)%>
			</select>
	</td>  
    <td><input type="submit" value=" 确 定 "></td>
  </tr>
  </form>
  <form method="post" action="?Action=delliketopicok">
  <tr class="a3">
	<td>删除标题里包含有 <input size="10" name="topic"> 的所有主题</td>
    <td><select name="bbsid">
			<option value="">所有论坛</option>
			<%ForumList_Sel(0)%>
			</select>
	</td>
    <td><input type="submit" value=" 确 定 "></td>
   </tr>
</form>
</table>
<BR/>

<table cellspacing="1" cellpadding="3" width="90%" border="0" class="a2" align="center">
  <tr  class="a1">
    <td colspan="3"> 批量删除回帖 </td>
  </tr>
  <form method="post" action="?Action=delretopicok">
    <tr class="a4">
      <td width="40%"> 删除 <INPUT size="3" name="posttime" value="180"> 天以前的回帖</td>
      <td width="40%"><select name="bbsid">
						<option value="">所有论坛</option>
						 <%ForumList_Sel(0)%>
						 </select> - <select name="Reforumname">
										<option value="ReForum">请选择回帖表</option>
<%	Dim Value,i,Rs1
	Set Rs1 = Team.Execute(" Select id,TableName From TableList ")
	If Not Rs1.Eof Then
		Value = Rs1.GetRows(-1)
	End If
	Rs1.Close:Set Rs1=Nothing
	If IsArray(Value) Then
		For i=0 To Ubound(Value,2)
			Echo "<option value="&Value(0,i)&">"&Value(1,i)&"</option>"
		Next
	End If
	%></select>
      </td>
      <td width="20%"><input type="submit" value=" 确 定 "></td>
    </tr>
  </form>
  <form method="post" action="?Action=deluserretopicok">
  <tr Class="a3">
	<td>删除 <input size="10" name="postname"> 发表的所有回帖 </td> 
    <td>	<select name="bbsid">
				<option value="">所有论坛</option>
				<%ForumList_Sel(0)%>
			</select> -
			<select name="Reforumname">
				<option value="ReForum">请选择回帖表</option>
				<%
			If IsArray(Value) Then
				For i=0 To Ubound(Value,2)
					Echo "<option value="&Value(0,i)&">"&Value(1,i)&"</option>"
				Next
			End If	%>
		</select>
    </td>  
    <td><input type="submit" value=" 确 定 ">
</tr>
</form>
</table>
<BR>
  <center>
    <input type="submit" name="submit" value="提 交" onclick="{if(confirm('您确定要删除论坛么?')){return true;}return false;}">
  </center>
</form>
<form method="post" action="?Action=uniteok">
  <table cellspacing="1" cellpadding="3" width="90%" border="0" class="a2" align="center">
    <tr class="a1">
      <td colspan="3">移动论坛 - 将指定论坛的帖子按照条件筛选转入目标论坛，同时保留源论坛</td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">源论坛:</td>
      <td bgcolor="#FFFFFF" width="60%"  align="left">　
        <select name="source">
          <option value="">┝ 请选择</option>
          <% ForumList_Sel(0) %>
        </select></td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">目标论坛:</td>
      <td bgcolor="#FFFFFF" width="60%"  align="left">　
        <select name="target">
          <option value="">┝ 请选择</option>
          <% ForumList_Sel(0) %>
        </select></td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">日期设定:</td>
      <td bgcolor="#FFFFFF" width="60%" align="left">　仅移动
        <input size="2" name="posttime" value="0">
        天前的帖子</td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">用户设定:</td>
      <td bgcolor="#FFFFFF" width="60%"  align="left">　仅移动
        <input size="8" name="postname">
        发表的帖子</td>
    </tr>
  </table>
  <br>
  <center>
    <input type="submit" name="submit" value="提 交">
  </center>
</form>
<form method="post" action="?Action=Forumsmerge">
  <table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
    <tr class="a1">
      <td colspan="3">合并论坛 - 源论坛的帖子全部转入目标论坛，同时删除源论坛</td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">源论坛:</td>
      <td bgcolor="#FFFFFF" width="60%" align="left">　
        <select name="source">
          <option value="">┝ 请选择</option>
          <% ForumList_Sel(0) %>
        </select></td>
    </tr>
    <tr align="center">
      <td bgcolor="#F8F8F8" width="40%">目标论坛:</td>
      <td bgcolor="#FFFFFF" width="60%" align="left">　
        <select name="target">
          <option value="">┝ 请选择</option>
          <% ForumList_Sel(0) %>
        </select></td>
    </tr>
  </table>
  <br>
  <center>
    <input type="submit" name="submit" value="提 交">
  </center>
</form>
<br>
<%
End Sub

Sub DelForums%>
<br>
<br>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<form method="post" action="?Action=ServerDelForum&ID=<%=request("ID")%>">
  <table cellspacing="1" cellpadding="4" width="90%" align="center" class="a2">
    <tr class="a1">
      <td colspan=5>TEAM's 提示</td>
    </tr>
    <tr align="center">
      <td bgcolor="#FFFFFF"><br>
        <br>
        <br>
        本操作不可恢复，您确定要删除该论坛，清除其中帖子和附件吗?<br>
        注意: 删除论坛并不会更新用户发帖数和积分<br>
        <br>
        <br>
        <br>
        <input type="submit" name="forumsubmit" value=" 确 定 ">
        &nbsp;
        <input type="button" value=" 取 消 " onClick="history.go(-1);"></td>
    </tr>
  </table>
</form>
<br>
<%
End Sub

Sub ForumList_Sel(V)
	Dim SQL,ii,RS,W
	Set Rs=Team.Execute("Select ID,BBSname,Followid From "&IsForum&"Bbsconfig Where Followid="&V&" Order By SortNum")
	Do While Not RS.Eof
		W="　┕ "
		If V = 0 Then W="┝ "
		Response.Write "<option value="&RS(0)&""
		Response.Write ">"&String(ii,"　")&""&W&""&RS(1)&"</option>"
		ii=ii+1
		ForumList_Sel RS(0)
		ii=ii-1
		RS.MoveNext
	loop
	Rs.close: Set Rs = Nothing
End Sub
%>