不错呦!smile@林凯西,确保“准备文件”中的几个文件都有安装,S...您好,看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了,主要是A...PJ3啊,貌似很少有人用PJ了,现在不是WP就是z...@332347365,我当时接入时错误码没有-10...楼主,ChkValue值应为-103是什么意思呢?...大哥 你最近能看到我发的信息,请跟我联系,我有个制...
利用ASP+Jmail进行邮件群发的新思路
编辑:dnawo 日期:2007-04-20
背景:
Email地址存于MSSql一用户信息表中,数量上万。
公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。
JMAIL 有MailMerge对象,但是免费版不能用
要求:
用ASP+JMAIL,利用公司SMTP向所有用户发送EMAIL
思路:
直接读取数据库,多次循环发送,会对本来配置不高的服务器造成很大压力。
最好能对EMAIL分批发送,每批发送间隔一段时间,以此来缓解对服务器造成的压力。
实现:
1.对EMAIL分批
读出记录到recordset,利用常见的分页程序,将所有记录分页,每页作为一批,有多少页就分多少批
2.间隔延迟
在每页执行完毕后用<meta http-equiv="refresh" content="60;URL=SendMail.asp?page="&page>来延迟跳转
3.减少执行时间
在循环的过程中,循环添加收件人,而不要循环发送,即
for i=1 to rs.pagesize
msg.AddRecipient rs("Email")
rs.movenext
next
msg.Send ("smtp.abc.com")
4.减小邮件大小
循环添加收件人,会造成一封Email的收件人很多,这样一封Email的就会很大。
所以,在以上代码的基础上改进一下,在循环内做个判断,当收件人Email数量到达20的时候就发送一次。即:
for i=1 to rs.pagesize
msg.AddRecipient rs("Email")
if i mod 20 = 0 then '每 20 个收信人作为一封Email发送一次
msg.Send ("smtp.abc.com")
msg.ClearRecipients '清除已发送的收信人
end if
rs.movenext
next
msg.Send ("smtp.abc.com") '发送余下的
5.页面
Mail.asp 包含邮件主题、正文的表单,<form action="SendMail.asp" target="Send">;一个iframe页面,<iframe name="Send" src="SendMail.asp">
SendMail.asp 包含后台发送程序,循环,延迟跳转等。
缺点:
发送过程中不能离开该页面
发送的时间较长,与设置的每批发送数量、网络带宽、SMTP服务器性能有关
改进:
可以在Mail.asp中包含多个iframe页面,每个页面从不同的page开始发,相当于多线程发送,
对smtp服务器压力会增大,但能缩短发送时间。
可考虑在不同的page中采用不同的smtp服务器,例如包含多个iframe页面,在偶数页用smtp.abc.com,在奇数页用smtp.123.com。这样既减轻服务器压力,也达到多线程发送缩短发送时间的目的。
Email地址存于MSSql一用户信息表中,数量上万。
公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。
JMAIL 有MailMerge对象,但是免费版不能用
要求:
用ASP+JMAIL,利用公司SMTP向所有用户发送EMAIL
思路:
直接读取数据库,多次循环发送,会对本来配置不高的服务器造成很大压力。
最好能对EMAIL分批发送,每批发送间隔一段时间,以此来缓解对服务器造成的压力。
实现:
1.对EMAIL分批
读出记录到recordset,利用常见的分页程序,将所有记录分页,每页作为一批,有多少页就分多少批
2.间隔延迟
在每页执行完毕后用<meta http-equiv="refresh" content="60;URL=SendMail.asp?page="&page>来延迟跳转
3.减少执行时间
在循环的过程中,循环添加收件人,而不要循环发送,即
for i=1 to rs.pagesize
msg.AddRecipient rs("Email")
rs.movenext
next
msg.Send ("smtp.abc.com")
4.减小邮件大小
循环添加收件人,会造成一封Email的收件人很多,这样一封Email的就会很大。
所以,在以上代码的基础上改进一下,在循环内做个判断,当收件人Email数量到达20的时候就发送一次。即:
for i=1 to rs.pagesize
msg.AddRecipient rs("Email")
if i mod 20 = 0 then '每 20 个收信人作为一封Email发送一次
msg.Send ("smtp.abc.com")
msg.ClearRecipients '清除已发送的收信人
end if
rs.movenext
next
msg.Send ("smtp.abc.com") '发送余下的
5.页面
Mail.asp 包含邮件主题、正文的表单,<form action="SendMail.asp" target="Send">;一个iframe页面,<iframe name="Send" src="SendMail.asp">
SendMail.asp 包含后台发送程序,循环,延迟跳转等。
缺点:
发送过程中不能离开该页面
发送的时间较长,与设置的每批发送数量、网络带宽、SMTP服务器性能有关
改进:
可以在Mail.asp中包含多个iframe页面,每个页面从不同的page开始发,相当于多线程发送,
对smtp服务器压力会增大,但能缩短发送时间。
可考虑在不同的page中采用不同的smtp服务器,例如包含多个iframe页面,在偶数页用smtp.abc.com,在奇数页用smtp.123.com。这样既减轻服务器压力,也达到多线程发送缩短发送时间的目的。
评论: 1 | 引用: 0 | 查看次数: 5635
发表评论
请登录后再发表评论!