ASP+SMTP完成邮件群发功能

王朝asp·作者佚名 2006-11-24

宽屏版字体: 小|中|大|超大

'作者:小艺

'联系QQ:52093

'网址:http://www.5790.com

'版本:中国劲网Web(ASP+STMP)邮件群发系统 2004.11.28 版

'欢迎大家光临本网站:http://www.5790.com

'请不要删除版权,此源码可以做非商业化传播

'<script>window.open('http://www.5790.com');</script>的意思是弹出本站广告..可以删除

Response.Write("<script>window.open('http://www.5790.com');</script>")

<!--

'作者:小艺

'联系QQ:52093

'网址:http://www.5790.com

'版本:中国劲网Web(ASP+STMP)邮件群发系统 2004.11.28 版

'欢迎大家光临本网站:http://www.5790.com

-->

<TITLE>中国劲网Web(ASP+STMP)邮件群发系统 2004.11.28 版</TITLE>

<style>

<!--

body { color: #000000; text-decoration: none; font-family: 宋体; font-size: 10pt;

letter-spacing: 1pt; font-weight: bold }

table { font-family: 宋体; font-size: 10pt; text-decoration: none; color: #000000;

letter-spacing: 1pt; font-weight: bold }

-->

</style>

'imail是接收人长度限制

imail=1001

'设置发信密码

mailpass="www.5790.com"

post=Request("post")

Response.Cookies("text")=Request("text")

Response.Cookies("title")=Request("title")

if post="openmail" then

smtpmail=Request("smtpmail")

on error resume next

email=Replace(Request("email"),vbCrlf,",")

mailtopic=Request("title")

body=Request("text")&"<br>MTV在线视听:http://www.5790.com"

pass=Request("pass")

if pass<>mailpass then error="请输入正确的发信密码！"

if instr(smtpmail,"@")=0 or smtpmail="" then error="发信E-mail地址填写错误！"

if instr(email,"@")=0 or email="" then error="收信E-mail地址填写错误！"

smail=Split(email,"@")

ubmail=UBound(smail)

if int(ubmail)>int(imail) then error="收信E_mail超出限制！限制一次性发送"&imail&"个邮箱地址"

if error<>"" then

Response.Write(error&"....<a href=?>返回</a>")

Response.End

Else

if Request("amail")="yes" then

mailaddress=email

Set MailObject = Server.CreateObject("CDONTS.NewMail")

MailObject.Send smtpmail,mailaddress,mailtopic,body

Set MailObject=nothing

Response.Write("发送方式:一次性发送<br>收信人列表:"&Request("email")&"<br>信件名:"&Request("title")&"<br>内容:系统不提示<br>发信成功...<a href=?>返回</a>")

If Err Then error="邮件发送失败！错误原因：" & Err.Description & ""

Response.Write("<br>--------共发信给"&ubmail&"邮件地址----www.5790.com----小艺开发---联系QQ:52093---")

Response.End

Else

smail=Split(email,",")

ubmail=UBound(smail)

for i = 0 to ubmail

mailaddress=smail(i)

Set MailObject = Server.CreateObject("CDONTS.NewMail")

MailObject.Send smtpmail,mailaddress,mailtopic,body

Set MailObject=nothing

Response.Write("--------------------------------<br>发送方式:按邮件地址分批发送<br>收信人列表:"&smail(i)&"<br>信件名:"&Request("title")&"<br>内容:系统不提示<br>发信成功...<a href=?>返回</a><br>")

If Err Then error="邮件发送失败！错误原因：" & Err.Description & ""

Response.Write("<br>--------共发信"&ubmail&"封----www.5790.com----小艺开发---联系QQ:52093---")

Response.End

End if

<tr>

<p>生成腾讯QQ邮箱列表----></p>

</form>

</td>

</tr>

<tr>

<p>收信地址:<input type="radio" value="yes" name="amail" checked>一次性群发 

<input type="radio" value="no" name="amail">按邮件地址分批发送</p>

<p><textarea rows="7" name="email" cols="73"><%

if post="formail" then

Session("t")=Replace(time(),":","")

for1=Request("for1")

for2=Request("for2")

if not isnumeric(for1) then error="起始点..中只能输入数字,如果想用英文名邮箱,请直接在邮件列表框中输入!"

if not isnumeric(for2) then error="结束点..中只能输入数字,如果想用英文名邮箱,请直接在邮件列表框中输入!"

if error<>"" then

Response.Write(error)

Else

'限制生成列表

if int(for2)-int(for1)>int(imail) then

Response.Write("生成列表失败!收信E_mail超出限制！限制一次性发送"&imail&"个邮箱地址")

else

for i = int(for1) to int(for2)

email=i&"@qq.com"&vbCrlf

Response.Write(email)

End if

tt=int(Replace(time(),":",""))-int(Session("t"))

End if

%></textarea>

<%if post="formail" then

Response.Write("运行时间为:"&tt&"s")

End if

%></p>

<p>发信密码(用此系统发信需要密码):<input type="text" name="pass" size="40" maxlength="9"></p>

</form>

</td>

</tr>

</table></center>

</div>