ASP 3.0高級(jí)編程（二十五）

發(fā)布時(shí)間：2008-07-09 閱讀數(shù)：次來(lái)源：網(wǎng)樂原科技

6.2.4 Counters組件
Counters組件能用于創(chuàng)建、存儲(chǔ)、遞增和檢索每個(gè)計(jì)數(shù)器的值。不要把它和本章后面將要介紹的Page Counter組件混淆，Counters組件能用于支持任何種類數(shù)據(jù)的統(tǒng)計(jì)。
一個(gè)計(jì)數(shù)器含有一個(gè)整數(shù)值，能通過(guò)Counters組件的方法進(jìn)行運(yùn)算。使用Set方法設(shè)置計(jì)數(shù)器的指定值，用Get方法檢索計(jì)數(shù)器中的值，使用Increment方法使計(jì)數(shù)器的值加1，使用Remove方法刪除一個(gè)計(jì)數(shù)器。所有的計(jì)數(shù)器的值存儲(chǔ)在一個(gè)名為Counters.txt的文本文件中，可在Counters.dll組件所在的目錄中找到該文件。
1． Counters組件的成員
Counters組件提供了用于維護(hù)每個(gè)計(jì)數(shù)器組件中數(shù)值的四個(gè)方法，如表6-4所示：
表6-4 Counters組件方法及說(shuō)明
方法
說(shuō) 明

Get(counter_name)
返回指定計(jì)數(shù)器的當(dāng)前值，如果此計(jì)數(shù)器先前沒有創(chuàng)建，道德創(chuàng)建并設(shè)置成0，其返回值為0

Increment(counter_name)
增加指定計(jì)數(shù)器的當(dāng)前值，如果此計(jì)數(shù)器先前沒有創(chuàng)建，首先創(chuàng)建并設(shè)置為1

Remove(counter_name)
刪除指定的計(jì)數(shù)器

Ser(counter_name,value)
把指定計(jì)數(shù)器的值設(shè)置成參數(shù)value提供的整數(shù)值，如果此計(jì)數(shù)器先前沒有創(chuàng)建，先創(chuàng)建并設(shè)定為指定值

2．使用Counters組件
由于Counters.txt文件僅有一個(gè)所有組件實(shí)例都能訪問(wèn)的拷貝。因此，應(yīng)該只創(chuàng)建單個(gè)的Counters組件實(shí)例，并且使之對(duì)Web網(wǎng)站的所有頁(yè)面都是可用的，實(shí)現(xiàn)這一點(diǎn)的常用方法是在缺省Web站點(diǎn)根目錄下的global.asa文件中創(chuàng)建一個(gè)應(yīng)用程序范圍的實(shí)例。
采用下面程序：

<OBJECT ID="objCounters" RUNAT="Server" SCOPE="Application"
PROGID="MSWC.Counters">
</OBJECT>
可以使用Counters組件對(duì)需要完成的任務(wù)創(chuàng)建一個(gè)新的計(jì)數(shù)器。在下面的程序中，給出了有三項(xiàng)選擇的調(diào)查問(wèn)題，并對(duì)每一種選擇的回答次數(shù)進(jìn)行了統(tǒng)計(jì)，當(dāng)使用者提交包含三項(xiàng)選擇的窗體后，將調(diào)入這個(gè)頁(yè)面。假設(shè)選項(xiàng)通過(guò)點(diǎn)擊SUBMIT按鈕的cmdYes、cmdNo和cmdMaybe來(lái)選擇，其對(duì)應(yīng)值分別是“是”、“否”和“可能”。
<% 'in VBScript”
If Request.Form("cmdYes") = "Yes" Then objCounter.Increment("Response_Yes")
If Request.Form("cmdNo") = "No" Then objCounter.Increment("Response_No")
If Request.Form("cmdMaybe") = "Maybe" Then
objCounter.Increment("Response_Maybe")
%>
如果這是第一次收到一個(gè)指定的響應(yīng)，程序?qū)?chuàng)建一個(gè)新的計(jì)數(shù)器并自動(dòng)初始化為1。
計(jì)數(shù)器在使用范圍上沒有限制，因?yàn)镃ounters對(duì)象創(chuàng)建在文件global.asa中，這意味著在虛擬應(yīng)用程序或Web網(wǎng)站中創(chuàng)建的任何一個(gè)頁(yè)面中都是可用的，所以這個(gè)“調(diào)查計(jì)數(shù)器”可用在應(yīng)用程序的任何頁(yè)面上，記住單個(gè)的Counters對(duì)象能提供所需的許多獨(dú)立計(jì)數(shù)器，不需要?jiǎng)?chuàng)建很多Counters對(duì)象實(shí)例。
在前面的Ad Rotator組件頁(yè)面示例中，研究了如何使用Counters組件存儲(chǔ)每個(gè)廣告主的點(diǎn)擊次數(shù)，也可以在頁(yè)面中使用Counters組件的Get方法顯示當(dāng)前值。
Wrox Press: <B><% = objCounters.Get("wrox") %></B><BR>
Stonebroom: <B><% = objCounters.Get("stonebroom") %></B><BR>
Xtras: <B><% = objCounters.Get("xtras") %></B><BR>
ComponentSource: <B><% = objCounters.Get("compsrc") %></B><BR>
Four CDs: <B><% = objCounters.Get("fourcds") %></B><BR>
Lunar: <B><% = objCounters.Get("lunar") %></B><BR>
每次加載頁(yè)面時(shí)，都自動(dòng)更新計(jì)數(shù)器的當(dāng)前值。然而頁(yè)面也包含有一些控件能調(diào)用Counters組件的其他兩個(gè)方法，即刪除一個(gè)計(jì)數(shù)器（相當(dāng)于將其設(shè)置為0）和將計(jì)數(shù)器設(shè)置成一個(gè)指定數(shù)值，如圖6-6所示：

圖6-6 Counters組件的使用演示
這些控件在一個(gè)<FORM>上，點(diǎn)擊任何一個(gè)小的空白按鈕時(shí)，此窗體便提交給同一個(gè)頁(yè)面，方法與本章中的所有頁(yè)面所用的幾乎一樣。下面的程序是為Remove方法創(chuàng)建控件的HTML代碼。
<FORM ACTION="<% = Request.ServerVariables("SCRIPT_NAME") %>" METHOD="POST">

<INPUT TYPE="SUBMIT" NAME="cmdRemove" VALUE=" ">
Counter.Remove ("
<SELECT NAME="lstRemove" SIZE="1">
<OPTION VALUE="wrox">Wrox Press</OPTION>
<OPTION VALUE="stonebroom">Stonebroom</OPTION>
<OPTION VALUE="xtras">Xtras</OPTION>
<OPTION VALUE="compsrc">ComponentSource</OPTION>
<OPTION VALUE="fourcds">Four CDs</OPTION>
<OPTION VALUE="lunar">Lunar</OPTION>
</SELECT> ")<P>
…
</FORM>
當(dāng)載入頁(yè)面時(shí)，通過(guò)檢查Request.Form集合查看點(diǎn)擊的按鈕，如果找到了某個(gè)按鈕，將運(yùn)行代碼的相應(yīng)部分。在點(diǎn)擊Remove按鈕的情況下，相應(yīng)的代碼是：
If Len(Request.Form("cmdRemove")) Then
strCounterName = Request.Form("lstRemove") 'get the counter name
objCounters.Remove strCounterName
Response.Write "Removed counter '<B>" & strCounterName & "</B>'.<P>"
End If
對(duì)于Set方法，情況類似，但不僅僅需要從文本框中讀取新值，而且在調(diào)用Set方法之前，檢查文本框中的值是否是有效值。
If Len(Request.Form("cmdSet")) Then
strCounterName = Request.Form("lstSet") 'get the counter name
strNewValue = Request.Form("txtSet") 'get the new value
If IsNumeric(strNewValue) Then 'if it can be converted to a number
intNewValue = CInt(strNewValue) '… then convert it
objCounters.Set strCounterName, intNewValue
Response.Write "Set counter '<B>" & strCounterName & _
"</B>' to <B>" & strNewValue & "</B>.<P>"
Else
Response.Write "<B>'" & strNewValue & "</B>' is not a valid number.<P>"
End If
End If
使用頁(yè)面中的按鈕調(diào)用Counters對(duì)象的方法時(shí)，重新載入時(shí)會(huì)在頁(yè)面頂端看到一段信息和計(jì)數(shù)器中的新值，如圖6-7所示：

圖6-7 調(diào)用Counters對(duì)象的方法重新載入頁(yè)面

6.2.5 Browser Capabilities組件
創(chuàng)建各種Web網(wǎng)頁(yè)時(shí)面臨的問(wèn)題之一是，不僅僅使用ASP技術(shù)創(chuàng)建動(dòng)態(tài)網(wǎng)頁(yè)，而且能夠使用HTML元素和其他客戶端技術(shù)，像Java Applets、ActiveX控件以及最近出現(xiàn)的HTML元素。需要意識(shí)到的是，一些訪問(wèn)者若使用了恰好不支持它們的瀏覽器，那么對(duì)于精心編制的網(wǎng)頁(yè)，訪問(wèn)者看到的可能是文本、圖像的雜亂組合，甚至更糟糕的還有相應(yīng)工作的腳本程序代碼。
這里不討論應(yīng)當(dāng)如何設(shè)計(jì)支持各種不同瀏覽器的網(wǎng)頁(yè)（如果想了解這方面更多的內(nèi)容，可以查閱Alex Homer編寫的，Wrox出版的《Professional ASP Techniques for Webmasters》一書，書號(hào)是ISN 1-861001-79-7）。然而，確實(shí)要引用某個(gè)頁(yè)面時(shí)，ASP和IIS提供鐵Browser Capabilities服務(wù)器組件可以用來(lái)檢測(cè)瀏覽器所支持的相關(guān)特征。
用戶請(qǐng)求來(lái)自服務(wù)器的頁(yè)面時(shí)，瀏覽器傳送的HTTP報(bào)頭包含了正在使用的瀏覽器的細(xì)節(jié)。在HTTP-speak（它被稱為用戶代理字符串）中，定義了瀏覽器的名稱、版本、操作系統(tǒng)及其兼容性。Browser Capabilities組件在自己的配置文件中查找這個(gè)字符串，并采用許多與瀏覽器特征等同的特性。因此，在網(wǎng)頁(yè)運(yùn)行的任何時(shí)候，Browser Capabilities組件能夠提供支持或不支持某個(gè)特性的細(xì)節(jié)。
在ASP 3.0版本中，Browser Capabilities組件增加了一個(gè)新特性。在ASP頁(yè)面中包含METADATA指令，指示組件從瀏覽器中取出一個(gè)cookie，并把其包含的任意值添加到當(dāng)前的組件實(shí)例中作為新屬性。這提供了一種方法，從瀏覽器收集更多的用戶特定的信息，而不僅僅是通常從browscap.ini文件中得到的瀏覽器指定的信息。了解了現(xiàn)有的瀏覽器檢測(cè)特性如何工作后，再回頭介紹新的METADATA技術(shù)。
1． browscap.ini文件
Browser Capabilities組件使用一個(gè)基于服務(wù)器的browscap.ini文本文件，該文本文件必須和browscap.dll組件文件處于同一目錄中。browscap.ini文件包含大多數(shù)關(guān)于以前和當(dāng)前瀏覽器的信息，并且當(dāng)瀏覽器的用戶代理字符串與文件中的指定字符串都不匹配時(shí)，將使用browscap.ini文件中的缺省部分。所以添加關(guān)于瀏覽器的新信息或者更新現(xiàn)有的信息，只需編輯browscap.ini文件。
首先看一下browscap.ini文件的格式，該文件中的所有條目都是可選的。擔(dān)包括缺省部分是非常重要的。如果使用的瀏覽器與browscap.ini文件中的任何一個(gè)都不匹配，并且沒有指定缺省瀏覽器設(shè)置，那么所有的特性將設(shè)置成“UNKNOWN”。
下面是browscap.ini文件的格式：
; we can add comments anywhere, prefaced by a semicolon like this

; entry for a specific browser
[HTTPUserAgentHeader]
parent = browserDefinition
property1 = value1
property2 = value 2
…

[Default Browser capability Settings]
defaultProperty1 = defaultValue1
defaultProperty2 = defaultValue2
…
[HTTPUserAgentHeader]行定義了特定瀏覽器的起始段，并且Parent行指明了包含瀏覽器更多信息的另外一個(gè)定義。下面的各行定義了我們想通過(guò)Browser Capabilities組件可獲得的屬性以及對(duì)于該瀏覽器的相應(yīng)值。如果瀏覽器沒有列在所屬段中，或者盡管列出了但沒有列出所有的屬性，將采用Default部分所列出的屬性和相應(yīng)的值。
例如，這個(gè)文件包含以[IE5.0]開頭的段，這個(gè)段包含有Internet Explorer 5.0的相應(yīng)值，這里沒有parent行，顯示的（除了那些在Default部分定義的）僅是我們顯示定義的屬性。
[IE 5.0]
browser=IE
Version=5.0
majorver=5
minorver=0
frames=TRUE
tables=TRUE
cookies=TRUE
backgroundsounds=TRUE
vbscript=TRUE
javascript=TRUE
javaapplets=TRUE
ActiveXcontrols=TRUE
Win16=False
beta=False
AK=false
SK=false
AOL=false
Update=False
此段描述不和任何一個(gè)瀏覽器相匹配，因?yàn)?，HTTPUserAgentHeader行僅僅是[IE 5.0]。然而，如果把[IE 5.0]作為父代，可以對(duì)瀏覽器添加針對(duì)IE5的定義：
[Mozilla/4.0 (compatible; MSIE 5.*; Windows 95*)]
parent=IE 5.0
version=4.0
minorver=0
platform=Win95
這樣我們把[IE 5.0]指定為瀏覽器的父代，則顯式提供的屬性將代替或增加給父代定義的相應(yīng)的值，但這里也假定任何其他的屬性值沒有顯式地列在其所屬段中。
為了識(shí)別非常相似的瀏覽器版本，在HTTPUserAgentHeader行可以使用星號(hào)通配符，如：
[Mozilla/4.0 (compatible; MSIE 5.*; Windows 95*)]
將和下面的語(yǔ)句相匹配：
[Mozilla/4.0 (compatible; MSIE 5.0; Windows95)]
[Mozilla/4.0 (compatible; MSIE 5.5; Windows 95 AOL)]
…
然而，只有在瀏覽器發(fā)送的用戶代理字符串和不含“*”的HTTPUserAgentHeader不完全匹配的情況下，才采用通配符匹配。也只有當(dāng)這種測(cè)試失敗了，字符串才會(huì)企圖和含通配符的HTTPUserAgentHeader相匹配，并且使用文件中所找到的確實(shí)匹配的第一個(gè)值。
最后，加上缺省瀏覽器段：
[Default Browser Capability Settings]
browser=Default
Version=0.0
majorver=#0
minorver=#0
frames=False
tables=True
cookies=False
backgroundsounds=False
vbscript=False
javascript=False
javaapplets=False
ActiveXcontrols=False
…
這里假設(shè)一種最壞的情況，瀏覽器幾乎什么都不支持。應(yīng)在此基礎(chǔ)上定義我們實(shí)際想要使用的值。但是，如果定義了一些缺省值為True，在一個(gè)UNIX終端上使用純文本瀏覽器瀏覽頁(yè)面時(shí)，可能達(dá)不到我們所希望的效果。
維護(hù)browscap.ini文件
關(guān)閉瀏覽器時(shí)，更新Browscap.ini文件中相應(yīng)值使其與瀏覽器的特性保持一致，增加一些舊的或我們關(guān)注的專用的值顯然也是非常重要的。為了給用戶提供方便，通常可從Microsoft Web網(wǎng)站上下載支持ASP的一個(gè)相當(dāng)全面的browscap.ini版本或其升級(jí)版本，而CrScape Inc公司提供的browscap.ini版本經(jīng)常比Microsoft Web網(wǎng)站上的版本更新一些。
可以在http://www.cyscape.com/browscap/上找到最新的browscap.ini版本，并且訂閱一份郵件列表就可自動(dòng)地收到該文件的最新版本。CrScape公司也制作一個(gè)與Microsoft Browser Capabilities組件競(jìng)爭(zhēng)的組件，稱為browserHank（本章后面將介紹），新版的browscap.ini文件也可從http://www.asptracker.com上獲得。
2．使用Browser Capabilities組件
我們已經(jīng)掌握了browscap.ini文件如何提供包含有關(guān)特定瀏覽器信息的可定制屬性，下面介紹如何使用Browser Capabilities組件。相對(duì)而言，使用Browser Capabilities組件簡(jiǎn)單一些，下面創(chuàng)建組件的一個(gè)實(shí)例并說(shuō)明其屬性。
<% 'In VBScript:
Set objBCap = Server.CreateObject("MSWC.BrowserType")
blnVBScriptOK = objBCap.vbscript 'save the result in a variable
If blnVBScriptOK Then
Response.Write "This browser supports VBScript"
Else
Response.Write "This browser doesn't support VBScript"
End If
%>
上面代碼程序檢查瀏覽器是否支持VBScript并顯示一個(gè)信息，可以想象這段代碼根據(jù)瀏覽器給出的不同響應(yīng)的網(wǎng)頁(yè)，引導(dǎo)用戶到不同的頁(yè)面。
當(dāng)然，使用Browser Capabilities組件的屬性可做比這更復(fù)雜的工作，一個(gè)讓人喜愛的技術(shù)是根據(jù)瀏覽器支持的屬性為網(wǎng)站載入不同的索引網(wǎng)頁(yè)。如果網(wǎng)站有一套使用幀（frame）的頁(yè)面和一套不使用幀的頁(yè)面，當(dāng)用戶第一次訪問(wèn)網(wǎng)站時(shí)，能夠檢查瀏覽器顯示幀的能力，并將其重新定位到合適的索引網(wǎng)頁(yè)上。
3．使用Browser Capabilities的cookie特性
新版Browser Capabilities組件增加的特性之一是提供了一種方式,以獲得更多的有關(guān)調(diào)用網(wǎng)頁(yè)的特定客戶的信息.
browscap.ini文件的信息只適用于特定類型的所有瀏覽器，所以組件僅能報(bào)告所安裝的瀏覽器的共同特性，例如能知道瀏覽器是否支持cookie，但不能知道用戶是否已在瀏覽器“選項(xiàng)”對(duì)話框中關(guān)閉了cookie。
同樣，使用復(fù)雜的頁(yè)面設(shè)計(jì)時(shí)，最好了解用戶使用的連接類型，以便能選擇大小適當(dāng)?shù)膱D像文件傳送給他們，例如用戶通過(guò)局域網(wǎng)（而不是調(diào)制解調(diào)器）連接，則允許我們提供更加豐富的環(huán)境。如果能知道用戶采用的屏幕分辨率、瀏覽器所用的語(yǔ)言、操作系統(tǒng)和處理器類型等參數(shù)，對(duì)于我們的設(shè)計(jì)是有幫助的。
IE 5通過(guò)使用缺省行為提供這種信息，這是客戶端網(wǎng)頁(yè)的一個(gè)元素。IE 5中的行為是新增加的，其他的瀏覽器不支持，這是一種對(duì)網(wǎng)頁(yè)中的元素添加特殊功能的方法，通過(guò)STYLE屬性（或CSS風(fēng)格表項(xiàng)）和元素聯(lián)系起來(lái)。特別是，IE 5提供的clientCaps行為能用于提供有關(guān)客戶機(jī)和瀏覽器設(shè)置以及當(dāng)前選項(xiàng)的信息。
通過(guò)創(chuàng)建一種元素和與之相連的clientCaps行為，能通過(guò)該元素查詢到有關(guān)客戶的信息。下列頁(yè)面來(lái)自我們提供的示例文件（browscap_cookie.htm）正是這樣做的。它首先定義了應(yīng)用于<IE:clientcaps>類型的所有元素的包含clientCaps行為的風(fēng)格。這是XML語(yǔ)法，在<HTML>標(biāo)記的XLMNS屬生中使用為當(dāng)前網(wǎng)頁(yè)定義的名稱空間。
然而，頁(yè)面browscap_cookie.htm從應(yīng)用clientCaps行為的元素得到一系列值，并且建立一個(gè)包含這些值的cookie，最后，把這個(gè)cookie分配給文檔的cookie屬性，以便有對(duì)這個(gè)特定服務(wù)器目錄的頁(yè)面請(qǐng)求時(shí)，將它傳送給服務(wù)器。
<HTML XMLNS:IE>
<HEAD>
<STYLE>
IE\:clientcaps {behavior:url(#default#clientcaps)}
</STYLE>
</HEAD>
<BODY ONLOAD="createCookie();">
<IE:clientcaps ID="objCCaps" />

function stopAllErrors() {
return true; // prevent display of any errors
}

function createCookie() {
window.onerror = stopAllErrors;
var strCookie = new String();
strCookie = 'width=' + objCCaps.width
+ '&height=' + objCCaps.height
+ '&availWidth=' + objCCaps.availWidth
+ '&availHeight=' + objCCaps.availHeight
+ '&bufferDepth=' + objCCaps.bufferDepth
+ '&colorDepth=' + objCCaps.colorDepth
+ '&javaEnabled=' + objCCaps.javaEnabled
+ '&cookieEnabled=' + objCCaps.cookieEnabled
+ '&connectionType=' + objCCaps.connectionType
+ '&platform=' + objCCaps.platform
+ '&cpuClass=' + objCCaps.cpuClass
+ '&systemLanguage=' + objCCaps.systemLanguage
+ '&userLanguage=' + objCCaps.userLanguage;
document.cookie = 'BrowsCap=' + strCookie;
}
</SCRIPT>

</BODY>
</HTML>
為了使用這個(gè)cookie，只需把特定的METADATA指令插入到ASP頁(yè)面中。如下所示：

現(xiàn)在，運(yùn)行這個(gè)ASP網(wǎng)頁(yè)時(shí)，會(huì)自動(dòng)把頁(yè)面browscap_cookie.htm發(fā)送給客戶機(jī)，客戶機(jī)便運(yùn)行這個(gè)行為特性，然后返回cookie，隨后Browser Capabilities組件把cookie的內(nèi)容添加到組件實(shí)例的可用屬性的列表中，查詢方法與查詢browscap.ini文件創(chuàng)建的屬性所用的方法相同。
width: <B><% = objBCap.width %></B><BR>
height: <B><% = objBCap.height %></B><BR>
…
Browser Capabilities示例網(wǎng)頁(yè)顯示兩類系列數(shù)值，一類是從由browscap.ini文件決定的屬性中收集的數(shù)據(jù)，另一類來(lái)自客戶端cookie頁(yè)面。當(dāng)然，不限于僅僅收集來(lái)自客戶端頁(yè)面中的clientCaps行為的值，使用動(dòng)態(tài)HTML技術(shù)可以查詢?yōu)g覽器的任何屬性或者是像navigator.appName這樣的傳統(tǒng)對(duì)象屬性。Browser Capabilities組件示例頁(yè)面如圖6-8所示：
圖6-8 Browser Capabilities組件示例頁(yè)面