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 %>
抱歉,邮件发送失败!
[1]
如对本文有疑问, 点击进行留言回复!!
Docker部署Gitlab,http端口不用80的解决方法
Outlook2016暑期怎么设置自动答复? outlook自动答复设置方法
网友评论