ASP+SMTP完成邮件群发功能

1   
2'

1的意思是弹出本站广告..可以删除   
2Response.Write("

1")

1<meta content="zh-cn" http-equiv="Content-Language"/>

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

1<style>   
2<!--   
3body { color: #000000; text-decoration: none; font-family: 宋体; font-size: 10pt;   
4letter-spacing: 1pt; font-weight: bold }   
5table { font-family: 宋体; font-size: 10pt; text-decoration: none; color: #000000;   
6letter-spacing: 1pt; font-weight: bold }   
7\-->   
8</style>

 1   
 2'imail是接收人长度限制   
 3imail=1001   
 4'设置发信密码   
 5mailpass="www.5790.com"   
 6post=Request("post")   
 7Response.Cookies("text")=Request("text")   
 8Response.Cookies("title")=Request("title")   
 9if post="openmail" then   
10smtpmail=Request("smtpmail")   
11on error resume next 
12
13email=Replace(Request("email"),vbCrlf,",")   
14mailtopic=Request("title")   
15body=Request("text")&"

<br/>

 1MTV在线视听:http://www.5790.com"   
 2pass=Request("pass")   
 3if pass<>mailpass then error="请输入正确的发信密码！"   
 4if instr(smtpmail,"@")=0 or smtpmail="" then error="发信E-mail地址填写错误！"   
 5if instr(email,"@")=0 or email="" then error="收信E-mail地址填写错误！"   
 6smail=Split(email,"@")   
 7ubmail=UBound(smail)   
 8if int(ubmail)>int(imail) then error="收信E_mail超出限制！限制一次性发送"&imail&"个邮箱地址" 
 9
10if error<>"" then   
11Response.Write(error&"....

 1")   
 2Response.End   
 3Else 
 4
 5if Request("amail")="yes" then   
 6mailaddress=email   
 7Set MailObject = Server.CreateObject("CDONTS.NewMail")   
 8MailObject.Send smtpmail,mailaddress,mailtopic,body   
 9Set MailObject=nothing   
10Response.Write("发送方式:一次性发送

<br/>

1收信人列表:"&Request("email")&"

<br/>

1信件名:"&Request("title")&"

<br/>

1内容:系统不提示

<br/>

1发信成功...

1")   
2If Err Then error="邮件发送失败！错误原因：" & Err.Description & ""   
3Response.Write("

<br/>

 1\--------共发信给"&ubmail&"邮件地址----www.5790.com----小艺开发---联系QQ:52093---")   
 2Response.End   
 3Else   
 4smail=Split(email,",")   
 5ubmail=UBound(smail)   
 6for i = 0 to ubmail   
 7mailaddress=smail(i)   
 8Set MailObject = Server.CreateObject("CDONTS.NewMail")   
 9MailObject.Send smtpmail,mailaddress,mailtopic,body   
10Set MailObject=nothing   
11Response.Write("--------------------------------

<br/>

1发送方式:按邮件地址分批发送

<br/>

1收信人列表:"&smail(i)&"

<br/>

1信件名:"&Request("title")&"

<br/>

1内容:系统不提示

<br/>

1发信成功...

<br/>

1")   
2If Err Then error="邮件发送失败！错误原因：" & Err.Description & ""   
3next   
4Response.Write("

<br/>

1\--------共发信"&ubmail&"封----www.5790.com----小艺开发---联系QQ:52093---")   
2Response.End   
3End if 
4
5End if   
6End if

 1<div align="center">
 2<center>
 3<table border="0" bordercolor="#111111" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="700">
 4<tr>
 5<td width="100%">
 6<form action="?post=formail" method="POST">
 7<p>生成腾讯QQ邮箱列表----&gt;</p>
 8<p>起始点:<input maxlength="9" name="for1" size="20" type="text"/>  结束点:<input maxlength="9" name="for2" size="20" type="text"/>    
 9<input name="B1" type="submit" value="提交"/>
10<input name="B2" type="reset" value="重置"/></p>
11</form>
12</td>
13</tr>
14<tr>
15<td width="100%">
16<form action="?post=openmail" method="POST">
17<p>发送邮件:</p>
18<p><input name="smtpmail" size="74" type="text" value="[email protected]"/></p>
19<p>收信地址:<input checked="" name="amail" type="radio" value="yes"/>一次性群发    
20<input name="amail" type="radio" value="no"/>按邮件地址分批发送</p>
21<p><textarea cols="73" name="email" rows="7">```
22   
23if post="formail" then   
24Session("t")=Replace(time(),":","")   
25for1=Request("for1")   
26for2=Request("for2")   
27if not isnumeric(for1) then error="起始点..中只能输入数字,如果想用英文名邮箱,请直接在邮件列表框中输入!"   
28if not isnumeric(for2) then error="结束点..中只能输入数字,如果想用英文名邮箱,请直接在邮件列表框中输入!"   
29if error&amp;lt;&amp;gt;"" then   
30Response.Write(error)   
31Else   
32'限制生成列表   
33if int(for2)-int(for1)&amp;gt;int(imail) then   
34Response.Write("生成列表失败!收信E_mail超出限制！限制一次性发送"&amp;amp;imail&amp;amp;"个邮箱地址")   
35else   
36for i = int(for1) to int(for2)   
37email=i&amp;amp;"@qq.com"&amp;amp;vbCrlf   
38Response.Write(email)   
39next   
40End if   
41End if   
42tt=int(Replace(time(),":",""))-int(Session("t"))   
43End if   
44
45```</textarea>

if post="formail" then
Response.Write("运行时间为:"&tt&"s")
End if

 1<p>信件标题:</p>
 2<p><input ```"="" name="title" size="74" title")="" type="text" value="```
 3=Request.Cookies("/></p>
 4<p>信件内容:</p>
 5<p><textarea cols="73" name="text" rows="8">```
 6=Request.Cookies("text")
 7```</textarea></p>
 8<p>发信密码(用此系统发信需要密码):<input maxlength="9" name="pass" size="40" type="text"/></p>
 9<p><input name="B1" type="submit" value="提交"/>
10<input name="B2" type="reset" value="重置"/></p>
11</form>
12</td>
13</tr>
14</table></center>
15</div>