delete.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 16 行

<!--#include file="Connections.asp" -->
<!--#include file="check.asp" -->
<%
Id=Request("id")
If Id<>"" And IsNumeric(Id) Then
	Set Rs=Server.CreateObject("ADODB.Connection")
	Rs.Open datalink
	stRsQL="Delete From Message Where id="&id
	Rs.Execute(stRsQL)
	stRsQL="Delete From Revert Where message_id='"&id&"'"
	Rs.Execute(stRsQL)
	Rs.close
	set Rs=Nothing
End If
Response.Write("action=complete")
%>