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

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

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

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

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

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

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

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

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

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

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

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

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

’ 郵件主體（文本部分）
JMail.Body = "我們的郵件采用了HTML格式，請點擊郵件下方""HTML內容""來查看詳細內容。"

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

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

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

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