[原创]这个支持群发<%function SendMail(maddr,act,co,info)
mailuser=邮箱用户名
mailpass=密码
ser=服务器
on error resume next
err.clear
Dim msg,i
if act=3 then
title="请查收您的密码"
body="<br><br> 您的用户名:<font color=ff0000>"&co&"</font><br> 您的密码:<font color=ff0000>"&info&"</font><br><br><center><a href=http://www.chinaqibao.net target=_blank>中国汽保网</a><br>"&date()&"</center>"
fa="中国汽保网"
end if
addr=split(maddr,",")
Set msg = Server.Createobject("JMail.Message")
msg.silent = false
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailuser
msg.MailServerPassword = mailpass
msg.From = mailuser
msg.FromName = fa
if act=2 then
msg.AddRecipient maddr
else
for i=0 to ubound(addr)
msg.AddRecipient addr(i)
next
end if
msg.Subject = title
msg.HTMLBody = body
msg.ReturnReceipt=true
msg.Send (ser)
set msg = nothing
if err.number<>0 then
SendMail=false
else
SendMail=true
end if
end function%>