細說ASP中Counters 組件(1)

    　　概述

　　Counter 組件創建一個可創建、存儲、增長和檢索任何數量的獨立計數器的 Counters 對象。

　　計數器是一個包含整數的持續值。可以使用 Counters 對象的 Get、Increment、Set 和 Remove 方法控制計數器。一旦您創建了計數器，它將一直持續下去直到被刪除為止。

　　計數器不會在一個事件比如訪問一頁時自動增加。您必須使用 Set 和 Increment 方法人工的設置或增長計數器。

　　計數器不受作用域限制。一旦您創建了一個計數器，那么您的站點上的任何頁都可以檢索和控制它的值。例如，若您在一個名為 Page1.asp 的頁上顯示和增加一個叫做 hits 的計數器的值，而又在另一個叫做 Page2.asp 的頁上增加 hits 的值，則兩頁將增加同一計數器。若您訪問 Page1.asp 時，計數器的值增加到 34，則訪問 Page2.asp 會將 hits 增加到 35。下一次訪問 Page1.asp，hits 將增加到 36。

　　所有計數器都存儲在一個單獨的名為 counters.txt 的文本文件中，它同 counters.dll 文件存儲在同一目錄下。

　　文件名

　　counters.dll Counters 組件。

　　counters.txt 該文件在一個站點上存儲所有獨立的計數器。counters.txt 是一個 UTF8 編碼文件。您可以在計數器名稱中使用任何 Unicode 字符。

　　語法

　　將下列內容加入到 global.asa 文件中在您的服務器上可一次性創建 Counters 對象：

＜OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID="MSWC.Counters"＞ ＜/OBJECT＞

　　注冊表項

　　無。

　　注釋

　　在您的站點上僅創建一個 Counters 對象。這一單個 Counters 對象可以創建任意數量的獨立計數器。

　　 注意 對于 Windows® 95 上的 Personal Web Server，已在默認的虛擬目錄下的 global.asa 文件 中指定了一個 Counters 組件。可以通過調用 Counters.Get、Counters.Increment、Counters.Remove 和 Counters.Set 使用組件創建的 Counters 對象，就好象它是內建的一樣。您不可以創建 Counters 對象的其他實例。

　　方法

　　Get 返回計數器的值。

　　Increment 計數器的值加一。

　　Remove 從 counters.txt 文件中刪除計數器。

　　Set 將計數器的值設為一個特定的整數。

　　示例

　　通過將 ID 屬性設置為 Counter，在 global.asa 文件中創建 Counters 對象的實例：

　　＜OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID="MSWC.Counters"＞
　　＜/OBJECT＞

　　然后就可以在某一頁上使用 Counters 對象創建全部所需的計數器：

　　There have been ＜%= Counter.Increment('defaultPageHits') %＞ to this site.

　　然后在另一頁上就可以使用下列方法增加計數器的值：

　　You are visitor number＜%= Counter.Increment('LinksPageHits') %＞ to this page.

　　注意 該組件可從包含 IIS IIS Resource Kit 的 CD 中得到。

　　Get方法

　　Get 方法根據計數器的名稱返回此計數器的當前值。若此計數器不存在，則該方法創建它并將其置為 0。

　　語法

　　Counters.Get(CounterName)

　　參數

　　CounterName

　　包含計數器名稱的字符串。

　　示例

　　用 ＜%= Counters.Get(CounterName) %＞ 可顯示計數器的值。用 ＜% countervar = Counters.Get(CounterName) %＞ 將計數器的值賦給一個變量。

　　下列腳本顯示關于所喜愛的顏色的民意測驗的投票記分。

＜% If colornumber = "1" Then Counters.Increment("greencounter") Else If colornumber = "2" Then Counters.Increment("bluecounter") Else If colornumber = "0" Then Counters.Increment("redcounter") End If End If End If %＞ ＜P＞Current vote tally: ＜P＞red: ＜% =Counters.Get("redcounter") %＞ ＜P＞green: ＜% = Counters.Get("greencounter") %＞ ＜P＞blue: ＜% = Counters.Get("bluecounter") %＞