dy.asp

wanzhengban 完整版 wanzhengban 完整版

<!--#include file="conn.asp"-->
<%
email=request("useremail")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from email where email='"&email&"'",conn,1,3
if not rs.eof then
response.Write "<script language=javascript>alert('邮箱已存在！');history.go(-1);</script>"
response.End
else
rs.addnew
rs("email")=email
rs("date")=date()
rs.update
response.Write "<script language=javascript>alert('订阅成功！');history.go(-1);</script>"
response.End
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>