📄 admin_delpost.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/UserPs.Asp"-->
<!--#include file="../inc/pwwd.asp"-->
<%
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
BotList = "Google,Isaac,SurveyBot,Baiduspider,yahoo,yisou,3721,ia_archiver,P.Arthur,FAST-WebCrawler,Java,Microsoft-ATL-Native,TurnitinBot,WebGather,Sleipnir"
Botlist = Split(Botlist,",")
For i = 0 To Ubound(Botlist)
If InStr(Lcase(Request.ServerVariables("HTTP_USER_AGENT")),Lcase(Botlist(i))) > 0 Then
response.write" - Powered By FYPost - 枫叶贴吧"
response.End()
Exit For
End If
Next
'/*不让搜索引擎收录*/
Call Admin_Admin()
action = ReplaceBadWord(Request.QueryString("action"))
Select Case action
Case ""
Call admin_index()
Case "delpost"
Call admin_delpost()
Case "delvip"
Call admin_delvip()
Case "delposts"
Call admin_delposts()
End Select
Sub admin_index()
%>
<HTML>
<HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<TITLE>管理中心—贴吧管理</TITLE>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
td{
background:#F1F3F5;
}
-->
</style></head>
<body>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<tr >
<td align="center" class="imgbg" height="25"><strong class="size">贴吧帖子管理</strong></td>
</tr>
<tr class="table_3">
<td height="15" class="bj"><strong>说明：</strong></td>
</tr>
<tr>
<td height="38" class="table_2" valign="top">下面操作将大批量删贴吧帖子以及帖子内的回复帖，并且所有操作不可恢复！如果您确定这样做，请仔细检查您输入的信息。<br><br>
建议操作前对数据库进行备份 </td>
</tr>
</table>
<br>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="table" >
<form action="admin_delpost.asp?action=delpost" method="post">
<tr >
<td align="center" class="imgbg" colspan="2"><strong class="size">帖子批量删除</strong></td>
</tr>
<tr class="table_3">
<td class="bj" colspan="2">删除指定日期前的帖子</td>
</tr>
<tr>
<td height="25" class="table_3" width="27%">删除多少天前的帖子(填写数字)</td>
<td width="73%">
<input name="delpost" class="input" style="width:163px;" >
<font color="#FF0000">注：如果为不填写日期将会删除所有帖子！ </font></td>
</tr>
<tr>
<td height="25" class="bj" width="27%"> </td>
<td class="bj" height="25" width="73%"><input onClick="return confirm('确定进行此操作?')" name="submit" type="submit" value="确定操作" class="buttion"> <input name="submit" type="reset" value="重新输入" class="buttion"></td>
</tr></form>
<form action="admin_delpost.asp?action=delposts" method="post">
<tr class="table_3">
<td class="bj" colspan="2">删除指定日期内的帖子</td>
</tr>
<tr>
<td height="25" class="table_3" width="27%">删除指定日期内的帖子(填写日期)</td>
<td width="73%"><input name="delpost" class="input" style="width:163px;" >
<font color="#FF0000">注：日期格式： 年-月-日 如 200X-X-X [个位数的月、日不必补零] </font></td>
</tr>
<tr>
<td height="25" class="bj" width="27%"> </td>
<td class="bj" height="25" width="73%"><input onClick="return confirm('确定进行此操作?')" name="submit" type="submit" value="确定操作" class="buttion"> <input name="submit" type="reset" value="重新输入" class="buttion"></td>
</tr></form>
<form action="admin_delpost.asp?action=delvip" method="post">
<tr class="table_3">
<td class="bj" colspan="2">删除指定会员的帖子</td>
</tr>
<tr>
<td height="25" class="table_3" width="27%">删除会员帖子(填写会员名)</td>
<td width="73%"><input name="delvip" class="input" style="width:162px;" >
<font color="#FF0000">注：数据库必须要存在会员名</font></td>
</tr>
<tr>
<td height="25" class="table_3" width="27%">其它选项</td>
<td width="73%">
<input type="checkbox" name="retitle" value="ok">
同时删除此会员所有回复</td>
</tr>
<tr>
<td height="25" class="bj" width="27%"> </td>
<td class="bj" height="25" width="73%"><input onClick="return confirm('确定进行此操作?')" name="submit" type="submit" value="确定操作" class="buttion"> <input name="submit" type="reset" value="重新输入" class="buttion"></td>
</tr></form>
</table>
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_delpost()
delpost=request.form("delpost")
If delpost="" Or IsNumeric(delpost) = false Then
%>
<script language="javascript">
alert("输入日期为空或不是纯数字")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
Else
deltimes = date()-delpost
set rs= server.createobject("adodb.recordset")
sql="delete from [title] where [deltime]<'"&deltimes&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("批量删除<%=delpost%>天前的帖子操作完成")
document.location="admin_delpost.asp"
</script>
<%
End If
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_delposts()
delpost=request.form("delpost")
If delpost="" Then
%>
<script language="javascript">
alert("输入日期为空或不是纯数字")
document.location="javascript:history.back(-1)"
</script>
<%
response.end
Else
set rs= server.createobject("adodb.recordset")
sql="delete from [title] where [deltime]='"&delpost&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("批量删除<%=delpost%>的帖子操作完成")
document.location="admin_delpost.asp"
</script>
<%
End If
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
Sub admin_delvip()
delvip=request.Form("delvip")
retitle = request.Form("retitle")
if delvip="" then
%>
<script language="javascript">
alert("输入不能为空，请重新提交")
document.location="admin_delpost.asp"
</script>
<%
response.end
End If
set rs= server.createobject("adodb.recordset")
sql= "select * from [user] where [username]='"&delvip&"'"
rs.open sql,conn,1
if rs.eof and rs.bof then
%>
<script language="javascript">
alert("会员<%=delvip%>不存在，请重新提交")
document.location="admin_delpost.asp"
</script>
<%
response.end
Else
If retitle="ok" Then
set rs= server.createobject("adodb.recordset")
sql="delete from [title] where [username]='"&delvip&"'"
rs.Open sql,conn,3
sql="delete from [retitle] where [username]='"&delvip&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("批量删除会员<%=delvip%>的帖子操作完成")
document.location="admin_delpost.asp"
</script>
<%
Else
set rs= server.createobject("adodb.recordset")
sql="delete from [title] where [username]='"&delvip&"'"
rs.Open sql,conn,3
%>
<script language="javascript">
alert("批量删除会员<%=delvip%>的帖子操作完成")
document.location="admin_delpost.asp"
</script>
<%
End If
End If
End Sub
Call Fywencl()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -