最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
使用ASP+jmail进行邮件群发
时间:2022-06-30 11:38:15 编辑:袖梨 来源:一聚教程网
这段时间看到有太多的人迷茫于邮件的群发。
所以把自己以前写的一个东东拿出来与大家分享。希望大家能够举一反三。
关键是如果构建一个自身调用的方法,还有在大数据量的情况下,使用数组来代替记录集。
自身的调用可以有很多的应用。除了邮件的群发,还有譬如自身的递归。很多人想实现取得不重复随机数就可以使用下面得思路。
当然,实现总不是一种,而是多样化得,你还可以有更好得方法。希望能够和大家切磋!
这个页面叫做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,"",emailarray(1,Repeat1__index))
comment1=replace(comment1,"",emailarray(2,Repeat1__index))
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentType="text/html"
JMail.Encoding = "base64"
所以把自己以前写的一个东东拿出来与大家分享。希望大家能够举一反三。
关键是如果构建一个自身调用的方法,还有在大数据量的情况下,使用数组来代替记录集。
自身的调用可以有很多的应用。除了邮件的群发,还有譬如自身的递归。很多人想实现取得不重复随机数就可以使用下面得思路。
当然,实现总不是一种,而是多样化得,你还可以有更好得方法。希望能够和大家切磋!
这个页面叫做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,"",emailarray(1,Repeat1__index))
comment1=replace(comment1,"",emailarray(2,Repeat1__index))
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.ContentType="text/html"
JMail.Encoding = "base64"
相关文章
- 斗罗大陆猎魂世界武魂融合技如何发动 07-08
- 必须拿住:迈克尔·赛勒发布比特币牛市图表 07-08
- 大侠立志传爱猫失踪任务完成指南 07-08
- DOTA2电竞世界杯2025赛程一览 07-08
- YellowPencil Pro v7.6.7 WordPress 可视化 CSS 编辑插件 07-08
- 魔兽世界强力巨魔之血药水怎么获得-强力巨魔之血药水获取方法 07-08