check.asp

网上商城的设计与实现

<!--本邮件列表系统由雷の龙独立制作，版权所有。http://gamewu.126.com-->
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Language" content="zh-cn">
<%fsemail=request("email")
set rs=server.createobject("adodb.recordset")
sql="select email from email"
rs.open sql,conn,3,1
err=1
do while not rs.eof
if fsemail=rs("email") then
err=0
exit do
end if
rs.movenext
loop
rs.close
if err=1 then
sql="select * from email"
rs.open sql,conn,3,2
rs.addnew
rs("email")=fsemail
rs("date")=date()
rs.update
rs.close
%><%
set rs=conn.execute("select qr from admin")
response.write rs("qr")
%><%elseif err=0 then%><p>　</p>
<p>　</p>
<p>　</p>
这个信箱已经订阅过了，他存在于我们的数据库中。不用在激活确认了。谢谢你的支持。
<%end if
set rs=nothing
conn.close
set conn=nothing%>