使用ASP+jmail进行邮件群发

原创 2003年09月10日 11:33:00

这段时间看到有太多的人迷茫于邮件的群发。

所以把自己以前写的一个东东拿出来与大家分享。希望大家能够举一反三。

关键是如果构建一个自身调用的方法,还有在大数据量的情况下,使用数组来代替记录集。

自身的调用可以有很多的应用。除了邮件的群发,还有譬如自身的递归。很多人想实现取得不重复随机数就可以使用下面得思路。

当然,实现总不是一种,而是多样化得,你还可以有更好得方法。希望能够和大家切磋!

这个页面叫做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就可以了。时间关系,还需要修改。

不尽完善,欢迎批评指正!

使用ASP+jmail进行邮件群发

这段时间看到有太多的人迷茫于邮件的群发。所以把自己以前写的一个东东拿出来与大家分享。希望大家能够举一反三。关键是如果构建一个自身调用的方法,还有在大数据量的情况下,使用数组来代替记录集。自身的调用可以...
  • gsw365
  • gsw365
  • 2007年05月24日 19:07
  • 734

ASP+JMAIL进行邮件群发的新思路

背景:Email地址存于MSSql一用户信息表中,数量上万。公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。JMAIL 有MailMerge对象,但是免费版不...
  • aloesky
  • aloesky
  • 2005年10月24日 10:12
  • 754

利用ASP+JMAIL进行邮件群发的新思路

Email地址存于MSSql一用户信息表中,数量上万。 公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。 JMAIL 有MailMerge对象,但是免费版不能...
  • wuxuexuan
  • wuxuexuan
  • 2003年11月03日 21:57
  • 559

利用ASP+JMail进行邮件群发的新思路

背景: Email地址存于MSSql一用户信息表中,数量上万。 公司自有服务器,集SMTP,POP3,WWW,FTP,MSSql,DNS等多种服务于一身。 JMAIL 有MailMerge对象,但是免...
  • zestheart
  • zestheart
  • 2008年05月14日 13:41
  • 498

php实现邮件群发

群发邮件             php内部其实自带了有发送邮件的类mail()函数,但是功能比较单一,不能满足绝大部分的需求,因此在这里我使用了一个phpmailer(点击下载)这个类,相对来说还是...
  • three_tiger
  • three_tiger
  • 2017年05月04日 14:35
  • 1262

ASP+Jmail 在线发邮件(代码)

function tomail(mem,uemail,username,active)Set jmail = Server.CreateObject("JMAIL.Message")  If JMai...
  • upform
  • upform
  • 2009年08月16日 16:02
  • 1145

关于搭建群发邮件服务器的思考

一、搭建邮件服务器只是万里长征的第一步 1.1  最近公司正想搭建自己的邮件服务器,          因为:现在市面上无论收费的企业邮箱还是免费的企业邮箱 都有发件限制。         ...
  • m0_38111370
  • m0_38111370
  • 2017年03月30日 15:46
  • 490

php 邮件发送代码-php邮件群发

php 邮件发送如何进行的呢? php邮件发送是通过smtp协议进行的。 下面是一个php邮件发送的类的一个函数。 function sendmail($to, $from, $subject...
  • aerchi
  • aerchi
  • 2014年12月24日 22:43
  • 3101

常用Email组件发送函数

 sub Jmail(email)Dim JMail,SendMailSet JMail=Server.CreateObject("JMail.SMTPMail")JMail.Logging=True...
  • wangxiaobo23
  • wangxiaobo23
  • 2006年09月16日 10:10
  • 464

asp+JMAIL发送邮件

唉,没弄过asp,但公司现在要我维护一个asp平台, 呵呵,也当是一种挑战,在这里也谢谢心得,一来照顾一下asp新手,二来,以后自己再用也好有个地方寻找答案.需求是这样的,当在线人数到达一定数量则提示...
  • mynote
  • mynote
  • 2010年03月25日 18:26
  • 436
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用ASP+jmail进行邮件群发
举报原因:
原因补充:

(最多只允许输入30个字)