<%qx=4%>
<!--#include file="../check.asp"-->
<!--#include file="../../include/conn.asp"-->
<!--#include file="../../include/jmail.asp"-->
<!--#include file="../../include/config.asp"-->
<%
s=now()
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from shop where zt=2 and (rq-datediff('d',sj,now()))<7 order by id desc"
rs.open sql,conn,3,1
sj3=dateadd("d",rs("rq"),rs("sj2")) 
'循环发信
do while not rs.eof
email=rs("mail")
html="<html><head><title>感谢您的注册</title><meta http-equiv=Content-Type content=text/html; charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&rs("name")&",您好！<br><br>　 欢迎您申请<a href=http://"&my_url&" target=_bank>"&my_name&"</a>电子商务技术平台。<br>"
html=html&"　 您的"&my_name&"店铺账号即将于"&sj3&"到期，请注意及时付款以免影响您的店铺的正常运营。<br><br>"&email_bd&"</body></html>"
bt = "您的"&my_name&"店铺账号即将到期"
if my_mailto="0" then
smtp email,bt,html
elseif my_mailto="1" then
Call jmail1(email,bt,html)
'jmail email,bt,html
end if
rs.MoveNext                                              
loop 
'循环发信结束
Response.Write"<script>alert('全部提示EMAIL发送完毕！');window.history.back();</script>"
'Response.Write "<br><br><br><a href=# onclick='javascript:history.back();'>返回上一页</a>"
rs.close
set rs=nothing
conn.close
set conn=nothing%>
