admin_delete_topics.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;会员贴子管理中心
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>

<%
If Request.QueryString("whichpage") = "" or Request.QueryString("whichpage") <= 0 then
	mypage = 1
Else
	mypage = CINT(Request.QueryString("whichpage"))
End If

strDoDelete = "no"
	if request.querystring("m_id") <> "" then
    	strDoDelete = "yes"
    End if


Select Case strDoDelete
	Case "no"
		strsql = "Select M_NAME, M_STATUS, MEMBER_ID, M_LEVEL, M_LAST_IP, M_POSTS from " & strTablePrefix & "MEMBERS "
		strsql = strsql & " ORDER BY M_POSTS DESC"
		Set MemListRs = Server.CreateObject("ADODB.RecordSet")
		MemListRs.cachesize=20

		MemListRs.open  strSql, my_conn, 3

		if MemListRs.Eof then
			Response.Write("没有找到更多的会员！")
		else
			rec = 0
			MemListRs.movefirst
			MemListRs.PageSize = strPageSize
			MemListRs.CacheSize = MemListRs.PageSize
			maxPages = cint(MemListRs.PageCount)
			maxRecs = cint(MemListRs.PageSize)
			If myPage > MemListRs.PageCount Then
				myPage = MemListRs.PageCount
			end if
			MemListRs.AbsolutePage = myPage

			StartPageNum=1
			do while StartPageNum+10<=myPage
				StartPageNum = StartPageNum+10
			Loop
			EndPageNum = StartPageNum+9
			If EndPageNum>MemListRs.Pagecount then EndPageNum=MemListRs.Pagecount
%>
	<font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><center><p>这功能将会批量删除某个会员的全部贴子(发表跟回复)，请在下面选择一个会员</p></centeR></font>
<table align="center" bgcolor="<%=strTableBorderColor%>" cellspacing=1 cellpadding=3>
	<tr>
    	<td bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>">会员名</font></td>
        <td bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>">登陆IP</font></td>
        <td width="70" Align="center" bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>">会员等级</font></td>
        <td bgcolor="<%=strHeadCellColor%>"><font color="<%=strHeadFontColor%>" face="<%=strDefaultFontFace%>" size="<%=strHeaderFontSize%>">发表总数</font></td>
    </tr>
<%
    	strDisplay = ""
	rec = 1
    	do until MemListRs.Eof OR rec = (strPageSize + 1)
        	if MemListRs("M_LEVEL") > 2 then
			strMemberLevelA = "管理员"
		elseif MemListRs("M_LEVEL") > 1 and MemListRs("M_LEVEL") < 3 then
			strMemberLevelA = "版主"
		else
			strMemberLevelA = "一般会员"
		End if %>
<%		If rec mod 2=0 Then %>
	    <tr bgcolor="<%=strAltForumCellColor%>">
<%		Else %>
	    <tr bgcolor="<%=strForumCellColor%>">
<%		End If %>
		<td><font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><a href="admin_delete_topics.asp?m_id=<%=MemListRs("MEMBER_ID")%>"><%=MemListRs("M_NAME")%></a></font></td>
		<td><font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><%=MemListRs("M_LAST_IP")%></font></td>
		<td Align="center"><font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><%=strMemberLevelA%></font></td>
		<td Align="center"><B><font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>"><%=MemListRS("M_POSTS")%></font></B></td>
	    </tr>
            <%
            rec = rec + 1
        MemListRs.movenext
        Loop
    End if
set MemListRs = nothing
%>

</table>
<TABLE width="38%" Align=center>
<TR>
<TD>分页：<% call Paging() %></TD>
</TR>
</TABLE>
<%
Case "yes"
	Response.Write("<p>")
	if request.querystring("delete") = "" then
%>
<BR><BR><BR><BR>
<font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>">
<center><p>是否要删除此会员的全部贴子?<br>请谨慎选择</p></center>

<center><a href="admin_delete_topics.asp?m_id=<%=request.querystring("m_id")%>&delete=yes">是</a> | <a href="admin_delete_topics.asp?m_id=<%=request.querystring("m_id")%>&delete=no">否</a></center>
</font>
<%
	elseif request.querystring("delete") = "yes" AND request.querystring("upcount") = "" then
    %>
    <font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>">
    <%
    	Call DoDeleteMemberTopics(request.querystring("m_id"))
		Call DoCounts()
%>

<center>已经成功删除此会员的全部贴子</center>
<center><a href="admin_delete_topics.asp">点击这里</a>返回会员贴子管理中心</center>
</font>
<%
    elseif request.querystring("delete") = "no" AND request.querystring("upcount") = "" then
%>
<font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>">
<center><p>会员贴子还没被删哦！</p><br><a href="admin_delete_topics.asp">点击这里</a>返回会员贴子管理中心</center>
</font>
<%
	elseif request.querystring("delete") = "yes" AND request.querystring("upcount") = "yes" then
    %>
    <font color="<%=strForumFontColor%>" size="<%=strDefaultFontSize%>" face="<%=strDefaultFontFace%>">
    <center><strong>已经成功删除此会员的全部贴子.</strong></center>
<center><a href="admin_delete_topics.asp">点击这里</a>返回会员贴子管理中心</center>
</font>
    <%
	end if
    response.write("<p>")
End Select

Sub DoDeleteMemberTopics(fMemId)
	strsql = "delete from " & strTablePrefix & "TOPICS where T_AUTHOR=" & fMemId
	My_Conn.execute(strsql)

	strsql = "delete from " & strTablePrefix & "REPLY where R_AUTHOR=" & fMemId
	My_Conn.execute(strsql)

	strsql = "update " & strTablePrefix & "MEMBERS set M_POSTS=0 WHERE MEMBER_ID=" & fMemId
	My_Conn.execute(strsql)
End Sub

Sub DoCounts()
response.write("<table align=center border=0>" &_
  "<tr>" & _
   " <td align=center colspan=2><p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>更新主题统计...</font></b><br>" & _
    "&nbsp;</p></td>" & _
 " </tr>")
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")

Response.Write "  <tr>" & vbCrLf
Response.Write "    <td align=right valign=top><font face='" &strDefaultFontFace & "'>主题数:</font></td>" & vbCrLf
Response.Write "    <td valign=top><font face='" &strDefaultFontFace & "'>"

'## Forum_SQL - Get contents of the Forum table related to counting
strSql = "SELECT FORUM_ID, F_TOPICS FROM " & strTablePrefix & "FORUM WHERE F_TYPE <> 1 "

rs.Open strSql, my_Conn
rs.MoveFirst
i = 0

do until rs.EOF
i = i + 1

	'## Forum_SQL - count total number of topics in each forum in Topics table
	strSql = "SELECT count(FORUM_ID) AS cnt "
	strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
	strSql = strSql & " WHERE FORUM_ID = " & rs("FORUM_ID")

	rs1.Open strSql, my_Conn

	if rs1.EOF or rs1.BOF then
		intF_TOPICS = 0
	Else
		intF_TOPICS = rs1("cnt")
	End if
	
	strSql = "UPDATE " & strTablePrefix & "FORUM "
	strSql = strSql & " SET F_TOPICS = " & intF_TOPICS
	strSql = strSql & " WHERE FORUM_ID = " & rs("FORUM_ID")
	
	my_conn.execute(strSql)
	
	rs1.Close
	rs.MoveNext
	Response.Write "."
	if i = 80 then
		Response.Write "    <br>" & vbCrLf
		i = 0
	End if
loop
rs.Close

Response.Write "    </font></td>" & vbCrLf
Response.Write "  </tr>" & vbCrLf
Response.Write "  <tr>" & vbCrLf
Response.Write "    <td align=right valign=top><font face='" &strDefaultFontFace & "'>回复数:</font></td>" & vbCrLf
Response.Write "    <td valign=top><font face='" & strDefaultFontFace & "'>"

'## Forum_SQL
strSql = "SELECT TOPIC_ID, T_REPLIES FROM " & strTablePrefix & "TOPICS"

rs.Open strSql, my_Conn
i = 0

do until rs.EOF
i = i + 1

	'## Forum_SQL - count total number of replies in Topics table
	strSql = "SELECT count(REPLY_ID) AS cnt "
	strSql = strSql & " FROM " & strTablePrefix & "REPLY "
	strSql = strSql & " WHERE TOPIC_ID = " & rs("TOPIC_ID")

	rs1.Open strSql, my_Conn
	if rs1.EOF or rs1.BOF or (rs1("cnt") = 0) then
		intT_REPLIES = 0
		
		set rs2 = Server.CreateObject("ADODB.Recordset")

		'## Forum_SQL - Get post_date and author from Topic
		strSql = "SELECT T_AUTHOR, T_DATE "
		strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
		strSql = strSql & " WHERE TOPIC_ID = " & rs("TOPIC_ID") & " "