<%
'<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>
<!--
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
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郵箱列表----&gt;</p>
      <p>起始點:<input type="text" name="for1" size="20" maxlength="9">&nbsp; 結束點:<input type="text" name="for2" size="20" maxlength="9">&nbsp;
      <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="[email protected]"></p>
      <p>收信地址:<input type="radio" value="yes" name="amail" checked>一次性群發&nbsp;
      <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>