ndel.asp

使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate

<!--#include file="conn.asp"-->
<!--#include file="qx.asp"-->
<%
	 '*******************************************************************
	 ' 弹出对话框
	 '*******************************************************************
	 Sub Alert(message)
	  message = Replace(message,"'","\'")
	  message = Replace(message,Chr(13),"\n")
	  message = Replace(message,Chr(10),"")
	  Response.Write ("<script>alert('" & message & "')</script>")
	 End Sub
	 
	 '*******************************************************************
	 ' 返回上一页，一般用在判断信息提交是否完全之后
	 '*******************************************************************
	 Sub GoBack()
	  Response.write ("<script>history.go(-1)</script>")
	  Response.write ("<script>Location.refresh()</script>")
	 End Sub
 %>
<%
   dim SQL, Rs, contentID,CurrentPage
   contentID=request("ID")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete * from sa where id="& contentID
   rs.open sqltext,conn,3,3
   set rs=nothing
   'response.redirect "like.asp"
   'GoBack()
response.write("<script language=JavaScript>{window.alert('删除成功，页面关闭：）^_^!');window.close();}</script>")
'response.write("<script language=JavaScript>{window.alert('删除成功，页面关闭：）^_^!');javascript:history.back();}</script>")
%>