如何使用表单发送电子邮件？--asp编程技术

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

如何使图象随机显示？2006-4-21

如何获知页面上的图象的实际尺寸？2006-4-21

实时统计在线人数2006-4-21

如何拒绝同一张表单被多次提交？2006-4-21

如何在SQL语句中查寻最近几天的记录2006-4-21

如何使用表单发送电子邮件？2006-4-21

如何实现电子邮件的自动发送？2006-4-21

如何把URL和邮件地址转换为超级链接？2006-4-21

ASP项目中的公共翻页模块2006-4-21

Global.asa文件的使用2006-4-21