📄 admin_action.asp
字号:
</table></form><br>
<%=GoForm("UpdateUserHonor")%>
<table width="98%" Style="WORD-BREAK: break-all;" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25"><b><font color="#FFFFFF">更改用户头衔</font></b></td></tr>
<tr><td height="28">用户名称： <input name='Name' type='text' size="20"> 头衔称号：<input name='Honor' type='text' size="20" maxlength="20"></td></tr>
<tr><td align="center"><input type="submit" value=" 提 交 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("UpdateUserShow")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">屏蔽用户帖子管理</font></b></td></tr>
<tr><td width="50%" height="28">用户名称： <input name='Name' type='text' size="20"> </td>
<td valign="Top" rowspan="2"><FIELDSET style="WIDTH: 100%; HEIGHT: 80"><LEGEND><u>以下是已经被屏蔽帖子的用户</u></LEGEND>
<%Set Rs=BBS94KK.Execute("Select name From[KK_User] where IsShow")
Do while not Rs.eof
Response.Write Rs(0)&" "
Rs.movenext
Loop
Rs.Close
%></fieldset></td></tr>
<tr><td width="50%" height="28"><input name="Flag" type="radio" value="yes" checked> 屏蔽帖子 <input name="Flag" type="radio" value="no"> 恢复显示</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 "> </td></tr></tbody></table>
</table></form><br>
<%=GoForm("UpdateUserSign")%>
<table width="98%" Style="WORD-BREAK: break-all;" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">屏蔽用户签名档</font></b></td></tr>
<tr><td height="28" width="50%">用户名称： <input name='Name' type='text' size="20"> </td>
<td width="50%" valign="Top" rowspan="2"><FIELDSET style="WIDTH: 100%; HEIGHT: 80"><LEGEND><u>以下是已经被屏蔽签名档的用户</u></LEGEND>
<%Set Rs=BBS94KK.Execute("Select name From[KK_User] where IsSign")
Do while not Rs.eof
Response.Write Rs(0)&" "
Rs.movenext
Loop
Rs.Close
%></fieldset></td></tr>
<tr><td height="28"><input name="Flag" type="radio" value="yes" checked> 屏蔽签名档 <input name="Flag" type="radio" value="no"> 恢复显示</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 "></td></tr></tbody></table>
</table></form><br>
<%End Sub
Sub SpaceSize
If Session(BBS94KK.CacheName&"fso")="no" Then Call GoBack("","空间不支持FSO文件读写。无法进入下一步。"):Exit Sub
%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">系统空间占用情况</font></b></td></tr>
<tr><td height="25">论坛数据占用空间：<img src="Images/hr1.gif" width=<%=drawbar("data")%> height=10> <%showSpaceinfo("data")%></td></tr>
<tr><td height="25">备份数据占用空间：<img src="Images/hr2.gif" width=<%=drawbar("data_backup")%> height=10> <%showSpaceinfo("data_backup")%></td></tr>
<tr><td height="25">程序文件占用空间：<img src="Images/hr3.gif" width=<%=drawspecialbar%> height=10> <%showSpecialSpaceinfo("Program")%></td></tr>
<tr><td height="25">图片目录占用空间：<img src="Images/hr4.gif" width=<%=drawbar("pic")%> height=10> <%showSpaceinfo("pic")%></td></tr>
<tr><td height="25">皮肤目录占用空间：<img src="Images/hr5.gif" width=<%=drawbar("skins")%> height=10> <%showSpaceinfo("skins")%></td></tr>
<tr><td height="25">上传头像占用空间：<img src="Images/hr6.gif" width=<%=drawbar("UploadFile/Head")%> height=10> <%showSpaceinfo("UploadFile/Head")%></td></tr>
<tr><td height="25">上传文件占用空间：<img src="Images/hr1.gif" width=<%=drawbar("UploadFile/TopicFile")%> height=10> <%showSpaceinfo("UploadFile/TopicFile")%></td></tr>
<tr><td height="25">Inc 目录占用空间：<img src="Images/hr2.gif" width=<%=drawbar("inc")%> height=10> <%showSpaceinfo("inc")%></td></tr>
<tr><td height="25" bgcolor="#D0DFDD">论坛占用空间总计：<img src="Images/hr3.gif" width=400 height=10> <%showspecialspaceinfo("All")%></td></tr></tbody></table>
<%
End Sub
Sub UpdateBbs%>
<table width="98%" border="2" align="center" cellpadding="4" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td colspan="3" height="25"><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="#E8F4EF"><td height="50"><b>论坛系统整理</b></td><td>重新计算总主题数、总帖数、今日帖数、用户数、新注册用户等<br>建议每隔一段时间运行一次。</td><td><input value="开始整理" type="button" onClick=window.location.href='Admin_Confirm.asp?action=UpdateBbsdate'></td></tr>
<tr><td height="50"><b>论坛版面整理</b></td><td>各版面总帖数、主题数、今日帖数、各版版主、最后回复等<br>建议每隔一段时间运行一次。<br>清理的过程中请不要刷新和关闭！</td><td><input value="开始整理" type="button" onClick=window.location.href='Admin_Board.asp?Action=BoardUpdate'></td></tr>
<tr bgcolor="#E8F4EF"><td height="50"><b>论坛垃圾清理</b></td><td>清理无效版主、无效帖子、无效主题、无效帖子、无效投票、无效留言、无效用户帖等<br>建议每隔一段时间运行一次，给论坛减减无用的脂肪，呵呵<br>清理的过程中请不要刷新和关闭！</td><td><input value="开始清理" type="button" onClick=window.location.href='Admin_Confirm.asp?Action=DelWuiong'></td></tr>
<tr><td height="50"><b>修复主题帖数</b></td><td>重新整理计算每个主题帖的回复帖数、最后回复信息等<br>如果论坛帖子非常多，整理过程可能将消耗大量资源。</td><td><input value="开始整理" type="button" onClick=window.location.href='Admin_Confirm.asp?Action=UpdateTopic'></td></tr>
<tr bgcolor="#E8F4EF"><td height="50"><b>修复用户信息</b></td><td>重新整理计算每个用户的等级、总帖数、精华帖数等<br>如果注册会员非常多，整理过程可能将消耗大量资源。</td><td><input value="开始整理" type="button" onClick=window.location.href='Admin_Confirm.asp?action=UpdateAllUser'></td></tr>
</table>
<%End Sub
Sub DelEssay%>
<%=GoForm("DelEssay&Go=Date")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前的帖子</font></b></td></tr>
<tr><td height="28" width="30%">删除多少天前的帖子：</td><td width="70%"><input name="DateNum" type="text" value="365" size="5"> 天</td></tr>
<tr><td height="28">选择所在的论坛版面：</td><td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td height="28" colspan="2">说明：此操作将删除指定天数前发表的主题帖，同时也包括主题的回复帖(当然，该主题最新的回复帖也会被删除)。</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("DelEssay&Go=DateNoRe")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前没有回复的主题</font></b></td></tr>
<tr><td height="28" width="30%">删除多少天前的帖子：</td><td width="70%"><input name="DateNum" type="text" value="100" size="5"> 天</td></tr>
<tr><td height="28">删除帖子所在的论坛：</td><td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td height="28" colspan="2">说明：此操作将删除指定天数前没有再回复主题帖，同时也包括主题的回复帖。</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("DelEssay&Go=User")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定用户的所有帖子</font></b></td></tr>
<tr><td height="28" width="30%">请输入用户的名称：</td><td width="70%"><input name="Name" type="text" value="" size="20"> </td></tr>
<tr><td height="28">删除帖子所在的论坛：</td><td height="28"><select name="BoardID"><option value="0">所有的论坛</option><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%End Sub
Sub DelSms%>
<%=GoForm("DelSms&Go=Date")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定日期前的所有留言</font></b></td></tr>
<tr><td height="28" width="30%">删除多少天前的留言：</td><td width="70%"><input name="DateNum" type="text" value="60" size="5"> 天</td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("DelSms&Go=User")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除指定用户的所有留言</font></b></td></tr>
<tr><td height="28" width="30%">请输入指定用户名称：</td><td width="70%"><input name="Name" type="text" size="20"> </td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("DelSms&Go=Auto")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">删除自动发送的信件</font></b></td></tr>
<tr><td height="28" width="30%">删除多少天前自动发送的信件：</td><td width="70%"><input name="DateNum" type="text" value="30" size="5">天 </td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('注意：删除后将不能恢复！您确定删除吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%End Sub
Sub MoveEssay%>
<%=GoForm("MoveEssay&Go=Date")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">按指定天数移动帖子</font></b></td></tr>
<tr><td height="28" width="30%">移动多少天前的帖子：</td><td width="70%"><input name="DateNum" type="text" value="100" size="5"> 天</td></tr>
<tr><td height="28" width="30%">帖子原来所在的论坛：</td><td width="70%"><select size="1" name="BoardID1"><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td height="28" width="30%">帖子要移动到的论坛：</td><td width="70%"><select size="1" name="BoardID2"><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('您确定要移动帖子吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%=GoForm("MoveEssay&Go=User")%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><td height="25" colspan="2"><b><font color="#FFFFFF">移动指定用户的帖子</font></b></td></tr>
<tr><td height="28" width="30%">请输入指定的用户名：</td><td width="70%"><input name="Name" type="text" size="20"></td></tr>
<tr><td height="28" width="30%">帖子原来所在的论坛：</td><td width="70%"><select size="1" name="BoardID1"><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td height="28" width="30%">帖子要移动到的论坛：</td><td width="70%"><select size="1" name="BoardID2"><%=BBS94KK.BoardIDList(0,0)%></select></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value=" 提 交 " onclick=checkclick('您确定要移动这个用户的帖子吗？')> <input type="reset" name="Submit" value=" 重 置 "></td></tr></tbody></table>
</table></form><br>
<%End Sub
Sub AllSms
%><SCRIPT src="inc/Fun.js"></SCRIPT>
<form method=POST name=kk style='margin:0' action=Admin_Confirm.asp?Action=AllSms onSubmit="ok.disabled=true;ok.value='正在群发信件-请稍等。。。'">
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
<tr bgcolor="#4D65A4"><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><td align='right' >接收用户：</td><td colspan='2'>
<select name='User' style='font-size: 9pt'>
<option value=0 selected>所有在线用户</option>
<option value=1>所有版主</option>
<option value=2>所有管理员</option>
<option value=3>管理团队(板主+管理员)</option>
<option value=4>所有注册用户</option>
<option value=5>所有Vip用户</option>
</select>
</td></tr><tr><td align='right' >功能按钮：</td><td colspan='2'><img onClick=Cbold() src="Pic/Ubb/U_1.gif" border=0 alt=粗体字> <img src="Pic/Ubb/U_2.gif" onClick=Citalic() border=0 alt=斜体字 > <img src="Pic/Ubb/U_3.gif" onClick=Cunder() border=0 alt=下划线><img src="Pic/Ubb/U_4.gif" onClick=center() border='0' alt='居中'> <img src="Pic/Ubb/U_5.gif" onClick=fly() border=0 alt=飞行字> <img src="Pic/Ubb/U_6.gif" onClick=move() border=0 alt=移动字> <img src="Pic/Ubb/U_7.gif" onClick=Insert("[light]内容[/light]") border=0 alt=发光字> <img src="Pic/Ubb/U_8.gif" onClick=ying() border=0 alt=阴影字> <img src="Pic/Ubb/U_9.gif" onClick=Curl() border='0' alt='超连接'> <img src="Pic/Ubb/U_10.gif" onClick=Cemail() border='0' alt='Email连接'> <img src="Pic/Ubb/U_11.gif" onClick=showpic() border='0' alt='更多的心情图片'> <img src="Pic/Ubb/U_12.gif" onClick=image() border=0 alt=图片> <img src="Pic/Ubb/U_13.gif" onClick=swf() border=0 alt=Flash动画 > <img onClick=Cwmv() src="Pic/Ubb/U_14.gif" border=0 alt='Media Player视频文件'> <img src="Pic/Ubb/U_15.gif" onClick=Crm() border=0 alt=realplay视频文件> <img onClick=Csound() src="Pic/Ubb/U_16.gif" border='0' alt='插入背景音乐'>
</td></tr><tr><td align='right' valign='top'>留言内容：</td><td><TEXTAREA name=content cols=90 rows='8' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;' onkeydown=presskey();></textarea></td>
<td valign='top'><input type='button' style='BACKGROUND: url(Images/plus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(3,this.form.content)' ><br><br><input type='button' style='BACKGROUND: url(Images/minus.gif); width:20;height:20;border:0;cursor:hand' onclick='textarea_Size(-3,this.form.content)'></td></tr>
<tr><td colspan='3' align='center'><input type='submit' value='确定送出' name="ok"> <input type='reset' value='取消重写'>
</td></tr></table></form><div id='MaoDiv' style='position: absolute; width:570px; height:160px; display:none;'><iframe id='MView' name='MView' src='about:blank' frameborder='0' scrolling='no' valign='top' width='100%' height='100%'></iframe></div>
<%
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -