文档介绍：ASP+SMTP完成邮件群发功能>>
<%
’:小艺
’联系:52093
’:.5790.
’版本:中国劲网P)
’欢迎大家光临本网站:.5790.
’请不要删除版权,此源码可以做非商业化传播
’<script>etahttp-equiv="Content-Language"content="zh-">
<TITLE>中国劲网P)</TITLE>
<style>
<!--
body{color:#000000;text-decoration:none;font-family:宋体;font-size:10pt;
letter-spacing:1pt;font-ily:宋体;font-size:10pt;text-decoration:none;color:#000000;
letter-spacing:1pt;font-ail是接收人长度限制
imail=1001
’设置发信密码
mailpass=".5790."
post=Request("post")
("text")=Request("text")
("title")=Request("title")
ifpost="openmail"then
smtpmail=Request("smtpmail")
onerrorresumenext
email=Replace(Request("email"),vbCrlf,",")
mailtopic=Request("title")
body=Request("text")"<br>MTV在线视听:.5790."
pass=Request("pass")
ifpass<>mailpassthenerror="请输入正确的发信密码!"
ifinstr(smtpmail,"")=0orsmtpmail=""thenerror="发信E-mail地址填写错误!"
ifinstr(email,"")=0oremail=""thenerror="收信E-mail地址填写错误!"
smail=Split(email,"")
ubmail=UBound(smail)
ifint(ubmail)>int(imail)thenerror="收信E_mail超出限制!限制一次性发送"imail"个邮箱地址"
iferror<>""then
=("pmail,mailaddress,mailtopic,body
SetMailObject=nothing
;Request("email")"<br>信件名:"Request("title")"<br>内容:系统不提示<br>发信成功...<ahref=?>返回</a>")
IfErrThenerror