delete.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!--#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")
%>