在线发邮件的问题!好奇怪的问题哦!

lcy81 2004-08-11 08:14:57
以下这段代码实现邮件群发功能,功能虽然已经实现,假如通过数据库查询得到三个邮箱,给这三个邮箱群发时,有的邮箱收到三封相同的邮件,有的邮箱收到二封一样的邮件,有的则只收到一封邮件,不知道怎么回???

set rst=server.createobject("ADODB.RECORDSET")
rst.open session("sqlstr"),con,1,1
if rst.eof=false then
Set msg = Server.CreateObject("JMail.Message")
msg.silent=true
msg.Logging=true
msg.Charset="gb2312"
msg.MailServerUserName="lcy81@163.com"
msg.MailServerPassword="810417"
msg.From="lcy81@163.com"
msg.FromName="听蝉"
msg.Subject=v_bt
msg.Body=v_nr
for i=1 to rst.recordcount
if rst(7)<>"" then
msg.AddRecipient rst(7)
msg.Send("smtp.163.com")
end if
rst.movenext
next
response.write "<br><center>邮件发送成功!</center>"
end if
Set msg=nothing
...全文
101 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
不知道啥问题,这个循环可以改正一下,~:)
for i=1 to rst.recordcount
if rst(7)<>"" then
msg.AddRecipient rst(7)

end if
rst.movenext
next
msg.Send("smtp.163.com")

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧