deletemessage.asp

来自「一个虚拟主机代理系统」· ASP 代码 · 共 51 行

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps to delete a message
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Deletemessage()

	dim messaging_id,action,messaging_fromid,messaging_toid,messaging_displaystatus
	
	if session("id") = "" then Response.Redirect smumpage
	
	if not Application("smumdebugmode") then on error resume next

	messaging_id = request("messaging_id")
	
	if messaging_id = "" then Response.Redirect Request.ServerVariables("url")&"?action=inbox"
	
	action = request("action")

	smumquery = "select messaging_fromid,messaging_toid,messaging_displaystatus from smum_messagingtbl where messaging_id = "&messaging_id
	smumOpenrs smumquery,"smumrs",action

		if not smumrs.eof then
			
			messaging_fromid = smumrs("messaging_fromid")
			messaging_toid = smumrs("messaging_toid")
			messaging_displaystatus = smumrs("messaging_displaystatus")
			
		end if

	smumClosers(smumrs)

	if messaging_fromid = session("id") then

		smumquery = "update smum_messagingtbl set messaging_deletestatusfrom = "&smumtrue&" where messaging_id = "&messaging_id
		smumexecutequery smumquery,action
				
	elseif messaging_toid = session("id") then

		smumquery = "update smum_messagingtbl set messaging_deletestatusto = "&smumtrue&" where messaging_id = "&messaging_id
		smumexecutequery smumquery,action
				
	end if
	
	Response.Redirect replace(Request.ServerVariables("http_referer"),"displaymessage","inbox") 
		
End Sub%>