-->
<Meta http-equiv = "Content-Language" content = "zh-cn">
<TITLE> China Jinfeng Web (ASP + STMP) mass mailing system version 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 is the recipient length limit
Imail= 1001
'Set the mail password
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 online audio and video: http://www.5790.com"
Pass = Request ("pass ")
If pass <> mailpass then error = "enter the correct sending password! "
If instr (smtpmail, "@") = 0 or smtpmail = "" then error = "incorrect email sending address! "
If instr (email, "@") = 0 or email = "" then error = "incorrect email address! "
Smail = Split (email ,"@")
Ubmail = UBound (smail)
If int (ubmail)> int (imail) then error = "receiving E_mail exceeds the limit! Restrict one-time sending of "& imail &" email addresses"
If error <> "" then
Response. Write (error & "... <a href =?> Return </a> ")
Response. End
Else
If Request ("amail") = "yes" then
Mailaddress = email
Set MailObject = Server. CreateObject ("CDONTS. NewMail ")
MailObject. Send smtpmail, mailaddress, mailtopic, body
