如何使用表单发送电子邮件？
formToEmail.htm
' 表单.
FORM METHOD="POST" ACTION="formToEmail.asp">
P>
收件人: INPUT SIZE=30 NAME="recipient" MAXLENGTH=200>
P>
发件人: INPUT SIZE=30 NAME="sender" MAXLENGTH=200>
P>
主题: INPUT SIZE=30 NAME="subject" MAXLENGTH=512>
P>
内容一: TEXTAREA ROWS=2 COLS=60 NAME="messageline1"> /TEXTAREA>
P>
内容二: TEXTAREA ROWS=2 COLS=60 NAME="messageline2"> /TEXTAREA>
/PRE>
INPUT TYPE=submit VALUE="发送">
formToEmail.asp
' 处理接收和发送邮件.
%
Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient = Request.Form("recipient")
sender = Request.Form("sender")
subject = Request.Form("subject")
message = Request.Form("messageline1")
message = message vbCRLF
message = message vbCRLF
message = message Request.Form("messageline2")
mailserver = "www.intels.net"
' 写上邮件服务器.
result = mailer.SendMail(mailserver, recipient, sender, subject, message)
%>
% If "" = result Then %>
恭喜,邮件发送成功!
% Else %>
抱歉,邮件发送失败!
H2>
%= result %>
/H2>
% End If %> [1]
