<!--#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('刪除成功，頁面關(guān)閉：）^_^!');window.close();}</script>")
'response.write("<script language=JavaScript>{window.alert('刪除成功，頁面關(guān)閉：）^_^!');javascript:history.back();}</script>")
%>