?<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin") 
  id=Request("id")
  
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From vice where id="&id&""
rs.Open sql,conn,1,2

rs.Delete
 Response.write "<card id='card1' title='刪除成功' ontimer='admin.asp?admin=" & admin & "'><timer value='20'/><p>正在返還!"
 Response.write "<br/><a href='admin.asp?admin=" & admin & "'>點擊返回管理頁</a></p></card></wml>"
set rs=nothing
delete_ip()  '清空IP數據庫
conn.close
set conn=nothing

	%>