程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程問題解答 >> 如何使用表單發送電子郵件?

如何使用表單發送電子郵件?

編輯:編程問題解答

如何使用表單發送電子郵件?

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 %>

[1]

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved