如何使用表單發(fā)送電子郵件？
如何使用表單發(fā)送電子郵件？
formToEmail.htm
' 表單.
<FORM METHOD="POST" ACTION="formToEmail.asp">
<P>
收件人: <INPUT SIZE=30 NAME="recipient" MAXLENGTH=200>
<P>
發(fā)件人: <INPUT SIZE=30 NAME="sender" MAXLENGTH=200>
<P>
主題: <INPUT SIZE=30 NAME="subject" MAXLENGTH=512>
<P>
內(nèi)容一: <TEXTAREA ROWS=2 COLS=60 NAME="messageline1"> </TEXTAREA>
<P>
內(nèi)容二: <TEXTAREA ROWS=2 COLS=60 NAME="messageline2"> </TEXTAREA>
</PRE>
<INPUT TYPE=submit VALUE="發(fā)送">
formToEmail.asp
' 處理接收和發(fā)送郵件.
<%
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 %>
恭喜,郵件發(fā)送成功!
<% Else %>
抱歉,郵件發(fā)送失敗!
<%= result %>
</H2>
<% End If %>
[1]
相關(guān)文章
如何讓用戶再次訪問我的網(wǎng)站時不需再提交相關(guān)信息？
如何讓用戶再次訪問我的網(wǎng)站時不需再提交相關(guān)信息？...2006-11-11
如何正確顯示數(shù)據(jù)庫里同時存在的GB碼和BIG5碼？
如何正確顯示數(shù)據(jù)庫里同時存在的GB碼和BIG5碼？...2006-11-11
禁止站外提交表單(author:killer)...2006-11-11
如何向前端推送用戶請求的信息？...2006-11-11
如何在ADSI中查詢用戶屬性？...2006-11-11
如何編寫一個創(chuàng)建FTP站點的函數(shù)？
如何編寫一個創(chuàng)建FTP站點的函數(shù)？...2006-11-11
如何判斷發(fā)言是否為空？...2006-11-11
如何用變量實現(xiàn)群聊和悄悄話？...2006-11-11
如何制作一個文本文件編輯器？...2006-11-11
如何實現(xiàn)某些頁面只讓特定的用戶瀏覽？...2006-11-11