asp如何使用Jmail組件發(fā)送信息到指定郵箱_ASP教程

教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!

推薦：一個(gè)簡(jiǎn)單好用的UBB編輯器(含代碼)
現(xiàn)在的在線編輯器有很多，且功能強(qiáng)大，比如 eWebEditor，但也占用空間大，一些簡(jiǎn)單的論壇、留言板并不還需要太強(qiáng)大的功能， HtmlEditor就是這樣一個(gè)編輯器，簡(jiǎn)單漂亮，調(diào)用也方便，推薦大家使用。調(diào)用時(shí)代碼，提交頁(yè)： form method=POST action=Post.a

<%
a=request("姓名")
aa=request("電話")
aaa=request("mail")
aaaa=request("yb")
aaaaa=request("dz")
b=request("bt")
bb=request("內(nèi)容")
'上面是請(qǐng)求的數(shù)據(jù)，由普通表單提交過(guò)來(lái)即可。

Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")

JMail.Charset = "gb2312" ’ 郵件字符集，默認(rèn)為"US-ASCII"
’ JMail.ISOEncodeHeaders = False ’ 是否進(jìn)行ISO編碼，默認(rèn)為True

’ 發(fā)送者信息（可用變量方式賦值）
JMail.From = "[email protected]" ’ 用于發(fā)送的郵箱
JMail.FromName = "網(wǎng)站1" ’ 發(fā)送者姓名
JMail.Subject = "信箱a" ’ 郵件主題

’ 身份驗(yàn)證
JMail.MailServerUserName = "[email protected]" ’用于發(fā)送的郵箱
JMail.MailServerPassword = "xxxxxxx" ’ 密碼

’ 設(shè)置優(yōu)先級(jí)，范圍從1到5，越大的優(yōu)先級(jí)越高，3為普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

’ 加入一個(gè)收件人【變量email：收件人地址】可以同一語(yǔ)句重復(fù)加入多個(gè)
JMail.AddRecipient([email protected])

’ 加入附件【變量filename：附件文件的絕對(duì)地址，確保用戶IUSR_????有訪問(wèn)的權(quán)限】
’ 【參數(shù)設(shè)置是(True)否(False)為Inline方式】
’contentId = JMail.AddAttachment (filename, True)

’ 郵件主體（HTML(注意信件內(nèi)鏈接附件的方式)）
JMail.HTMLBody = ""發(fā)信人姓名："&a&" 電話："&aa&" mail："&aaa&" 郵編："&aaaa&" 聯(lián)系地址："&aaaaa&" 標(biāo)題："&b&"  
內(nèi)容："&bb&" "

’ 郵件主體（文本部分）
JMail.Body = "我們的郵件采用了HTML格式，請(qǐng)點(diǎn)擊郵件下方""HTML內(nèi)容""來(lái)查看詳細(xì)內(nèi)容。"

’ 發(fā)送【調(diào)用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
sendok=JMail.Send("mail.xxx.com") '發(fā)送mail服務(wù)器

 if sendok then
 endstr= "已經(jīng)成功發(fā)送了郵件！"
 else
 endstr= "發(fā)送郵件失敗，可能是您填寫(xiě)了錯(cuò)誤的郵件地址。 " & _
 "如果您確信沒(méi)有寫(xiě)錯(cuò)郵件地址，則可能是發(fā)信程序出了 " & _
 "故障，請(qǐng)與管理員聯(lián)系！"
 end if

’ 關(guān)閉并清除對(duì)象
JMail.Close()
Set JMail = Nothing
%>
<%=endstr%>

分享：如何防止網(wǎng)上投票重復(fù)投票
ASP對(duì)象在ASP中有5個(gè)對(duì)象：Request、Response、Session、Application、Server。下面只針對(duì)本文能用到的對(duì)象屬性進(jìn)行說(shuō)明，其他方面的屬性請(qǐng)參考相關(guān)資料。本文提供的方法的原理是：設(shè)置一個(gè)邏輯變量IsVoted，在投票之前驗(yàn)證IsVoted的值，只有值為False時(shí)，才