add_email.asp

来自「全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能」· ASP 代码 · 共 18 行

<!--#include file="Inc/conn.asp"-->
<%
dim rs
dim sql

set rs=server.createobject("adodb.recordset")
sql="select * from email where email='"&email&"'"
rs.open sql,conn,3,3
rs.addnew
rs("email")=request("email")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<SCRIPT language=JavaScript>alert('感谢你订阅本站的邮件列表');"
response.write"javascript:history.go(-1)</SCRIPT>"
%>