<%
'作者主頁：www.zuoxinwu.com
'作者郵箱：[email protected]，對本程式有疑義，請發郵件聯系作者。
ReceiveMail="[email protected]" '接收郵件的郵箱，這里是本程式作者郵箱，請改成你的郵箱。可以用變數。
ReceiveMailbody= Request.Form("MailContent") '接收表單內容
usermail=Request.Form("usermail") '接收表單內容
'你可以通過在后文的表單自定義其他欄位來進行擴充，記得在此處定義接收表單內容的代碼。
if ReceiveMailbody="" then '判斷郵件是否發送，用于回傳按鈕。
%>
<table>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
<tr><td>
<p>電子郵箱：<input name="usermail" type="text"></p>
<p>郵件正文內容：</p>
<p style="text-align:center">
<textarea rows="10" cols="50" name="MailContent"></textarea><br />
<input name="Submit" type="submit" value="https://bbs.csdn.net/topics/提交"> <input name="Submit" type="reset" value="https://bbs.csdn.net/topics/重寫">
</p>
</td></tr>
</form>
<%
else
dim JMail
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.Charset ="gb2312" '發送郵件的文字編碼。
jmail.From =usermail '用戶郵箱，收到郵件的時候會作為回復地址，可以用常量，也可以用變數。
jmail.FromName =usermail '發送者稱呼，可以用常量，也可以用變數。
jmail.Subject ="ASP發郵件測驗" '地球人都知道，這里是郵件的標題。可以用常量，也可以用變數。
jmail.AddRecipient ReceiveMail '定義郵件接收地址
jmail.Body = "你好，本郵件來自："&usermail&VBCrLf '用&VBCrLf實作郵件正文的回車換行。
jmail.Body = jmail.Body&ReceiveMailbody&VBCrLf '用&VBCrLf實作郵件正文內容的延續。
jmail.MailServerUserName ="[email protected]" '發送郵件的郵箱，請配置你發郵件的郵箱地址。
jmail.MailServerPassWord ="***********" '發送郵件的密碼，請配置你發郵件的郵箱密碼。
issuccess=jmail.Send("smtp.qq.com") 'SMTP服務器，請配置你發郵件的SMTP服務器地址。
'上述三項引數的正確與否是郵件發送是否成功的關鍵
if issuccess then '本程式沒有進行郵箱有效性判斷，但郵箱格式不正確，郵件肯定發送不了。
msg="郵件發送成功！" '發送成功提示語，可以在后文設定文字格式。
else
msg="發送失敗，請檢查郵箱地址是否正確！" '發送失敗提示語，可以在后文設定文字格式。
end if
jmail.Close
set jmail=nothing
end if
%>
<tr><td>
<p class="infomsg"><%=msg%><br><a href='javascript:history.back()'>【回傳】</a></p>
</td></tr>
</table>
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136450.html
標籤：網絡編程
上一篇：新手求指點VB怎樣寫暫停繼續程式