(1)  遍歷Contents集合的代碼
為了遍歷Contents集合，可使用一個(gè)For Each ... Next結(jié)構(gòu)。集合中的每一項(xiàng)可以是一個(gè)簡(jiǎn)單的Variant類型變量、一個(gè)Variant數(shù)組或者一個(gè)對(duì)象的引用。因?yàn)樾枰獙?duì)每種類型的值進(jìn)行不同的處理，所以就不得不對(duì)每一個(gè)進(jìn)行檢查來(lái)判別其類型。
在VBScript中可使用VarType函數(shù)完成這個(gè)工作。這里使用IsObject和IsArray函數(shù)代替：
For Each objItem in Application.Contents
    If IsObject(Application.Contents(objItem)) Then
        Response.Write “Object reference: ‘” & objItem & “’<BR>”
    ElseIf IsArray(Application.Contents(objItem)) Then
        Response.Write “Array: ‘” & objItem & “’ contents are:<BR>”
        VarArray = Application.Contents(objItem)
        ‘Note: the following only works with a one-dimensional array
        For intLoop = 0 To UBound(varArray)
            Response.Write “&nbsp; Index(“ & intLoop & “) = “ & _
                        VarArray(intLoop) & “<BR>”
        Next
    Else
        Response.Write “Variable: ‘” & objItem & “’ = “ _
                    & Application.Contents(objItem) & “<BR>”
    End If
Next
注意程序如何從Application對(duì)象檢索該數(shù)組。將其分配給一個(gè)局部（Variant）變量，使用下面的語(yǔ)句：
varArray = Application.Contents(objItem)
使用UBound函數(shù)可以查找出數(shù)組的大�。ㄔ�素的��(shù)量），這個(gè)值可以作為遍歷的終止條件：
For intLoop = 0 UBound(varArray)
這個(gè)例子是一維數(shù)組，并將只顯示這樣的一個(gè)數(shù)組的內(nèi)容。可根據(jù)需要編輯代碼以處理多維數(shù)組，例如：
For intLoop = 0 To UBound(varArray)
    IntNumberOfDimensions = UBound(varArray, 1)
    For intDimension = 0 To intNumberOfDimensions
        Response.Write “&nbsp; Index(“ & intLoop & “) = “ _
                & varArray(intLoop, intDimension)
    Next
    Response.Write “<BR>”
Next
(2)  遍歷StaticObjects集合的代碼
StaticObjects集合包含了所有在global.asa中使用<OBJECT>元素聲明的對(duì)象引用。因?yàn)槊總�(gè)條目都是一個(gè)對(duì)象變量，可用
簡(jiǎn)單些的代碼對(duì)這個(gè)數(shù)組進(jìn)行遍歷。我們將輸出對(duì)象的名字（在ID屬性中原有的定義）：
For Each objItem in Application.StaticObjects
    If IsObject(Application.StaticObjects(objItem)) Then
        Response.Write “<OBJECT> element: ID=’” & objItem & “’<BR>”
    End If
Next
1．  增加值到Contents集合
增加值到Contents集合的方法，與在global.asa網(wǎng)頁(yè)的腳本代碼中使用過(guò)的方法相同。示例網(wǎng)頁(yè)允許把一個(gè)新的Variant值
增加到Application對(duì)象中，并已有建議的名字和值（可根據(jù)需要進(jìn)行編輯），如圖3-15所示：

圖3-15  增加值到Contents集合的屏幕
單擊按鈕，重新載入這個(gè)網(wǎng)頁(yè)，把值增加到Application.Contents集合中，并且在列表中顯示，如圖3-16所示：

圖3-16  顯示Contents集合內(nèi)容的屏幕
       增加新的Contents條目的代碼
       所有的按鈕和其他HTML控件放置在示例網(wǎng)頁(yè)中的一個(gè)窗體上。ACTION設(shè)置了當(dāng)前網(wǎng)頁(yè)的路徑，提交該窗體時(shí)，重新
裝入。METHOD屬性為“POST”，所以控件中的值出現(xiàn)在Request.Form集合中。在以前的章節(jié)中采用過(guò)這兩種技術(shù)：
       <FORM ACTION=”<% = Request.ServerVariables(“SCRIPT_NAME”) %>” METHOD=”POST”>
       該窗體上的按鈕都是普通的HTML INPUT控件，具有相同的標(biāo)題（三個(gè)空格）但名字不同。例如，創(chuàng)建第一個(gè)按鈕（把值增加到Application對(duì)象中）的代碼是：
       <INPUT TYPE=”SUBMIT” NAME=”cmdAdd” VALUE=”&nbsp;&nbsp;&nbsp;”>
       重新載入該網(wǎng)頁(yè)時(shí)，檢查Request.Form集合，判定單擊的是哪個(gè)SUBMIT按鈕，并進(jìn)行相應(yīng)的處理。如果是增加一個(gè)值到Application對(duì)象的按鈕（該按鈕在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方法，確保這些值不會(huì)因兩個(gè)用戶并發(fā)地訪問(wèn)而產(chǎn)生混
亂。如果只是對(duì)一個(gè)特定的值進(jìn)行設(shè)置，一般不可能發(fā)生這種情況。但一直使用Lock和Unlock方法是明智的。
2．  Contents集合中刪除值
在例子網(wǎng)頁(yè)的底部有兩個(gè)按鈕，如圖3-17所示：

圖3-17  顯示在網(wǎng)頁(yè)底部的兩個(gè)按鈕
這兩個(gè)按鈕允許從Application.Contents集合中刪除值。第一個(gè)按鈕從集合中刪除單個(gè)的指定值，下拉列表框顯示的是
Contents集合值的名字的列表（記住，不能從StaticObjects集合中刪除值，因?yàn)樗鼈兪庆o態(tài)的）。
通過(guò)遍歷Contents集合（如前面我們所做的）執(zhí)行ASP網(wǎng)頁(yè)時(shí)，創(chuàng)建該列表。但是，我們僅收集每項(xià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)    刪除單個(gè)值
當(dāng)單擊按鈕刪除單個(gè)值時(shí)，該窗體再次提交給相同的網(wǎng)頁(yè)，但是這一次將查找名為cmdRemoveThis的SUBMIT按鈕。如果存在（即單擊了這個(gè)按鈕），則使用列表框的值，調(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集合的一個(gè)方法，而不是Application對(duì)象的。語(yǔ)法是Application.Contents.Remove，而不是
Application.Remove。
從Contents集合中刪除Start_Time值的結(jié)果如圖3-18所示：

圖3-18  刪除Start_Time值后的屏幕
(2)    刪除所有的值
如果單擊三個(gè)SUBMIT類型按鈕中的最后一個(gè)（如圖3-18所示），該網(wǎng)頁(yè)中的代碼將檢測(cè)到單擊的按鈕為cmdRemoveAll，將
執(zhí)行Application.Contents集合的RemoveAll方法：
If Len(Request.Form("cmdRemoveAll")) Then
   Application.Lock
   Application.Contents.RemoveAll
   Application.Unlock
End If
再次提醒，這是Contents集合的一個(gè)方法，而不是Application。語(yǔ)法是Application.Contents.RemoveAll，而不是
Application.RemoveAll。
圖3-19所示的是從Contents集合中刪除所有值的結(jié)果（記住在運(yùn)行時(shí)間不能從StaticObjects集合刪除項(xiàng)）：

圖3-19  刪除Contents集合中所有值的屏幕

3.3.5 活動(dòng)中的ASP Session對(duì)象
       示例網(wǎng)頁(yè)的第二個(gè)示例頁(yè)面show_session.asp，示范了如何使用Session對(duì)象�？稍贑hapter03子目錄中的開始菜單（Default.asp）中打開它。
1．  顯示和更新Session集合
Session對(duì)象示例頁(yè)面看起來(lái)與剛剛使用過(guò)的Application對(duì)象示例頁(yè)面相似。它遍歷Session對(duì)象的Contents和StaticObjects集合，顯示其名字和（可能的話）相應(yīng)的值。如果把這些值與Application對(duì)象頁(yè)面進(jìn)行比較，將會(huì)看到不同之處。
這里還能夠看到客戶端IP地址的一些其他值。這是當(dāng)會(huì)話啟動(dòng)時(shí)global.asa中的代碼從Request.ServerVariables集合中得到的。這個(gè)頁(yè)面還顯示四個(gè)會(huì)話屬性的值，如圖3-20所示：

圖3-20  Session對(duì)象顯示屬性的屏幕
下面是例子中使用的golbal.asa文件的相關(guān)段落，它把缺省值增加到圖3-20所示的屏幕上所看到的會(huì)話中：
...
<!-- 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對(duì)象示例中使用的代碼一樣，只不過(guò)這里引用了Session.Contents和Session.StaticObjects集合，而不是Application.Contents和Appliction.StaticObjects集合。
靠近頁(yè)面底部的按鈕的功能是把值增加到Session.Contents集合和從Session.Contents集合刪除值。這些按鈕與在Application對(duì)象示例頁(yè)面中相應(yīng)的按鈕工作方式相同，這里訪問(wèn)的是Session.Contents集合，以及相應(yīng)的Remove和
RemoveAll方法。我們不再重復(fù)解釋。
2．  終止一個(gè)用戶會(huì)話
在Session對(duì)象頁(yè)面的底部有一個(gè)按鈕，該按鈕終止當(dāng)前的用戶會(huì)話，這通過(guò)調(diào)用Session對(duì)象的Abandon方法實(shí)現(xiàn)。它與其余的HTML控件在相同的窗體上，名為cmdAbandon。當(dāng)該窗體再次被提交給這個(gè)網(wǎng)頁(yè)時(shí)，在Request.Form集合中查找這個(gè)值（如同在Application對(duì)象例子中做的一樣）。如發(fā)現(xiàn)這個(gè)值，則將該用戶重定向到另一個(gè)網(wǎng)頁(yè)：
If Len(Request.Form("cmdAbandon")) Then
   Response.Clear
   Response.Redirect "abandon.asp"
   Response.End
End If
新的頁(yè)面名為abandon.asp，十分簡(jiǎn)單，除了創(chuàng)建消息的文本和HTML以外只有如下的代碼：
<% Session.Abandon %>
該網(wǎng)頁(yè)的其余部分只是一個(gè)包含單個(gè)SUBMIT按鈕的窗體。注意如何使用來(lái)自Request.ServerVariables集合的引用網(wǎng)頁(yè)
（HTTP_REFERER）的URL的值，以確保重新載入前一個(gè)網(wǎng)頁(yè)（Session對(duì)象例子網(wǎng)頁(yè)）：
<FORM ACTION="<% = Request.ServerVariables("HTTP_REFERER") %>" METHOD="POST">
<P><DIV CLASS="subhead">Your Session Has Been Terminated</DIV>
A new <B>Session</B> will be started when you load another<BR>
ASP page. It will contain any values that are defined in<BR>
the <B>global.asa</B> file for this application.<P>
<INPUT TYPE="SUBMIT" NAME="cmdOK" VALUE="&nbsp;&nbsp;&nbsp;">
&nbsp; Return to the previous page<P>
</FORM>
結(jié)果如圖3-21所示。這時(shí)，當(dāng)前的用戶會(huì)話已經(jīng)被終止（放棄），并且該用戶不能引用原先的Session集合或?qū)傩缘膬?nèi)容：

圖3-21  終止一個(gè)用戶會(huì)話后的屏幕
然而，記住這一切是在調(diào)用Abandon方法的網(wǎng)頁(yè)執(zhí)行時(shí)，甚至在對(duì)該方法的調(diào)用已經(jīng)完成以后，仍能夠從Session對(duì)象中獲得用戶的會(huì)話內(nèi)容。當(dāng)此網(wǎng)頁(yè)結(jié)束時(shí)，會(huì)話才結(jié)束。當(dāng)然，當(dāng)返回到顯示會(huì)話內(nèi)容的Session對(duì)象示例網(wǎng)頁(yè)時(shí)，將啟動(dòng)一個(gè)新的ASP會(huì)話。它將有一個(gè)不同的Start_Time值和通過(guò)執(zhí)行g(shù)lobal.asa中的代碼創(chuàng)建的其他缺省的會(huì)話值，如圖3-22所示：

圖3-22  重新建立一個(gè)用戶會(huì)話后的屏幕
注意，Session.SessionID屬性值沒(méi)有改變。ASP試圖重新分配相同的會(huì)話ID，因此不能依靠該值來(lái)判定一個(gè)新的會(huì)話已經(jīng)啟動(dòng)。

3.4 小結(jié)
    本章介紹了兩個(gè)ASP內(nèi)置對(duì)象：Application和Session對(duì)象。這些對(duì)象引入了ASP的應(yīng)用程序和用戶會(huì)話的概念（兩者都是特定的術(shù)語(yǔ)，并且不是通常談話時(shí)的意義）。ASP應(yīng)用程序允許分配專門的屬性給頁(yè)面集，定義了IIS和ASP如何管理這
些網(wǎng)頁(yè)及所使用的其他組件。
    然而，使用ASP應(yīng)用程序和會(huì)話的主要原因是需要自動(dòng)地獲得狀態(tài)。換句話說(shuō)，存儲(chǔ)信息和變量引用的能力，要么對(duì)用戶裝載的所有網(wǎng)頁(yè)是全局和可用的（即在一個(gè)應(yīng)用程序中），要么僅僅對(duì)一個(gè)指定的用戶的所有網(wǎng)頁(yè)是可用的（在一個(gè)會(huì)話中）。這使建立Web應(yīng)用程序變得非常簡(jiǎn)單（即應(yīng)用程序在Web上工作，但能夠像傳統(tǒng)的編譯的應(yīng)用程序一樣能完成指定的任務(wù)）。
    本章通過(guò)一些示例頁(yè)面，詳細(xì)介紹如何使用ASP的Application和Session對(duì)象。這些頁(yè)面示范了這兩個(gè)對(duì)象可用的所有技術(shù)。