如何使用表单发送电子邮件？

在网站开发中，表单发送邮件是一个很常见的需求——让用户通过网页提交信息，然后自动把内容发到指定邮箱。下面这个经典实现，直接复用了一套成熟的代码逻辑，适合快速部署。

如何使用表单发送电子邮件？

formToEmail.htm

' 表单


收件人: 

发件人: 

主题: 

内容一:  

内容二:  

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 %>
抱歉,邮件发送失败!

<%= result %>

<% End If %>

[1]