如何使用表单发送电子邮件？
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]
