other.asp

网趣系统时尚版8（支付宝）

<!--#include file="Check.Asp"-->
<%
Dim Action,ID
ID=Request.QueryString("ID")
If ID="" Then ID=0

Action=Lcase(Request.QueryString("Action"))
Select case Action
Case"updatebbs"
	UpdateBbs
Case"passuser"
	PassUser
Case"delessay"
	DelEssay
Case"delsms"
	DelSms
Case"moveessay"
	MoveEssay
Case"allsms"
	AllSms
Case"updatebbsdate"
	UpdateBbsDate
Case"updatetopic"
	UpdateTopic
Case"updatealluser"
	UpdateAllUser
Case"delwuiong"
	DelWuiong
Case"exedelessay"
	ExeDelEssay
Case"exedelsms"
	ExeDelSms
Case"exemoveessay"
	ExeMoveEssay
Case"exeallsms"
	ExeAllSms
Case "clean"
	Clean
Case "execlean"
	ExeClean
End select
AdminFooter()

Sub UpdateBbs
%>
	<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
	<tr bgcolor="#CCCCCC"><td height="25" colspan="3"><b><font color="#FFFFFF">论坛整理修复</font></b></td>
	</tr>
	<tr><td bgcolor="#D7DAEA" colspan="3" height="50"><b>注意事项：</b>
	  论坛整理中的各项运行都需要消耗比较多的资源<br>
	  所以请你选择论坛访问人数较少的时候进行整理，
	  或者在整理过程中可以先暂时【<a href=?Action=BbsInfo>关闭论坛</a>】</td>
	</tr>
	<tr bgcolor="#DEDEDE">
	  <td height="50"><b>论坛系统整理</b></td>
	  <td>重新计算总主题数、总帖数、今日帖数、用户数、新注册用户等<br>
      建议每隔一段时间运行一次。</td><td><input value="开始整理" type="button" onClick=window.location.href='Other.Asp?action=UpdateBbsdate'></td></tr>
	<tr bgcolor="#DEDEDE"><td height="50"><b>论坛版面整理</b></td>
	<td>各版面总帖数、主题数、今日帖数、各版版主、最后回复等<br>
	  建议每隔一段时间运行一次。<br>清理的过程中请不要刷新和关闭！</td><td><input value="开始整理" type="button" onClick=window.location.href='Board.Asp?Action=BoardUpdate'></td></tr>
	<tr bgcolor="#DEDEDE">
	  <td height="50"><b>论坛垃圾清理</b></td>
	  <td>清理无效版主、无效帖子、无效主题、无效帖子、无效投票、元效留言、无效用户帖等<br>
      建议每隔一段时间运行一次，给论坛减减无用的脂肪，呵呵<br>清理的过程中请不要刷新和关闭！</td><td><input value="开始清理" type="button" onClick=window.location.href='Other.Asp?Action=DelWuiong'></td></tr>
	<tr bgcolor="#DEDEDE"><td height="50"><b>修复主题帖数</b></td>
	<td>重新整理计算每个主题帖的回复帖数、最后回复信息等<br>
	  如果论坛帖子非常多，整理过程可能将消耗大量资源。</td><td><input value="开始整理" type="button" onClick=window.location.href='Other.Asp?Action=UpdateTopic'></td></tr>
	<tr bgcolor="#DEDEDE">
	  <td height="50"><b>修复用户信息</b></td>
	  <td>重新整理计算每个用户的等级、总帖数、精华帖数等<br>
      如果注册会员非常多，整理过程可能将消耗大量资源。</td><td><input value="开始整理" type="button" onClick=window.location.href='Other.Asp?action=UpdateAllUser'></td></tr>
</table>
<%
End Sub

Sub DelEssay
%>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelEssay&Go=Date>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前的帖子</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">删除多少天前的帖子：</td>
<td width="70%"><input name="DateNum" type="text" value="365" size="5"> 天</td></tr>
<tr bgcolor="#DEDEDE"><td height="28">选择所在的论坛版面：</td>
<td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#DEDEDE"><td height="28" colspan="2">说明：此操作将删除指定天数前发表的主题帖，同时也包括主题的回复帖(当然，该主题最新的回复帖也会被删除)。</td>
</tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelEssay&Go=DateNoRe>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前没有回复的主题</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">删除多少天前的帖子：</td>
<td width="70%"><input name="DateNum" type="text" value="100" size="5"> 天</td></tr>
<tr bgcolor="#DEDEDE"><td height="28">删除帖子所在的论坛：</td>
<td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#DEDEDE"><td height="28" colspan="2">说明：此操作将删除指定天数前没有再回复主题帖，同时也包括主题的回复帖。</td>
</tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelEssay&Go=User>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定用户的所有帖子</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">请输入用户的名称：</td>
<td width="70%"><input name="Name" type="text" value="" size="20"> </td></tr>
<tr bgcolor="#DEDEDE"><td height="28">删除帖子所在的论坛：</td>
<td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<%
End Sub

Sub DelSms
%>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelSms&Go=Date>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前的所有留言</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">删除多少天前的留言：</td>
<td width="70%"><input name="DateNum" type="text" value="60" size="5"> 天</td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelSms&Go=User>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定用户的所有留言</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">请输入指定用户名称：</td>
<td width="70%"><input name="Name" type="text" size="20"> </td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeDelSms&Go=Auto>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">删除自动发送的信件</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">删除多少天前自动发送的信件：</td>
<td width="70%"><input name="DateNum" type="text" value="30" size="5">天 </td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<%
End Sub

Sub MoveEssay
%>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeMoveEssay&Go=Date>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">按指定天数移动帖子</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">移动多少天前的帖子：</td>
<td width="70%"><input name="DateNum" type="text" value="100" size="5"> 天</td></tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">帖子原来所在的论坛：</td>
<td width="70%"><select size="1" name="BoardID1"><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">帖子要移动到的论坛：</td>
<td width="70%"><select size="1" name="BoardID2"><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('您确定要移动帖子吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<form method=POST name=form style='margin:0' action=Other.Asp?Action=ExeMoveEssay&Go=User>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="2"><b><font color="#FFFFFF">移动指定用户的帖子</font></b></td>
</tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">请输入指定的用户名：</td>
<td width="70%"><input name="Name" type="text"  size="20"></td></tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">帖子原来所在的论坛：</td>
<td width="70%"><select size="1" name="BoardID1"><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#DEDEDE"><td width="30%" height="28">帖子要移动到的论坛：</td>
<td width="70%"><select size="1" name="BoardID2"><%=YxBBs.BoardIDList(0,0)%></select></td></tr>
<tr bgcolor="#CCCCCC"><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('您确定要移动这个用户的帖子吗？')> &nbsp;&nbsp;<input type="reset" name="Submit" value=" 重 置 "></td></tr></table>
</table></form><br>
<%End Sub

Sub AllSms
%><SCRIPT src="../Inc/Fun.js"></SCRIPT>
<form method=POST  name=yimxu style='margin:0' action=Other.Asp?Action=ExeAllSms  onSubmit="ok.disabled=true;ok.value='正在群发信件-请稍等。。。'">
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="3"><b><font color="#FFFFFF">群发信件（给用户留言）</font></b></td>
</tr>
<tr><td height="25" colspan="3" align="center" bgcolor="#D7DAEA">注意：此操作可能将消耗大量服务器资源。请慎用！</td></tr>
<tr bgcolor="#DEDEDE"><td align='right' >接收用户：</td>
<td colspan='2'>
<select name='User' style='font-size: 9pt'>
<option value=0 selected>所有在线用户</option>