' 表单 . FORM METHOD="POST" ACTION="formToEmail.asp" P 收件人 : INPUT SIZE=30 NAME="recipient" MAXLENGTH" />
欢迎来到入门教程网!

编程问答

当前位置:主页 > 视频编程 > 编程问答 >

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

来源:本站原创|时间:2020-01-11|栏目:编程问答|点击:

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

formToEmail.htm<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 表单.
<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]

上一篇:如何在线更改密码?

栏    目:编程问答

下一篇:如何用POP3接收电子邮件?

本文标题:如何使用表单发送电子邮件?

本文地址:http://www.freshxxxvideos.com/bianchengwenda/12101.html

推荐教程

videos制作剪辑教程视频编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 videos视频剪辑教程网 版权所有