这段时间看到有太多的人迷茫于邮件的群发。
所以把自己以前写的一个东东拿出来与大家分享。希望大家能够举一反三。
关键是如果构建一个自身调用的方法,还有在大数据量的情况下,使用数组来代替记录集。
自身的调用可以有很多的应用。除了邮件的群发,还有譬如自身的递归。很多人想实现取得不重复随机数就可以使用下面得思路。
当然,实现总不是一种,而是多样化得,你还可以有更好得方法。希望能够和大家切磋!
这个页面叫做email_sendall.asp
<%on error resume next%>
<!--这里是你们的包含文件-->
<%
if request("Page")="" then
CPage=1
else
Cpage=request("Page")
end if
'接受邮件内容,当然,也可以从数据库种查询
comment=request("comment")
'定义邮件数组
Dim emailArray
sql_email="SELECT useremail,userregname,userpassword FROM email"
Set Recordsetemail=Server.CreateObject("ADODB.Recordset")
Recordsetemail.ActiveConnection=cnn
Recordsetemail.Source=sql_email
Recordsetemail.CursorType=3
Recordsetemail.CursorLocation=2
Recordsetemail.LockType=1
Recordsetemail.Pagesize=5
Recordsetemail.Open()
Recordsetemail.AbsolutePage=CPage
Page_Count=Recordsetemail.PageCount
'把数据库中的读取到数组中。
emailArray=Recordsetemail.Getrows(5,0)
Recordsetemail.close
if err.number<>0 then
JMail.Close
response.write "邮件群发成功!"
response.end
else
end if
set Recordsetemail=nothing
if isarray(emailArray) then
Repeat1__index=0
dim U_emailArray
U_emailArray=ubound(emailArray,2)
While(Repeat1__index<=U_emailArray)
comment1=replace(comment,"</user>",emailarray(1,Repeat1__index))
comment1=replace(comment1,"</password>",emailarray(2,Repeat1__index))
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentType="text/html"
JMail.Encoding = "base64"
JMail.Charset="gb2312"
jmail.Sender=request("fromwho")
JMail.Subject = request("subject")
JMail.AddRecipient(emailarray(0,Repeat1__index))
JMail.Body =comment1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
JMail.Close
response.Write(request("ToWho"))
response.Write(" 成功发送!<BR>")
Set JMail = Nothing
Repeat1__index=Repeat1__index+1
wend
else
end if
Recordset1.Close()
Set Recordset1 = Nothing
'构建一个自身请求自身的方法
response.redirect "email_sendall.asp?page="&(cpage+1)&"subject="&request("subject")&"fromwho="&request("fromwho")&"comment="&comment
%>
欢迎大家下载http://www.xzss.com/lqy/vml.rar
里面有一个简单的图表类
使用方法是讲test.asp中的那个属性设定为1到4就可以了。时间关系,还需要修改。
不尽完善,欢迎批评指正!
分享到:
相关推荐
自己一直在用,很好用的,自动检测是否安装jmail组件。 只要稍加改动就可以实现邮件群发了。
不用注册可以直接实现邮件的发送 其中以邮件发送为中心 邮件群发 实现联系人的添加 已发送邮件的查看,删除等
1.蓝雨轩阁ASP邮件群发系统在蓝雨轩阁ASP邮件群发系统V1.0的基础上修改。 修改原来单一SMTP,增加SMTP的增加与修改,实现多SMTP选择; 增加客户邮箱目录分类管理,可进行添加修改删除,新增加目录与目录之间的客户...
邮件发送系统主要由【重新登录】、【邮件群发】、【添加好友】、【查看好友】、【查看邮件信息】、【查看紧急邮件】等模块组成,进入邮件发送系统后,可将全部好友的Email添加到该程序里,使发送信息时能进行多个...
Jmail 4.4 免费版 Dimac 公司的邮件收发组件,这是一个非常成熟和强大的...JMail 的免费版本拥有全部完成的发邮件功能,只在收邮件和加密邮件等我们不常用到的方面进行了限制。 压缩包内有以ASP开发的邮件发送程序。
1.蓝雨轩阁ASP邮件群发系统在蓝雨轩阁ASP邮件群发系统V1.0的基础上修改。 修改原来单一SMTP,增加SMTP的增加与修改,实现多SMTP选择; 增加客户邮箱目录分类管理,可进行添加修改删除,新增加目录与目录之间的客户...
邮件发送系统主要由【重新登录】、【邮件群发】、【添加好友】、【查看好友】、【查看邮件信息】、【查看紧急邮件】等模块组成,进入邮件发送系统后,可将全部好友的Email添加到该程序里,使发送信息时能进行多个...
无人操作群发邮件。asp版本 配置文件:config.asp 待发邮件地址文件是emailAddr.txt 本系统可发图片附件。图片能在接收信箱内直接显示。 开发时间2009年12月18日 首页运行sendMail.asp 如果SMTP服务器和目标...
邮件时的PGP加密,内置一个群发邮件的对象,可以使群发编程更 简单。 即使是很多其他组件也都能完成的发邮件功能,JMail 的完成也 可以称得上最出色的,除了常见的抄送暗送等多收件人功能外, 它还支持添加嵌入式...
这是一个非常成熟和强大的邮件组 件。它不但可以完成发邮件的工作,还可以POP收信,并支持收发 邮件时的PGP加密,内置一个群发邮件的对象,可以使群发编程更 简单。
《w3 JMail 4.3 中文使用手册》说明: 终于翻译完了这本厚达44页的家伙了,翻译后共3.3万字。 w3 JMail 是 Dimac 公司(www.dimac.net)推出的ASP发信组件,可以在ASP、VC、VB、Delphi等开发工具中调用。...
一个简单的jmail邮件随机发送功能,可以自动生成有效的QQ邮箱地址,每次同时发送5个邮箱
一方面,电子邮件的使用越来越频繁,成为不可缺少的通讯、交流手段,另一方面,手机越来越便宜,越来越普及。有没有可能通过邮件发送短消息?或者发送邮件同时给对方发送短消息,通知对方收取邮件?如果邮件和短消息...
w3 JMail 是 Dimac 公司... 6、支持邮件合并(群发邮件,每封信可以不同。) <br> 本软件是4.5版,附4.3版的中文手册! <br> ASP组件实例代码详见PC诊所站内文章 http://www.pczs120.cn/article/art46.htm
w3 JMail 是 Dimac 公司(www.dimac.net)推出的ASP发信组件,可以在ASP、VC、VB、Delphi等开发工具中调用。...4.0以上版本除了具备以上特点外,还有以下优点:... 6、支持邮件合并(群发邮件,每封信可以不同。)
使用JMail组件实现了: “发送电子邮件” “发送带附件的电子邮件” “自动回复邮件” “群发电子邮件” “接收电子邮件” “接收电子邮件的福建并下载” (PS:压缩包内包含 JMail 多版本DLL文件及 JMail 4.3 API ...
5) 完善的邮件发送系统:支持邮件群发功能,支持注册、下单、发货邮件提醒 6) 管理员批量操作:商品批量修改、批量转移分类、价格批量上浮、留言等内容批量删除 7) 集成多种支付平台:支付宝、财付通、网银、云网、...
大气超美观页面+手机版+微信支付+APP+商品组合套餐+限时抢购秒杀+图片批量上传+淘宝数据包导入+弹出式分类菜单+不同规格不同价格+新订单邮件通知+销售报表打印与Excel输出+物流跟踪打印查询+会员积分及优惠券+邮件...
7.2.1 引入Jmail组件到ASP.NET中 193 7.2.2 配置POP3服务 193 7.2.3 在POP3服务中添加域 194 7.2.4 在域中添加新邮箱 195 7.2.5 邮件发送核心技术 195 7.2.6 邮件接收核心技术 196 7.3 电子邮件发送与...
大气超美观页面+手机版+APP+商品组合套餐+限时抢购秒杀+图片批量上传+淘宝数据包导入+弹出式分类菜单+不同规格不同价格+新订单邮件通知+销售报表打印与Excel输出+物流跟踪打印查询+会员积分及优惠券+邮件群发+图片...