直播中
工作時間
9:00 18:00
圖3-15 增加值到Contents集合的屏幕
單擊按鈕，重新載入這個網(wǎng)頁，把值增加到Application.Contents集合中，并且在列表中顯示，如圖3-16所示：
圖3-16 顯示Contents集合內(nèi)容的屏幕
增加新的Contents條目的代碼
所有的按鈕和其他HTML控件放置在示例網(wǎng)頁中的一個窗體上。ACTION設(shè)置了當(dāng)前網(wǎng)頁的路徑，提交該窗體時，重新裝入。METHOD屬性為“POST”，所以控件中的值出現(xiàn)在Request.Form集合中。在以前的章節(jié)中采用過這兩種技術(shù)：
<FORM ACTION=”<% = Request.ServerVariables(“SCRIPT_NAME”) %>” METHOD=”POST”>
該窗體上的按鈕都是普通的HTML INPUT控件，具有相同的標(biāo)題（三個空格）但名字不同。例如，創(chuàng)建第一個按鈕（把值增加到Application對象中）的代碼是：
<INPUT TYPE=”SUBMIT” NAME=”cmdAdd” VALUE=” ”>
重新載入該網(wǎng)頁時，檢查Request.Form集合，判定單擊的是哪個SUBMIT按鈕，并進(jìn)行相應(yīng)的處理。如果是增加一個值到Application對象的按鈕（該按鈕在HTML的<INPUT>元素中被命名為cmdAdd），使用下面的程序段：
If Len(Request.Form("cmdAdd")) Then
strVarName = Request.Form("txtVarName")
strVarValue = Request.Form("txtVarValue")
Application.Lock
Application("strVarName") = strVarValue
Application.Unlock
End If
注意程序如何使用Application.Lock和Application.Unlock方法，確保這些值不會因兩個用戶并發(fā)地訪問而產(chǎn)生混亂。如果只是對一個特定的值進(jìn)行設(shè)置，一般不可能發(fā)生這種情況。但一直使用Lock和Unlock方法是明智的。
2． Contents集合中刪除值
在例子網(wǎng)頁的底部有兩個按鈕，如圖3-17所示：
圖3-17 顯示在網(wǎng)頁底部的兩個按鈕
這兩個按鈕允許從Application.Contents集合中刪除值。第一個按鈕從集合中刪除單個的指定值，下拉列表框顯示的是Contents集合值的名字的列表（記住，不能從StaticObjects集合中刪除值，因為它們是靜態(tài)的）。
通過遍歷Contents集合（如前面我們所做的）執(zhí)行ASP網(wǎng)頁時，創(chuàng)建該列表。但是，我們僅收集每項的名字并把它們放到<SELECT>列表元素內(nèi)的<OPTION>元素中：
…
<SELECT NAME=”lstRemove” SIZE=”1”>
<%
For Each objItem in Application.Contents
Response.Write “<OPTION>” & objItem & “</OPTION>”
Next
&>
</SELECT>
…
該ASP代碼執(zhí)行以后，在瀏覽器中看到的結(jié)果是：
<SELECT NAME=”lstRemove” SIZE=”1”>
<OPTION>ADOConnection</OPTION>
<OPTION>Variant_Array</OPTION>
<OPTION>Start_Time</OPTION>
<OPTION>Visit_Count</OPTION>
<OPTION>My_New_Value</OPTION>
</SELECT>
(1) 刪除單個值
當(dāng)單擊按鈕刪除單個值時，該窗體再次提交給相同的網(wǎng)頁，但是這一次將查找名為cmdRemoveThis的SUBMIT按鈕。如果存在（即單擊了這個按鈕），則使用列表框的值，調(diào)用Application.Contents集合的Remove方法：
If Len(Request.Form("cmdRemoveThis")) Then
strToRemove = Request.Form("lstRemove")
Response.Write "strToRemove = " & strToRemove
Application.Lock
Application.Contents.Remove(strToRemove)
Application.Unlock
End If
注意這是Contents集合的一個方法，而不是Application對象的。語法是Application.Contents.Remove，而不是Application.Remove。
從Contents集合中刪除Start_Time值的結(jié)果如圖3-18所示：
圖3-18 刪除Start_Time值后的屏幕
(2) 刪除所有的值
如果單擊三個SUBMIT類型按鈕中的最后一個（如圖3-18所示），該網(wǎng)頁中的代碼將檢測到單擊的按鈕為cmdRemoveAll，將執(zhí)行Application.Contents集合的RemoveAll方法：
If Len(Request.Form("cmdRemoveAll")) Then
Application.Lock
Application.Contents.RemoveAll
Application.Unlock
End If
再次提醒，這是Contents集合的一個方法，而不是Application。語法是Application.Contents.RemoveAll，而不是Application.RemoveAll。
圖3-19所示的是從Contents集合中刪除所有值的結(jié)果（記住在運(yùn)行時間不能從StaticObjects集合刪除項）：
圖3-19 刪除Contents集合中所有值的屏幕
3.3.5 活動中的ASP Session對象
示例網(wǎng)頁的第二個示例頁面show_session.asp，示范了如何使用Session對象。可在Chapter03子目錄中的開始菜單（Default.asp）中打開它。
1． 顯示和更新Session集合
Session對象示例頁面看起來與剛剛使用過的Application對象示例頁面相似。它遍歷Session對象的Contents和StaticObjects集合，顯示其名字和（可能的話）相應(yīng)的值。如果把這些值與Application對象頁面進(jìn)行比較，將會看到不同之處。
這里還能夠看到客戶端IP地址的一些其他值。這是當(dāng)會話啟動時global.asa中的代碼從Request.ServerVariables集合中得到的。這個頁面還顯示四個會話屬性的值，如圖3-20所示：
圖3-20 Session對象顯示屬性的屏幕
下面是例子中使用的golbal.asa文件的相關(guān)段落，它把缺省值增加到圖3-20所示的屏幕上所看到的會話中：
...
<!-- Declare instance of the ASPContentLink component
with session-level scope //-->
<OBJECT ID="ASPContentLink" RUNAT="Server" SCOPE="Session"
PROGID="MSWC.NextLink">
</OBJECT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
...
...
Sub Session_onStart()
'Create an instance of the AdRotator component with session-level scope
Set Session("ASPAdRotator") = Server.CreateObject("MSWC.AdRotator")
Dim varArray(3) 'Create a Variant array and fill it
varArray(0) = "This is a"
varArray(1) = "Variant array"
varArray(2) = "stored in the"
varArray(3) = "Session object"
Session("Variant_Array") = varArray 'Store it in the Session
Session("Start_Time") = CStr(Now) 'Store the date/time as a string
'We can access the contents of the Request and Response in a Session_onStart
'event handler for the page that initiated the session. This is the *only*
'place that the ASP page context is available like this.
'as an example, we can get the IP address of the user:
Session("Your_IP_Address") = Request.ServerVariables("REMOTE_ADDR")
Application.Lock 'Prevent concurrent updates
intVisits = Application("Visit_Count") + 1 'Increment counter variable
Application("Visit_Count") = intVisits 'Store back in Application
Application.Unlock 'Release lock on Application
End Sub
...
...
</SCRIPT>
遍歷Contents和StaticObjects集合的代碼與前面在Application對象示例中使用的代碼一樣，只不過這里引用了Session.Contents和Session.StaticObjects集合，而不是Application.Contents和Appliction.StaticObjects集合。
靠近頁面底部的按鈕的功能是把值增加到Session.Contents集合和從Session.Contents集合刪除值。這些按鈕與在Application對象示例頁面中相應(yīng)的按鈕工作方式相同，這里訪問的是Session.Contents集合，以及相應(yīng)的Remove和RemoveAll方法。我們不再重復(fù)解釋。
2． 終止一個用戶會話
在Session對象頁面的底部有一個按鈕，該按鈕終止當(dāng)前的用戶會話，這通過調(diào)用Session對象的Abandon方法實(shí)現(xiàn)。它與其余的HTML控件在相同的窗體上，名為cmdAbandon。當(dāng)該窗體再次被提交給這個網(wǎng)頁時，在Request.Form集合中查找這個值（如同在Application對象例子中做的一樣）。如發(fā)現(xiàn)這個值，則將該用戶重定向到另一個網(wǎng)頁：
If Len(Request.Form("cmdAbandon")) Then
Response.Clear
Response.Redirect "abandon.asp"
Response.End
End If
新的頁面名為abandon.asp，十分簡單，除了創(chuàng)建消息的文本和HTML以外只有如下的代碼：
<% Session.Abandon %>
該網(wǎng)頁的其余部分只是一個包含單個SUBMIT按鈕的窗體。注意如何使用來自Request.ServerVariables集合的引用網(wǎng)頁（HTTP_REFERER）的URL的值，以確保重新載入前一個網(wǎng)頁（Session對象例子網(wǎng)頁）：
<FORM ACTION="<% = Request.ServerVariables("HTTP_REFERER") %>" METHOD="POST">
<DIV CLASS="subhead">Your Session Has Been Terminated</DIV>
A new <B>Session</B> will be started when you load another
ASP page. It will contain any values that are defined in
the <B>global.asa</B> file for this application.
<INPUT TYPE="SUBMIT" NAME="cmdOK" VALUE=" ">
Return to the previous page
</FORM>
結(jié)果如圖3-21所示。這時，當(dāng)前的用戶會話已經(jīng)被終止（放棄），并且該用戶不能引用原先的Session集合或?qū)傩缘膬?nèi)容：
圖3-21 終止一個用戶會話后的屏幕
然而，記住這一切是在調(diào)用Abandon方法的網(wǎng)頁執(zhí)行時，甚至在對該方法的調(diào)用已經(jīng)完成以后，仍能夠從Session對象中獲得用戶的會話內(nèi)容。當(dāng)此網(wǎng)頁結(jié)束時，會話才結(jié)束。
當(dāng)然，當(dāng)返回到顯示會話內(nèi)容的Session對象示例網(wǎng)頁時，將啟動一個新的ASP會話。它將有一個不同的Start_Time值和通過執(zhí)行g(shù)lobal.asa中的代碼創(chuàng)建的其他缺省的會話值，如圖3-22所示：
圖3-22 重新建立一個用戶會話后的屏幕
注意，Session.SessionID屬性值沒有改變。ASP試圖重新分配相同的會話ID，因此不能依靠該值來判定一個新的會話已經(jīng)啟動。
3.4 小結(jié)
本章介紹了兩個ASP內(nèi)置對象：Application和Session對象。這些對象引入了ASP的應(yīng)用程序和用戶會話的概念（兩者都是特定的術(shù)語，并且不是通常談話時的意義）。ASP應(yīng)用程序允許分配專門的屬性給頁面集，定義了IIS和ASP如何管理這些網(wǎng)頁及所使用的其他組件。
然而，使用ASP應(yīng)用程序和會話的主要原因是需要自動地獲得狀態(tài)。換句話說，存儲信息和變量引用的能力，要么對用戶裝載的所有網(wǎng)頁是全局和可用的（即在一個應(yīng)用程序中），要么僅僅對一個指定的用戶的所有網(wǎng)頁是可用的（在一個會話中）。這使建立Web應(yīng)用程序變得非常簡單（即應(yīng)用程序在Web上工作，但能夠像傳統(tǒng)的編譯的應(yīng)用程序一樣能完成指定的任務(wù)）。
本章通過一些示例頁面，詳細(xì)介紹如何使用ASP的Application和Session對象。這些頁面示范了這兩個對象可用的所有技術(shù)。
桂公網(wǎng)安備45010502000253號
電子營業(yè)執(zhí)照
