本文利用asp和JMAIL實現了發送郵件，大家是不是很好奇這到底是怎么實現的吶，和小編一起一探究竟吧！
Global.asa文件
什么是Global.asa 文件？它其實是一個可選文件，程序編寫者可以在該文 件中指定事件腳本，并聲明具有會話和應用程序作用域的對象。該文件的內容不是用來給用戶顯示的，而是用來存儲事件信息和由應用程序全局使用的對象。該 文件的名稱必須是 Global.asa 且必須存放在應用程序的根目錄中。每個應用程序只能有一個 Global.asa 文件。內容如下:
<script language="vbscript" runat="server">sub Application_Onstart '對當前在線人數及訪問總量的初始化.Application("online")=0 Application("counter")=0End SubSub session_Onstartsession.timeout=5 '設置網頁到期時間為5分鐘application.lockapplication("online")=application("online")+1application("counter")=application("counter")+1application.unlockEnd SubSub session_OnEndApplication.lockApplication("online")=Application("online")-1Application.unlockEnd Sub</script>調用頁面代碼.test.asp
<% '增加當前人數限制處理,提示學員,并發送郵件'參數說明'Subject : 郵件標題'MailAddress : 發件服務器的地址,如smtp.163.com'Email : 收件人郵件地址'Sender : 發件人姓名'Content : 郵件內容'Fromer : 發件人的郵件地址Sub SendAction(subject, email, sender, content)Set JMail = Server.CreateObject("JMail.Message")JMail.Charset = "gb2312" ' 郵件字符集，默認為"US-ASCII"JMail.From = strMailUser ' 發送者地址JMail.FromName = sender' 發送者姓名JMail.Subject =subjectJMail.MailServerUserName = strMailUser' 身份驗證的用戶名JMail.MailServerPassword = strMailPass ' 身份驗證的密碼JMail.Priority = 3'發送郵件類型 1為特級 3為普通JMail.AddRecipient(email)JMail.Body = contentJMail.Send(strMailAddress)End SubDim title,strEmail,strMailAdress,strSender,strContentDim strMailAddress,strMailPass,strMailUser,JMailif application("online")>=1 then'調用此Sub的例子title = Request("title")strContent = "您好,當前在線人數為"&application("online")strSender = Request("Name") '發信人姓名strEmail = "a375267603@163.com" '收信人郵箱,可以改為 其它的郵箱strMailAddress = "mail.cdce.cn" '發件服務器地址 例:smtp.163.com(為163服務器地址)strMailUser = "zenghai@cdce.cn" '發件人用戶名strMailPass = "8888" '發件賬戶密碼Call SendAction (title,strEmail,strSender,strContent)strShowMessage = "模塊名稱：verifyStudent[超出人數限制]|詳細信息： 當前登錄考試系統的人數已經超出服務器的限制【" & application ("online") & "】，請您稍后再登錄！"end if%>通過本文了解了Global.asa文件是什么，以及如何實現郵件發送，希望對大家的學習有所幫助。
新聞熱點
疑難解答
