📄 batchdel.asp

📁 苹果风格的论坛 asp编写
💻 ASP
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->

<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="admin.css" type="text/css">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%

if request("mode") <> "" then

	if request("mode") = "thread" then
		' thread
		strsql = ""
		if request("username") <> "" then strsql = strsql & " postusername='" & chksql(request("username")) & "'"
		if request("daynum") <> "" then
			daynum = request("daynum")
			if IsNumeric(daynum) then
				if strsql <> "" then strsql = strsql & " and "
				strsql = strsql & " dateline < #" & dateadd("d", -1 * clng(daynum), date()) & " 00:00:00" & "#"
			end if
		end if
		if request("forumid") <> "" then
			forumid = request("forumid")
			if IsNumeric(forumid) then
				if strsql <> "" then strsql = strsql & " and "
				strsql = strsql & " forumid = " & clng(daynum)
			end if
		end if
		if request("best") <> "" then
			if strsql <> "" then strsql = strsql & " and "
			strsql = strsql & " best <> 1"
		end if
		Conn.execute("delete from sf_thread where " & strsql)
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">批量删除主题完毕</TD>
  </TR>
</TABLE>
<%
	else
		' user
		strsql = ""
		if request("regdaynum") <> "" then
			regdaynum = request("regdaynum")
			if IsNumeric(regdaynum) then strsql = strsql & " joindate < #" & dateadd("d", -1 * clng(regdaynum), date()) & " 00:00:00" & "#"
		end if
		if request("postnum") <> "" then
			postnum = request("postnum")
			if IsNumeric(postnum) then
				if strsql <> "" then strsql = strsql & " and "
				strsql = strsql & " posts < " & postnum
			end if
		end if
		if request("lastpostnum") <> "" then
			lastpostnum = request("lastpostnum")
			if IsNumeric(lastpostnum) then
				if strsql <> "" then strsql = strsql & " and "
				strsql = strsql & " lastposttime < #" & dateadd("d", -1 * clng(lastpostnum), date()) & " 00:00:00" & "#"
			end if
		end if
		if request("onlyuser") <> "" then
			if strsql <> "" then strsql = strsql & " and "
			strsql = strsql & " usergroup = 0"
		end if
		Conn.execute("delete from sf_user where " & strsql)
%>
<TABLE width="80%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">批量删除用户完毕</TD>
  </TR>
</TABLE>
<%
	end if
else
%>
<FORM name="form1" method="post" action="batchdel.asp?mode=thread">
  <TABLE width="100%" border="0" cellspacing="1" cellpadding="4">
    <TR> 
      <TD bgcolor="#D1E3BF" align="center" colspan="2"><B>批量删除主题</B></TD>
    </TR>
    <TR> 
      <TD width="30%" align="right"> 条件1:</TD>
      <TD> 发表者名字为
<INPUT type="text" name="username" size="20">
        (置空则表示任意) </TD>
    </TR>
    <TR> 
      <TD bgcolor="#F5F5F5" align="right">条件2:</TD>
      <TD bgcolor="#F5F5F5">发表日期为 
        <INPUT type="text" name="daynum" value="100" size="6">
        天之前 (置空则表示任意)</TD>
    </TR>
    <TR> 
      <TD align="right">条件3:</TD>
      <TD> 主题所属范围: 
        <SELECT name="forumid">
        <option value="">---任意版块---</option>
<%
		StrSql = "select sf_forum.forumid, sf_forum.title from sf_forum left join sf_cate on (sf_forum.cateid = sf_cate.cateid) where sf_cate.displayorder>0 and sf_forum.displayorder>0 order by sf_cate.displayorder DESC, sf_cate.cateid ASC, sf_forum.displayorder DESC, sf_forum.forumid ASC"
		Set rs = Conn.Execute(StrSql)
		if not (rs.bof or rs.eof) then
			do until rs.eof
				response.write "<option value=""" & rs("forumid") & """>&nbsp; &nbsp;" & rs("title") & "</option>" & chr(10)
				rs.MoveNext
			loop
		end if
%>
        </SELECT>
      </TD>
    </TR>
    <TR> 
      <TD bgcolor="#F5F5F5" align="right"> 
        <INPUT type="checkbox" name="best" value="yes" checked>
        保留其中的精华主题</TD>
      <TD bgcolor="#F5F5F5"> 
        <INPUT type="submit" name="Submit" value="删除满足以上条件的主题">
      </TD>
    </TR>
  </TABLE>
</FORM>
<BR>
<BR>
<FORM name="form1" method="post" action="batchdel.asp?mode=user">
  <TABLE width="100%" border="0" cellspacing="1" cellpadding="4">
    <TR> 
      <TD bgcolor="#D1E3BF" align="center" colspan="2"><B>批量删除用户</B></TD>
    </TR>
    <TR> 
      <TD width="30%" align="right"> 条件1:</TD>
      <TD> 注册日期为 
        <INPUT type="text" name="regdaynum" value="100" size="6">
        天之前 (置空则表示任意)</TD>
    </TR>
    <TR> 
      <TD bgcolor="#F5F5F5" align="right">条件2:</TD>
      <TD bgcolor="#F5F5F5">发帖量少于
        <INPUT type="text" name="postnum" value="1" size="6">
        (置空则表示任意)</TD>
    </TR>
    <TR> 
      <TD align="right">条件3:</TD>
      <TD>最后一次发帖在
        <INPUT type="text" name="lastpostnum" value="100" size="6">
        天之前(置空则表示任意) </TD>
    </TR>
    <TR> 
      <TD bgcolor="#F5F5F5" align="right"> 
        <INPUT type="checkbox" name="onlyuser" value="yes" checked>
        只删除一般用户</TD>
      <TD bgcolor="#F5F5F5"> 
        <INPUT type="submit" name="Submit2" value="删除满足以上条件的用户">
      </TD>
    </TR>
  </TABLE>
</FORM>
<%
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -