subscibe.asp

来自「西亚电子购物系统」· ASP 代码 · 共 28 行

<!--#include file="../conn/conn.asp"-->
 <%
mail=request("mail")
If mail="" or mail="填入您的Email订阅快讯" Then
response.write "<script>alert(""信箱不能为空!!"");history.back();</script>"
response.end
end if
If instr(mail,"@")<=1 or instr(mail,".")<=1 or Len(mail)<8 Then
response.write "<script>alert(""您的信箱地址不正确!!"");history.back();</script>"
response.end
end if
sql="select * from sia_user where mail='"&mail&"'"
set rs = conn.Execute(sql)
If Not rs.EOF Then
Response.write "<script>alert(""您填写的Email在数据库已经有记录了,如果有疑问请与我们联系！"");history.back();</script>"
Response.End
End If
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "sia_user", conn, 1, 3
rs.addnew
rs("sia_user")="订阅产品快讯"
rs("mail")=mail
rs("info")=true
rs("ip") = Request.servervariables("REMOTE_ADDR")
rs.update
rs.close
Response.Write("<script>alert(""产品快讯订阅成功"");location.href=""../index.asp"";</script>")
%>