ASP+SMTP完成邮件群发功能- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP+SMTP完成邮件群发功能

ASP: 使用FSO自动创建多级文件夹的函数; 专家教你利用思易ASP木马追捕入侵站点; 技巧：用 isapi rewrite 实现asp的HTML静态化; 使用ASP建设私人的搜索引擎; 巧用SQL-DMO创建备份及校验的ASP应用; 技巧：用GetString来提高ASP的速度; ASP实现的日历代码实例程序; WEB应用的缓存兼容性设计; 用网站地图帮助搜索引擎; IIS虚拟主机网站防木马权限设置安全配置整理; ASP把长的数字用逗号隔开显示; 所谓新云XSS跨站漏洞全公布; ASP技巧：禁用页面缓存的五种方法; ASP中实现从dbf数据库导出数据到sql表; 简单熟悉掌握ASP的语法和变量; 让弹出窗口变得“听话”一些; 运用ASP调用数据库中视图及存储过程; 瞄准Apache IIS7向开源张开双臂; ASP实现IE地址栏参数的判断; 如何让你的ASP运行于非Windows平台

No. « ‹ 7 8 9 10 › »

技术文章搜索

关键字

ASP+SMTP完成邮件群发功能

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 64 ::

收藏到网摘: n/a

ASP判断文件地址是否有效用Asp隐藏文件路径实现防盗链

<%
'<script>window.open('http://www.5790.com');</script>的意思是弹出本站广告..可以删除
Response.Write("<script>window.open('http://www.5790.com');</script>")
%>
<meta http-equiv="Content-Language" content="zh-cn">
<TITLE>中国劲网Web(ASP+STMP)邮件群发系统 2004.11.28 版</TITLE>
<style>

</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&"邮件地址")
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
%>

<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" valu

ASP判断文件地址是否有效用Asp隐藏文件路径实现防盗链

ASP+SMTP完成邮件群发功能

评论 (0) All