deletemessage.asp

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

<%'=========================================
'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%>