del_revert.asp

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

<!--#include file="connections.asp" -->
<!--#include file="check.asp" -->
<%
id=Request("id")
action=Request("action")
If Not IsNumeric(Id) Then Id=0

If Id<>0 And Action="delete" Then
	Set rs=Server.CreateObject("ADODB.Connection")
	rs.Open datalink
	strSQL="delete from revert Where id="&Id
	rs.Execute(strSQL)
	rs.close
	set rs=Nothing
	Response.Write("<script>alert('该回复已被删除！\n\n如要让它立刻在你眼前消失---\n\n请刷新')</script>")
Else
	Response.Write("<script>if(confirm('是否删除？')){window.location='del_revert.asp?action=delete&id="&Id&"';}</script>")
End If
%>