最新ASP講座之3：Application對象與Session對象
發(fā)表時間：2023-08-09 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]上一講中，我們學(xué)習(xí)了Request對象的Form數(shù)據(jù)集合、QueryString數(shù)據(jù)集合和ServerVariables數(shù)據(jù)集合。在繼續(xù)下面的學(xué)習(xí)之前，建議你先輕松一下，因?yàn)榻酉聛硪榻B的Appli...
上一講中，我們學(xué)習(xí)了Request對象的Form數(shù)據(jù)集合、QueryString數(shù)據(jù)集合和ServerVariables數(shù)據(jù)集合。在繼續(xù)下面的學(xué)習(xí)之前，建議你先輕松一下，因?yàn)榻酉聛硪榻B的Application對象相對比較抽象，剛開始理解起來恐怕會不辨東西。切記：當(dāng)你找不到北時，便不要過多考慮Application對象到底是什么東西？還是一句老話，先學(xué)會使用它。
一、了解Application對象。為了提神，我們先看一個計數(shù)器的例程（你應(yīng)該運(yùn)行它以便于理解）：
先編輯一個wuf16.htm文件：
<html>
<body>
記錄某個頁面的點(diǎn)擊數(shù)示例：<a href="wuf17.asp">wuf17.asp</a>
</body>
</html>
wuf17.asp的代碼如下：
<% @ LANGUAGE = VBScript %>
<% 'wuf17.asp - 記錄某一頁面的訪問數(shù)(計數(shù)器原理)
Option Explicit
Dim CountWeb
CountWeb = Request.ServerVariables("SCRIPT_NAME")
'這樣保證每個頁面都有一個唯一的變量, 避免混亂
%>
<HTML><BODY>
<%
Response.Write CountWeb & "<Br><Br>" & vbcrlf
Application.Lock '請看講解
Application(CountWeb) = Application(CountWeb) + 1 '累加器,點(diǎn)擊數(shù)加1
Application.UnLock
Response.Write "WEB服務(wù)器關(guān)閉重啟前該頁的點(diǎn)擊總數(shù)為: " & Application(CountWeb)
%>
</BODY></HTML>
運(yùn)行這個程序時，對大部分的人來說，只有一臺機(jī)器，既是Web服務(wù)器，又是客戶端。那么你只能想象這樣一種境況了：你的這兩個主頁文件放在很遠(yuǎn)的Web服務(wù)器上，而如潮水般的國內(nèi)外用戶正通過瀏覽器訪問它們。每個用戶點(diǎn)擊一次，Application(CountWeb) 的值就加1，而且只要存放文件wuf17.asp的服務(wù)器沒有關(guān)閉，Application(CountWeb)就將一直累加下去。但是注意，如果服務(wù)器關(guān)閉后重啟，則Application(CountWeb)將重新從0開始計數(shù)（我暈，我說我的頁面訪問數(shù)怎么老是一位數(shù)）。為了避免這種永遠(yuǎn)從零開始的計數(shù)情況，你必須要在服務(wù)器關(guān)閉之前將Application(CountWeb)的值保存起來，下次需要時再取出來，就能夠順序累計下去了，具體如何做，且聽N回后分解。
接下來的問題，就是Application.Lock、UnLock是什么意思？剛才我們做了一個假設(shè)，大量的用戶正在訪問該頁面，而每一個用戶的點(diǎn)擊都會發(fā)生Application(CountWeb)加1，想想看，這樣不就亂套了（什么！想不出，那肯定是你的主頁終日只有你一個人贊助），所以得有個先來后到的規(guī)則。當(dāng)某一用戶訪問該頁面，需要修改Application(CountWeb)的值時，使用Lock方法加鎖，避免其他用戶修改，修改完后，再解鎖。
從上例中您是否已看出，Application對象提供給所有用戶共享信息（Application(CountWeb)），它所面向的是所有用戶（每個用戶的訪問都會導(dǎo)致計數(shù)器加1）。Application對象還有兩個事件，Application_OnStart事件和Application_OnEnd事件（您可千萬別暈，這只是面向?qū)ο缶幊陶Z言中起步的概念），使用時語法如下：
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnEnd
‘當(dāng)WEB服務(wù)器關(guān)閉時，將激活A(yù)pplication_OnEnd事件
‘也就是程序?qū)?zhí)行放在這里的代碼
‘因此服務(wù)器關(guān)閉前我們可以在這里將wuf17.asp中Application(CountWeb)的值
‘保存起來，如放在一個文本文件中。
End Sub
Sub Application_OnStart
‘當(dāng)?shù)谝粋�用戶瀏覽ASP網(wǎng)頁時，將激活A(yù)pplication_OnStart事件，而以后其他用戶瀏覽時，就不發(fā)生這一事件了
‘也就是程序?qū)?zhí)行放在這里的代碼
‘因此可在這里讀出保存在文本文件中Application(CountWeb)的值。
End Sub
</SCRIPT>
下面通過一個實(shí)例來說明如何使用事件，該程序的作用是統(tǒng)計站點(diǎn)所有頁面的總點(diǎn)擊數(shù)。
文件wuf18.asp的代碼（站點(diǎn)內(nèi)其他頁面文件與這個文件類似）：
<% @ LANGUAGE = VBScript %>
<% Option Explicit
‘站內(nèi)所有頁面文件都應(yīng)包括這句<!--#include file="wuf19.asp"-->%>
<!--#include file="wuf19.asp"-->
<HTML><BODY>
在服務(wù)器關(guān)閉重啟之前站點(diǎn)所有頁面總點(diǎn)擊數(shù): <%= Application("CountAll") %>
</BODY></HTML>
文件wuf19.asp的代碼：
<% ' wuf19.asp
Application.Lock
Application("CountAll") = Application("CountAll") + 1
Application.UnLock
%>
文件wuf18.asp與wuf19.asp放在同一目錄下。文件global.asa的代碼：
注意：事件處理程序必須以名為“global.asa”的文本文件存盤，而且必須放在虛擬路徑的根目錄下（一般就是與index.htm或default.htm文件放在同一目錄下，例如：以我的機(jī)器為例，就絕對路徑而言，global.asa放在c:\InetPub\home下，而wuf18.asp和wuf19.asp放在c:\InetPub\home\asp下），同一虛擬路徑只允許有一個global.asa文件存在。
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'global.asa - wuf18.asp 在下載包中的文件名為18global.asa，使用時要改名。
Sub Application_OnStart
‘當(dāng)?shù)谝粋�用戶瀏覽網(wǎng)頁時，置計數(shù)器初值為0，
‘而以后其他用戶瀏覽時，不再執(zhí)行以下代碼
Application.Lock
Application("CountAll") = 0
Application.UnLock
End Sub
</SCRIPT>
瀏覽wuf18.asp查看運(yùn)行結(jié)果�？磥�，僅僅學(xué)會使用Application對象并不難。
二、認(rèn)識Session對象。有了前面的Application對象做鋪墊，Session對象就容易多了。它與Application對象類似，只不過是僅僅用來記錄單個用戶的相關(guān)信息，它面向單個用戶，因此我們可以使用Session對象存儲某單個用戶的信息。
與Application對象一樣，Session對象也有兩個事件：Session_OnStart事件和Session_OnEnd事件。使用語法與Application對象類似。
值得一提的是，使用Session對象前，必須確認(rèn)瀏覽器的Cookie功能已啟用（默認(rèn)設(shè)置就可以了）。
下面舉一個實(shí)例，文件global.asa的要求同上，因此上例中的global.asa將被本例中的global.asa覆蓋。
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' global.asa - wuf20.asp 在下載包中文件名為20global.asa
Sub Session_OnStart
Session("In") = Now ‘函數(shù)Now取得當(dāng)前時間
End Sub
Sub Session_OnEnd
Session("Out") = Now
Application.Lock
Application("Out") = Session("Out")
Application("In") = Session("In")
Application(“Out”).UnLock
End Sub
</SCRIPT>
文件wuf20.asp：
<%@ Language=VBScript %>
<HTML>
<BODY>
<% 'wuf20.asp
Response.Write "默認(rèn)Timeout設(shè)置:" & Session.Timeout & "分鐘<Br>"
Session.Timeout = 1
Response.Write "您進(jìn)入本站的時間:" & Session("In") & "<Br>"
Response.Write "請在 1 分鐘后刷新本頁" & "<Br><Br>"
if Not IsEmpty(Application("Out")) then
Response.Write "您上次進(jìn)入本站的時間:" & Application("In") & "<Br>"
Response.Write "您上次離開本站的時間:" & Application("Out") & "<Br>"
Response.Write "瀏覽時間(分鐘):" &_
Datediff("n",Application("In"),Application("Out")) & "<Br><Br>"
End If
if IsEmpty(Session("Out")) then
Response.Write "刷新前和刷新后Session(""Out"")的值都為空" & "<Br>"
End If
%>
</BODY>
</HTML>
當(dāng)用戶第一次瀏覽網(wǎng)頁時，發(fā)生Session_OnStart事件，程序記錄用戶本次進(jìn)入網(wǎng)頁的時間，而此時不會發(fā)生Session_OnEnd事件，故Application("Out")值為空，程序不會顯示瀏覽時間。
我們知道，Application對象的生存期為第一個用戶瀏覽網(wǎng)頁直至服務(wù)器關(guān)閉。而Session對象的生存期為用戶第一次瀏覽網(wǎng)頁（會話開始）直至?xí)捊Y(jié)束。那什么時候會話結(jié)束呢？具體到本例中，Session.Timeout = 1設(shè)置會話超時為1分鐘，即如果長達(dá)1分鐘沒有向Web服務(wù)器提供請求，則會話超時，導(dǎo)致會話結(jié)束，發(fā)生Session_OnEnd事件，程序執(zhí)行Session_OnEnd內(nèi)的代碼。在這里我們將進(jìn)入和離開時間分別放入Application("In")和Application("Out")，因?yàn)闀捊Y(jié)束后，Session對象將不復(fù)存在，這點(diǎn)我們在代碼的最后做了驗(yàn)證。
從這個例程，可以看出：
1． Application對象和Session對象的生存期不同。
2． Session對象是針對單個用戶的，它的值存放在客戶端，其他用戶的瀏覽對該單用戶的Session對象沒有任何影響。單個用戶只能讀寫自己Session對象的值（如：Session("In")）。
3． 注意在Response.Write中顯示雙引號的表示方法：(""Out"")。
4． 特別提醒：該程序沒有實(shí)用性，僅供調(diào)試用（僅適用于只有一個用戶瀏覽的情況），請思考這是為什么？答案見本文末。
提示：請注意Application對象的特性。
三、一個經(jīng)典的實(shí)例：如何在網(wǎng)頁上顯示在線人數(shù)
在下面的例子中，用Application("Online")來存放在線人數(shù)，用Application("CountAll")存放總訪問人數(shù)。
原理：當(dāng)一個新用戶瀏覽網(wǎng)頁時，發(fā)生Session_OnStart事件，在線人數(shù)加1，訪問用戶數(shù)也加1。當(dāng)某用戶離開時，會話超時后會發(fā)生Session_OnEnd事件，在線人數(shù)減1。
Global.asa代碼如下：
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
' Global.asa - wuf21.asp
Sub Application_OnStart
Application.Lock
'在這里讀出Application("CountAll")的初始值
Application.UnLock
End Sub
Sub Session_OnStart
Application.Lock
Application("Online") = Application("Online") + 1
Application("CountAll") = Application("CountAll") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("Online") = Application("Online") - 1
Application.UnLock
End Sub
Sub Application_OnEnd
Application.Lock
'應(yīng)該在這里將Application("CountAll")保存到文件中
Application.UnLock
End Sub
</SCRIPT>
Wuf21.asp代碼如下：
<%@ Language=VBScript %>
<HTML>
<BODY>
<%Session.Timeout = 5%>
<P>在線人數(shù): <%= Application("Online")%></P>
<P>訪問總?cè)藬?shù): <%= Application("CountAll")%></P>
</BODY>
</HTML>
請注意將本例程與wuf17.asp對比，后者是計算點(diǎn)擊數(shù)，而前者是計算訪問人數(shù)。
答案：由于Applicaton對象適用于所有用戶，所以在多用戶的情況下，其他用戶的瀏覽也會改變Application(“In”)和Application(“Out”)的值。
