📄 subscibe.asp
字号:
<!--#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>")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -