Mail_Del.asp
Upload User: ahxunteng
Upload Date: 2022-05-16
Package Size: 1606k
Code Size: 0k
Development Platform:

VBScript

  1. <!--#include file="../Inc/Conn.asp"-->
  2. <%
  3. dim rs
  4. dim sql
  5. set rs=server.createobject("adodb.recordset")
  6. sql="delete from email where email='"&request("email")&"'"
  7. rs.open sql,conn,3,3
  8. set rs=nothing
  9. conn.close
  10. set conn=nothing
  11. response.write"<SCRIPT language=JavaScript>alert('你已成功退订本站的邮件列表,欢迎下次再订阅');"
  12.   response.write"javascript:history.go(-1)</SCRIPT>"
  13. %>