ASP+SMTP完成邮件群发功能

　　<%
<script>window.open(的意思是弹出本站广告..可以删除
Response.Write(<script>window.open(
%>
<meta http-equiv=Content-Language content=zh-cn>
<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=
post=Request(post)
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在线视听:
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邮件地址)
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
next
Response.Write(<br>--------共发信ubmail封)
Response.End
End if

　　End if
End if
%>

　　
<p align=center>
<center>

　　<table border=0 cellpadding=0 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=700>
<tr>
<td width=100%>
<form method=POST action=?post=formail>
<p>生成腾讯QQ邮箱列表----gt;</p>
<p>起始点:<input type=text name=for1 size=20 maxlength=9>nbsp; 结束点:<input type=text name=for2 size=20 maxlength=9>nbsp;
<input type=submit value=提交 name=B1>
<input type=reset value=重置 name=B2></p>
</form>
</td>
</tr>
<tr>
<td width=100%>
<form method=POST action=?post=openmail>
<p>发送邮件:</p>
<p><input type=text name=smtpmail size=74 value=
<p>收信地址:<input type=radio value=yes name=amail checked>一次性群发nbsp;
<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.comvbCrlf
Response.Write(email)
next
End if
End if
tt=int(Replace(time(),:,))-int(Session(t))
End if
%></textarea>
<%if post=formail then
Response.Write(运行时间为:tts)
End if
%></p>
<p>信件标题:</p>
<p><input type=text name=title size=74 value=<%=Request.Cookies(title)%>></p>
<p>信件内容:</p>
<p><textarea rows=8 name=text cols=73><%=Request.Cookies(text)%></textarea></p>
<p>发信密码(用此系统发信需要密码):<input type=text name=pass size=40 maxlength=9></p>
<p><input type=submit value=提交 name=B1>
<input type=reset value=重置 name=B2></p>
</form>
</td>
</tr>
</table></center>
</p>