我要评论如何使用表单发送电子邮件？
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 %>
抱歉,邮件发送失败!
<%= result %>
</h2>
<% end if %>
[1]
发表评论