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