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