mail_del.asp

来自「ChinaWeb标准企业网站管理系统 V3.01」· ASP 代码 · 共 14 行

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