一、 Browser Capabilities 組件眾所周知，并不是所有瀏覽器都支持現(xiàn)今 Internet 技術(shù)的方方面面。有一些特性，某些瀏覽器支持而另一些瀏覽器卻不支持，如 : ActiveX 控件、影像流、動(dòng)態(tài) HTML、 Flash 以及腳本程序等。使用 ASP 的 Browser Capabilities 組件，就能夠設(shè)計(jì)“智能”的 Web 頁，以適合瀏覽器性能的格式呈現(xiàn)內(nèi)容。 Browser Capabilities 組件能夠創(chuàng)建一個(gè) BrowserType 對(duì)象，該對(duì)象提供帶有客戶端網(wǎng)絡(luò)瀏覽器的功能說明的用戶腳本。該組件之所以能識(shí)別客戶瀏覽器的版本等信息，主要是因?yàn)楫?dāng)客戶瀏覽器向服務(wù)器發(fā)送頁面請(qǐng)求時(shí)，會(huì)自動(dòng)發(fā)送一個(gè) User Agent HTTP 標(biāo)題，該標(biāo)題是一個(gè)聲明瀏覽器及其版本的 ASCII 字符串。 Browser Capabilities 組件將 User Agent 映射到在文件 Browscap.ini 中所注明的瀏覽器 , 并通過 BrowserType 對(duì)象的屬性來識(shí)別客戶瀏覽器。若該對(duì)象在 browscap.ini 文件中找不到與該標(biāo)題匹配的項(xiàng)，那么將使用默認(rèn)的瀏覽器屬性。若該對(duì)象既未找到匹配項(xiàng)且 browscap.ini 文件中也未指定默認(rèn)的瀏覽器設(shè)置，則它將每個(gè)屬性都設(shè)為字符串 "UNKNOWN"。在默認(rèn)情況下， browscap.ini 文件被存放在 WINDOWS\SYSTEM\INERSRV( 如果是 95/98+PWS4) 或 NT\SYSTEM32\INERSRV( 如果是 NT) 目錄中，你可以自己編輯這個(gè)文本文件，以添加自己的屬性或者根據(jù)最新發(fā)布的瀏覽器版本的更新文件來修改該文件。請(qǐng)看以下 checkCookie() 過程，使用 BrowserCap 對(duì)象的 Cookie 屬性來判斷客戶端瀏覽器是否支持 Cookie，并返回信息 :
＜ %
Sub checkCookie()
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
response.write "你的瀏覽器支持 Cookie!"
else
response.write "對(duì)不起，你所使用的瀏覽器不支持 Cookie!"
end if
end Sub
%＞
有關(guān) Browser Capabilities 組件的詳細(xì)信息，請(qǐng)參見動(dòng)態(tài)網(wǎng)站設(shè)計(jì)十八般武藝 --ASP 篇 (2)。
二、 File Access 組件如果你的網(wǎng)齡足夠大的話，你一定見過“恐龍時(shí)代”的 CGI 留言簿，那是 WEB 留言簿最早的雛形。那時(shí)候在基于 Internet 的 WEB 應(yīng)用程序中連接服務(wù)器后端數(shù)據(jù)庫還十分困難，因此留言簿中的歷史信息并不是同如今一樣存儲(chǔ)在后端數(shù)據(jù)庫中。那么這些數(shù)據(jù)究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以將從客戶端接收的信息寫進(jìn)一個(gè)存放在服務(wù)器端的文本文件中，該文件可以是 HTML 文件或 TXT 等文件，這樣就使得程序員們可以不通過同數(shù)據(jù)庫連接就可以將客戶信息保存下來，但是寫此類 CGI 程序甚是煩瑣，下面列出了一個(gè)此類程序的最簡單的樣本 :
#!/usr/local/bin/perl
# Perl Location one your server
print "Content-type: text/plain\n\n";
if($ENV{'REQUEST_METHOD'}eq"POST"){
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}elsif($ENV{'REQUEST_METHOD'}eq"GET"){
$buffer=$ENV{'QUERY_STIRNG'};
}
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;}
$file_name="guestbook.txt";#File name
#具體內(nèi)容
open(FILE,"＞＞$file_name") die "打開文件錯(cuò)誤";
print FILE "記錄時(shí)間":$date \n\n";
print FILE "姓名":$FORM{'name'}";
print FILE "單位":$FORM{'company'}\n";
print FILE "電話":$FORM{'phone'}
print FILE "地址":$FORM{'address'}\n";
print FILE "郵編":$FORM{'zip'}
print FILE "郵件地址":$FORM{'email'}\n";
print FILE "返回意見":$FORM{'content'}
close (FILE)
大家可以感覺到，與 ASP 相比此類 CGI 程序的可讀性和易操作性都較差。那么你一定想問 ASP 是否也能直接在服務(wù)器上寫文件呢？答案當(dāng)然是肯定的。但是聰明的朋友可能會(huì)想到，既然 ASP 同 WEB 數(shù)據(jù)庫的連接如此便捷，我們又何需再將客戶信息寫在文本文件中呢， ASP 的這個(gè)功能豈不是畫蛇添足？的確，對(duì)于那些我們常見的留言簿、 BBS 等 WEB 應(yīng)用程序而言，無論是在程序的執(zhí)行效率還是易用性上，我們都不可能再用寫文本文件來替代數(shù)據(jù)庫，但是在某些 WEB 應(yīng)用領(lǐng)域里寫文本文件既是一種規(guī)范也是一種相對(duì)數(shù)據(jù)庫而較便捷的方法。如果你對(duì) NT 較熟悉的話，你一定知道 NT 具有非常強(qiáng)大的安全機(jī)制，它可以將幾乎所有的服務(wù)器操作和連接的信息自動(dòng)保存在一個(gè)后綴名為 .log 的文件中，其實(shí)這種技術(shù)也完全可以被運(yùn)用在 WEB 上，用來記錄一些的客戶登陸信息。下面的這段程序正是利用 ASP 讀寫文本文件的特性，在一個(gè) WEB BBS 程序中創(chuàng)建自動(dòng)記錄每個(gè)用戶發(fā)言記錄的功能。
＜ %
Set fs = CreateObject("Scripting.FileSystemObject")
ForReading = 1
'以只讀模式打開文件。不能對(duì)此文件進(jìn)行寫操作。
ForAppending = 8
'打開文件并在文件末尾進(jìn)行寫操作。
TristateUseDefault = -2
TristateTrue = -1
TristateFalse = 0
'-----------寫入系統(tǒng)log開始--------
servermap=server.MapPath("\bbs\log\")
'映射系統(tǒng)物理路徑
temp=servermap&"\"year(date)&month(date)&"\"
'獲取系統(tǒng)物理路徑和時(shí)間，并以此作為log文件存放的物理路徑
if Not fs.FolderExists(temp) then
fs.CreateFolder(temp)
end if
'檢測是否存在文件夾，否則自動(dòng)創(chuàng)建
dim syslog
dim tempname
tempname=date
syslog=temptempname&".log"
'文件名為e:\bbs\log\月份\月日.log
li=user&"&"&Now&"&"Request.ServerVariables("REMOTE_ADDR")&"&"tempfile&"&"letter&"&"&title
'log文件記錄的格式為:用戶名&發(fā)信時(shí)間&用戶ip&文件路徑&信區(qū)&信件標(biāo)題
if fs.FileExists(syslog) then
Set ss = fs.OpenTextFile(syslog,ForAppending,true)
else
set ss = fs.CreateTextFile(syslog,ForWriting,false)
end if
'檢測log文件是否存在，如果存在則追加文件內(nèi)容，反之則直接寫文件
ss.WriteLine(li)
ss.Close
'-----------log文件寫入結(jié)束---------
%＞
如果你沒有完全看懂上面的這段程序，就請(qǐng)聽作者慢慢道來。 File Access 組件提供了可用來訪問計(jì)算機(jī)文件系統(tǒng)的方法和屬性。我們可以使用 File Access 組件創(chuàng)建 FileSystemObject 對(duì)象，以上程序的第一句就是利用 File Access 組件創(chuàng)建了一個(gè)名為 fs 的對(duì)象實(shí)例。在對(duì)象被創(chuàng)建后，你可以通過它訪問文件，該對(duì)象沒有屬性，它唯一的意義就是創(chuàng)建、打開或讀寫文本文件。 FileSystemObject 對(duì)象有兩種最常用的方法，一種用來創(chuàng)建文件，另一種是用來打開并讀寫文本文件。 CreateTextFile 方法獲得你指定的文件名并創(chuàng)建該文件，它返回一個(gè) TextStream 對(duì)象，你可以用該對(duì)象在文件被創(chuàng)建后操作該文件， CreateTextFile 方法的語法如下 :
Set objTextStream=FileSystemObject.CreateTextFile(Filename,[Overwrite],[Unicode])
下面作者給大家解釋一下 CreateTextFile 方法的參數(shù)
1、 Filename 包含文件路徑名的字符串，可以是文件的全路徑名，包括驅(qū)動(dòng)器名和目錄名，或者也可以只是文件名，如果只包含文件名的話，文件將被創(chuàng)建在站點(diǎn)的根目錄下。
2、 Overwrite 布爾量，設(shè)置成 False 時(shí)可以防止 FileSystemObject 對(duì)象在創(chuàng)建一個(gè)新文件時(shí)刪除已存在的文件，該參數(shù)是可選的，如果沒有賦值系統(tǒng)默認(rèn)為 true，具有相同文件名的已有文件會(huì)被刪掉。
3、 Unicode 可選參數(shù)。布爾值指明是否以 Unicode 或 ASCII 文件格式創(chuàng)建文件。如果以 Unicode 文件格式創(chuàng)建文件，則該值為 True；如果以 ASCII 文件格式創(chuàng)建文件，則該值為 False。如果省略此部分，則假定創(chuàng)建 ASCII 文件。
在前面的程序中我們用 set ss=fs.CreateTextFile(syslog,ForWriting,false) 來在 log 文件不存在的情況下創(chuàng)建文件并對(duì)文件進(jìn)行寫操作，這里的“ForWriting”表示寫文件。
與 CreateTextFile 方法不同， OpenTextFile 方法用來獲得你指定的文件名并打開該文件，利用它所帶的參數(shù)我們可以對(duì)文件進(jìn)行各種不同的操作，和 CreateTextFile 方法一樣， OpenTextFile 方法返回一個(gè) TextStream 對(duì)象，使得你可以在文件被打開后操作該文件。 OpenTextFile 方法的語法如下 :
Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format])
參數(shù)說明如下 :
1、 Filename 必須的變量，同 CreateTextFile 的 filename
2、 IOmode 可選的常量，取值為下列兩個(gè)常數(shù)之一 ForReading 或 ForAppending，如果 mode 為 1，文件以只讀方式打開，如果為 8，則文件以追加的方式打開。
3、 Create 可選的布爾量，指定如果你想打開的文件不存在是做什么操作，如果其值為 True，當(dāng)文件不存在時(shí)就自動(dòng)創(chuàng)建一個(gè)空的文件。如果為 False，就會(huì)在文件沒找到時(shí)產(chǎn)生一個(gè)出錯(cuò)信息，其默認(rèn)值是 False，建議將其設(shè)為 True，以避免在打開文件時(shí)檢查是否出錯(cuò)。
4、 Format 可選值，可以選擇三種 Tristate 值分別指定文件的格式， -2、 -1、和 0 分別對(duì)應(yīng)于系統(tǒng)缺省、 unicode 和 ASCII。
在打開或創(chuàng)建了文本文件后，就得到一個(gè) TextStream 對(duì)象，該對(duì)象有一個(gè)光標(biāo)，就好象是在字處理程序中的光標(biāo)一樣，指出接下來要敲入的字符將出現(xiàn)的位置，它同時(shí)也指出你要讀取的字符的位置。不能通過 CreatObject 來創(chuàng)建一個(gè) TextStream 對(duì)象，得到 TextStream 對(duì)象的唯一方法是如前所述的用 FileSystemObject 對(duì)象打開一個(gè)存在的文本文件或者創(chuàng)建一個(gè)新的文件。
下面列出了 TextStream 對(duì)象的屬性和方法
TextStream.AtEndOfLine 只讀布爾量，當(dāng)光標(biāo)在當(dāng)前行的末尾時(shí)，其值為 true，反之則為 false
TextStream.AtEndOfStream 只讀布爾量，如果光標(biāo)在流的末尾時(shí)，其值為 true，否則為 false
TextStream.Column 只讀的整數(shù)，統(tǒng)計(jì)從行首到當(dāng)前光標(biāo)位置之間的字符數(shù)
TextStream.Line 只讀的整數(shù)，指明光標(biāo)所在行在整個(gè)文件中的行號(hào)
TextStream.close() 關(guān)閉流以及對(duì)應(yīng)的文本文件
TextStream.read(Num) 指定從光標(biāo)的當(dāng)前位置開始從文本文件中讀取一定數(shù)目的字符
TextStream.readall() 將整個(gè)流讀入一個(gè)字符串中
TextStream.readline() 將一整行的字符讀入一個(gè)字符串中
TextStream.write(text) 將一個(gè)字符串寫入流中
TextStream.writeline() 將一個(gè)文本串寫入流中
TextStream.skip(Num) 在流中，將光標(biāo)的位置移動(dòng)一定數(shù)目的字符串長度
TextStream.skiplines() 在流中，將光標(biāo)移動(dòng)一定數(shù)目的行數(shù)
TextStream.writeblank 將一定數(shù)目的空行寫入流中
lines(num)
相信大家現(xiàn)在已經(jīng)可以感覺到 ASP File Access 組件的強(qiáng)大功能了，其實(shí)它遠(yuǎn)不僅僅可以寫一些 log 文件，通過它你甚至可以毫不費(fèi)力的遠(yuǎn)程自動(dòng)更新你的網(wǎng)站，你只要把固定格式的文本文件傳送到遠(yuǎn)端的服務(wù)器上，通過 File Access 組件讀取文件，并自動(dòng)生成全新 HTML 頁面即可，而不必再辛辛苦苦地一個(gè)一個(gè)地更新 HTML 文件。如果你有興趣，你完全可以用 ASP 的 File Access 組件寫一個(gè)自己的全自動(dòng) HTML 生成器，充分享受維護(hù)網(wǎng)站的超前輕松感。
