deletemessage.asp

一个虚拟主机代理系统

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

Sub Deletemessage()

	dim action, smumquery
	
	if not Application("smumdebugmode") then on error resume next

	action = request("action")

	smumquery = "delete from smum_messagingtbl where messaging_id = "& request("id")
	smumexecutequery smumquery,action

	Response.Redirect smumadminpage&"?action=approvemessages"

End Sub%>