asp+JMAIL實現(xiàn)發(fā)送郵件
本文利用asp和JMAIL實現(xiàn)了發(fā)送郵件,大家是不是很好奇這到底是怎么實現(xiàn)的吶,和小編一起一探究竟吧!
Global.asa文件
什么是Global.asa 文件?它其實是一個可選文件,程序編寫者可以在該文 件中指定事件腳本,并聲明具有會話和應(yīng)用程序作用域的對象。該文件的內(nèi)容不是用來給用戶顯示的,而是用來存儲事件信息和由應(yīng)用程序全局使用的對象。該 文件的名稱必須是 Global.asa 且必須存放在應(yīng)用程序的根目錄中。每個應(yīng)用程序只能有一個 Global.asa 文件。內(nèi)容如下:
<script language="vbscript" runat="server"> sub Application_Onstart '對當前在線人數(shù)及訪問總量的初始化. Application("online")=0 Application("counter")=0 End Sub Sub session_Onstart session.timeout=5 '設(shè)置網(wǎng)頁到期時間為5分鐘 application.lock application("online")=application("online")+1 application("counter")=application("counter")+1 application.unlock End Sub Sub session_OnEnd Application.lock Application("online")=Application("online")-1 Application.unlock End Sub </script>
調(diào)用頁面代碼.test.asp
<% '增加當前人數(shù)限制處理,提示學(xué)員,并發(fā)送郵件 '參數(shù)說明 'Subject : 郵件標題 'MailAddress : 發(fā)件服務(wù)器的地址,如smtp.163.com 'Email : 收件人郵件地址 'Sender : 發(fā)件人姓名 'Content : 郵件內(nèi)容 'Fromer : 發(fā)件人的郵件地址 Sub SendAction(subject, email, sender, content) Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 郵件字符集,默認為"US-ASCII" JMail.From = strMailUser ' 發(fā)送者地址 JMail.FromName = sender' 發(fā)送者姓名 JMail.Subject =subject JMail.MailServerUserName = strMailUser' 身份驗證的用戶名 JMail.MailServerPassword = strMailPass ' 身份驗證的密碼 JMail.Priority = 3'發(fā)送郵件類型 1為特級 3為普通 JMail.AddRecipient(email) JMail.Body = content JMail.Send(strMailAddress) End Sub Dim title,strEmail,strMailAdress,strSender,strContent Dim strMailAddress,strMailPass,strMailUser,JMail if application("online")>=1 then '調(diào)用此Sub的例子 title = Request("title") strContent = "您好,當前在線人數(shù)為"&application("online") strSender = Request("Name") '發(fā)信人姓名 strEmail = "a375267603@163.com" '收信人郵箱,可以改為 其它的郵箱 strMailAddress = "mail.cdce.cn" '發(fā)件服務(wù)器地址 例:smtp.163.com(為163服務(wù)器地址) strMailUser = "zenghai@cdce.cn" '發(fā)件人用戶名 strMailPass = "8888" '發(fā)件賬戶密碼 Call SendAction (title,strEmail,strSender,strContent) strShowMessage = "模塊名稱:verifyStudent[超出人數(shù)限制]|詳細信息: 當前登錄考試系統(tǒng)的人數(shù)已經(jīng)超出服務(wù)器的限制【" & application ("online") & "】,請您稍后再登錄!" end if %>
通過本文了解了Global.asa文件是什么,以及如何實現(xiàn)郵件發(fā)送,希望對大家的學(xué)習(xí)有所幫助。
相關(guān)文章
ASP 循環(huán)導(dǎo)入導(dǎo)出數(shù)據(jù)處理 不使用緩存
非常不錯,大家可以自己應(yīng)用下。2009-01-01Ajax跨域代理訪問網(wǎng)絡(luò)資源的實現(xiàn)代碼
解決Ajax跨域訪問報“沒有權(quán)限”的錯誤。需要的朋友可以參考下。2011-03-03ASP javascript Application對象的Contents和StaticObjects做Cache的一些
ASP javascript: Application對象的Contents和StaticObjects做Cache的一些結(jié)論。 ASP封裝Cache對象,一般都是基于Application的,2008-05-05ASP計算str2在str1中出現(xiàn)的次數(shù)
可以方便計算一個字符串在另一個字符串出現(xiàn)的次數(shù)2008-05-05asp動態(tài)include文件,方便多模板的實現(xiàn)
asp動態(tài)include文件,方便多模板的實現(xiàn)...2007-08-08