dy.asp

来自「凡人网络购物系统 v8.0 中文版」· ASP 代码 · 共 22 行

<!--#include file="conn.asp"-->
<%
email=DelStr(request("useremail"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_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
%>