pm_delete2.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<% '################################## %>
	<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="pm_view.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>
<% '################################## %>

<% If Request.Form("RemoveTopic") = "1" then
'Open a connection to the database
		
	'We want to delete our products.  The list of ProductIDs that need
	'to be deleted are in a comma-delimited list...
	Dim strRemoveList
	strRemoveList = Request("Remove")

	if strRemoveList = "" then 'Do Nothing
		
	Else

		'Now, use the SQL set notation to Remove all of the records
		'specified by strRemoveList
		Dim strSqL
		strSqL = "UPDATE " & strTablePrefix & "PM "
		strSql = strSql & "SET FORUM_PM.M_OUTBOX = 0 " & _
				 "WHERE M_ID IN (" & strRemoveList & ")"
				
		my_Conn.Execute (strSql)
	
				
%>
<center>
<br>
<br>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><% Response.Write "您已经成功删除 " & Request("Remove").Count & " 条悄悄话短讯" %></font></p>
<P><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><a href="pm_view.asp">返回悄悄话收件箱.</a></b></font></p>
<br>
<br>
</center>
<%	
	End If

else

	Dim strDeleteList
	strDeleteList = Request("Delete")

	if strDeleteList = "" then
		'No messages to delete
%>
<center>
<br>
<br>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没有选择要删除的悄悄话!</font></p>
<P><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><a href="pm_view.asp">返回悄悄话收件箱.</a></b></font></p>
<br>
<br>
</center>
<%
	Else

		'Now, use the SQL set notation to delete all of the records
		'specified by strDeleteList
		
		strSQL = "DELETE FROM FORUM_PM " & _
				 "WHERE M_ID IN (" & strDeleteList & ")"

		my_Conn.Execute (strSql)
%>
<center>
<br>
<br>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><% Response.Write "成功删除 " & Request("Delete").Count & " 条悄悄话短讯！" %></font></p>
<P><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><a href="pm_view.asp">返回悄悄话收件箱.</a></b></font></p>
<br>
<br>
</center>
<%
	End If
end if
%>
<meta http-equiv="Refresh" content="0; URL=pm_view.asp">

<!--#INCLUDE FILE="inc_footer.asp" -->