privatedelete.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	       http://bbs.ChinaXP.Net    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#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>
<BR>
<%
	
	strSql = "SELECT "   & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME,  " & strTablePrefix & "PM.M_ID,  " & strTablePrefix & "PM.M_TO "
	strSql = strSql & " FROM " & strTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & Request.Cookies(strUniqueID & "User")("Name") & "'"
	strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_PASSWORD = '" & Request.Cookies(strUniqueID & "User")("PWord") & "'"
	strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_TO "
	strSql = strSql & " AND " & strMemberTablePrefix & "PM.M_ID =  " & Request.QueryString("id")
	
	Set rsMessage = my_Conn.Execute(strSql)


	if rsMessage.EOF or rsMessage.BOF then
			
%>
<center>
<br>
<br>
<P><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你没权限不能删除这条悄悄话.</p>
<p><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">返回上一页</a></font></p>
<br>
<br>
<% else
	'## Forum_SQL - Delete Message
	strSql = "DELETE FROM " & strTablePrefix & "PM "
	strSql = strSql & " WHERE " & strTablePrefix & "PM.M_ID = " & Request.QueryString("id")
			
	my_Conn.Execute strSql		
%>
<meta http-equiv="Refresh" content="1; URL=pm_view.asp">
<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>
<% end if %>
</center>
</font>
<!--#INCLUDE FILE="inc_adv.asp" -->
<!--#INCLUDE FILE="inc_footer.asp" -->