本文利用asp和JMAIL實現了發送郵件，大家是不是很好奇這到底是怎麼實現的吶，和小編一起一探究竟吧！
Global.asa文件
什麼是Global.asa 文件？它其實是一個可選文件，程序編寫者可以在該文 件中指定事件腳本，並聲明具有會話和應用程序作用域的對象。該文件的內容不是用來給用戶顯示的，而是用來存儲事件信息和由應用程序全局使用的對象。該 文件的名稱必須是 Global.asa 且必須存放在應用程序的根目錄中。每個應用程序只能有一個 Global.asa 文件。內容如下:
<script language="vbscript" runat="server">
sub Application_Onstart '對當前在線人數及訪問總量的初始化.
Application("online")=0
Application("counter")=0
End Sub
Sub session_Onstart
session.timeout=5 '設置網頁到期時間為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>
調用頁面代碼.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 =subject
JMail.MailServerUserName = strMailUser' 身份驗證的用戶名
JMail.MailServerPassword = strMailPass ' 身份驗證的密碼
JMail.Priority = 3'發送郵件類型 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
'調用此Sub的例子
title = Request("title")
strContent = "您好,當前在線人數為"&application("online")
strSender = Request("Name") '發信人姓名
strEmail = "[email protected]" '收信人郵箱,可以改為 其它的郵箱
strMailAddress = "mail.cdce.cn" '發件服務器地址 例:smtp.163.com(為163服務器地址)
strMailUser = "[email protected]" '發件人用戶名
strMailPass = "8888" '發件賬戶密碼
Call SendAction (title,strEmail,strSender,strContent)
strShowMessage = "模塊名稱：verifyStudent[超出人數限制]|詳細信息： 當前登錄考試系統的人數已經超出服務器的限制【" & application ("online") & "】，請您稍後再登錄！"
end if
%>
通過本文了解了Global.asa文件是什麼，以及如何實現郵件發送，希望對大家的學習有所幫助。
