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