📄 getmailok.asp
字号:
<!--#include file="conn.asp"-->
<%
mail=request.querystring("mail")
type1=request.querystring("do")
if type1=1 then
exec="select * from wq_ding where email='"&mail&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
if not rs.eof then
memo="此信箱已经订阅过，请换其他信箱"
else
rs.addnew
rs("email")=mail
rs("type")=1
rs.update
memo="您的信箱"+mail+"<BR>订阅信息成功！！"
rs.close
set rs=nothing
end if
else
exec="select * from wq_ding where email='"&mail&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
if not rs.eof then
exe="delete * from wq_ding where email='"&mail&"'"
conn.execute exe
memo= "退订成功，欢迎你再次订阅!"
else
memo= "此信箱还没有订阅，欢迎你订阅"
end if
end if
%>
<HTML><HEAD><TITLE>邮件订阅</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>BODY {
BACKGROUND-COLOR: #f6f6f6; FONT-SIZE: 12px; MARGIN: 0px
}
</STYLE>
<META content="MSHTML 5.00.3826.2400" name=GENERATOR></HEAD>
<BODY><BR>
<DIV align=center><IMG src="images/face.gif">
<BR><%=memo%> </DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -