📄 mail.asp

📁 电子商务系统Easy_Buy是一个在线销售系统

💻 ASP

字号:

<!--#include file="../login/0.asp"-->
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/email.asp"-->
<%set bbsinfo = conn.execute("select * from bbs_info")
s=now()
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from user_name where zt=2 and (rq-datediff(d,sj,getdate()))<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("email")&"@"&rs("email2")
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>&nbsp;&nbsp;电子商务网站营业账号即将于"&sj3&"到期。请注意及时上传完规定商品或付款以免影响您的电子商务网站的正常运营。<br><br>"&email_bd&"</body></html>"
bt="你在"&bbsinfo("mc")&"申请的店快过期！"
if my_mailto="0" then
smtp email,bt,html
elseif my_mailto="1" then
jmail email,bt,html
end if 
'发信完了
rs.MoveNext                                              
loop 
'循环发信结束
Response.Write "<br><br>全部提示EMAIL发送完毕！"
rs.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -