ASP+SMTP完成郵件群發功能

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