📄 sent_email.asp
字号:
<!--#include file="dbconn.asp"-->
<%
'#################################################################
'# 程序名称：随缘网络邮件订阅系统 V1.0
'# 授权方式：免费软件
'# 作者：随缘网络 QQ:84723090
'# 留言技术支持：http://www.115cn.cn/book
'# 发布时间：2007-9-25
'# 声明：本程序由随缘网络独立自主开发，保留所有版权。
'# 各种用途均可免费使用、自由传播，但必须保留程序代码中的版权信息。
'# 如果您需要更强大的功能可以与我们联系购买商业版！
'# 电话：0592-5983163 13400693163
'#################################################################
%>
<head>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<%
id=request("id")
i=0
set rs=server.createobject("adodb.recordset")
if id="" then
sql="select email from maillist order by id desc"
else
sql="select email from maillist where id="&id
end if
rs.open sql,conn,1,1
do while not rs.eof
sentemail rs("email")
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
if i>0 then
response.write "已经成功向 <b>"&i&"</b> 个用户发送EMAIL"
else
response.write "暂无人订阅"
end if
%>
<body leftmargin="30">
<a href="admin.asp">返回上一页</a>
<%
function sentemail(email)
'修改收信人电子邮件地址，表单里的内容将发送到这个信箱中
myemail=email
'修改收信人姓名
myname =email
'修改SMTP服务器
smtpserver ="smtp.163.com"
'修改登陆SMTP服务器的用户名和密码
smtpuser ="wuguihua2001@163.com"
smtppwd ="123456"
mailbody=mailbody & "<br>"
mailbody=mailbody & "尊敬的客户您好："&"<br>"
mailbody=mailbody & "感谢您使用随缘网络邮件订阅系统 V1.0，您现在使用的只是简单的免费版，您如果有什么问题可以到我们的留言本留言说明！如需要更多的相关订制功能或服务可以与我们联系，同时我们会提供相关长期的包括QQ、电话在内的长期技术支持。"&"<br>"
mailbody=mailbody & "<a href='http://www.115cn.cn'>厦门随缘网络科技</a>"&" QQ：84723090"&"<p>"
dim jMail
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312"
jmail.ContentType = "text/html"
jmail.From ="wuguihua2001@163.com" ' 发信邮箱
jmail.FromName ="厦门随缘网络科技" '发信人名称
jmail.ReplyTo ="wghsf@163.com" '回复邮箱
jmail.Subject ="欢迎使用随缘网络邮件订阅系统 V1.0" '发信主题
jmail.Body=mailbody '发信内容
jmail.AddRecipient myemail,myname
jmail.MailServerUserName =smtpuser
jmail.MailServerPassWord =smtppwd
isgo=jmail.Send(smtpserver)
if isgo then
msg="您订阅的信息已经发往您的邮箱，请注意查收。。"
else
msg="您订阅的信息发送失败！请检查您的邮件地址是否填写正确。"
end if
jmail.Close
set jmail=nothing
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -