 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<meta http-equiv="Content-Language" content="zh-cn"> <TITLE>Web(ASP+STMP)邮件群发系统</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.4ico.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.4ico.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&"邮件地址") 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 %> <div 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邮箱列表----></p> <p>起始点:<input type="text" name="for1" size="20" maxlength="9"> 结束点:<input type="text" name="for2" size="20" maxlength="9"> <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="mtv@mtv.com"></p> <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) next End if End if tt=int(Replace(time(),":",""))-int(Session("t")) End if %></textarea> <%if post="formail" then Response.Write("运行时间为:"&tt&"s") 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> </div> 返回类别: 教程 上一教程: 用ASP编写图片计数器 下一教程: ACCESS通用－自动替换数据库中的字符串 您可以阅读与"ASP+SMTP完成邮件群发功能"相关的教程: · 利用ASP+JMAIL进行邮件群发的新思路 · 使用ASP+JMAIL进行邮件群发 · ASP环境下邮件列表功能的实现 (四) · 利用SMTP和ASP发送CDONTS电子邮件 · 简朴快捷实现ASP在线发邮件功能 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
