|
當你用 ASP 編寫服務器端應用程序時，必須依靠 ActiveX 組件來強大 Web 應用程序的功能，譬如：你需要連接數據庫，對數據庫進行在線操作等等。
上兩篇中作者給大家介紹了 AD Rotator、 Database Access 等組件的使用方法，今天我們接著來看看其它的一些 ASP 常用組件。
一、 Browser Capabilities 組件眾所周知，并不是所有瀏覽器都支持現今 Internet 技術的方方面面。有一些特性，某些瀏覽器支持而另一些瀏覽器卻不支持，如 : ActiveX 控件、影像流、動態 HTML、 Flash 以及腳本程序等。使用 ASP 的 Browser Capabilities 組件，就能夠設計“智能”的 Web 頁，以適合瀏覽器性能的格式呈現內容。 Browser Capabilities 組件能夠創建一個 BrowserType 對象，該對象提供帶有客戶端網絡瀏覽器的功能說明的用戶腳本。該組件之所以能識別客戶瀏覽器的版本等信息，主要是因為當客戶瀏覽器向服務器發送頁面請求時，會自動發送一個 User Agent HTTP 標題，該標題是一個聲明瀏覽器及其版本的 ASCII 字符串。 Browser Capabilities 組件將 User Agent 映射到在文件 Browscap.ini 中所注明的瀏覽器 , 并通過 BrowserType 對象的屬性來識別客戶瀏覽器。若該對象在 browscap.ini 文件中找不到與該標題匹配的項，那么將使用默認的瀏覽器屬性。若該對象既未找到匹配項且 browscap.ini 文件中也未指定默認的瀏覽器設置，則它將每個屬性都設為字符串 "UNKNOWN"。在默認情況下， browscap.ini 文件被存放在 WINDOWS\\\\SYSTEM\\\\INERSRV( 如果是 95/98+PWS4) 或 NT\\\\SYSTEM32\\\\INERSRV( 如果是 NT) 目錄中，你可以自己編輯這個文本文件，以添加自己的屬性或者根據最新發布的瀏覽器版本的更新文件來修改該文件。請看以下 checkCookie() 過程，使用 BrowserCap 對象的 Cookie 屬性來判斷客戶端瀏覽器是否支持 Cookie，并返回信息 :
< %
Sub checkCookie()
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
response.write "你的瀏覽器支持 Cookie!"
else
response.write "對不起，你所使用的瀏覽器不支持 Cookie!"
end if
end Sub
%>
二、 File Access 組件如果你的網齡足夠大的話，你一定見過“恐龍時代”的 CGI 留言簿，那是 WEB 留言簿最早的雛形。那時候在基于 Internet 的 WEB 應用程序中連接服務器后端數據庫還十分困難，因此留言簿中的歷史信息并不是同如今一樣存儲在后端數據庫中。那么這些數據究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以將從客戶端接收的信息寫進一個存放在服務器端的文本文件中，該文件可以是 HTML 文件或 TXT 等文件，這樣就使得程序員們可以不通過同數據庫連接就可以將客戶信息保存下來，但是寫此類 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
#具體內容
open(FILE,">>$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 是否也能直接在服務器上寫文件呢？答案當然是肯定的。但是聰明的朋友可能會想到，既然 ASP 同 WEB 數據庫的連接如此便捷，我們又何需再將客戶信息寫在文本文件中呢， ASP 的這個功能豈不是畫蛇添足？的確，對于那些我們常見的留言簿、 BBS 等 WEB 應用程序而言，無論是在程序的執行效率還是易用性上，我們都不可能再用寫文本文件來替代數據庫，但是在某些 WEB 應用領域里寫文本文件既是一種規范也是一種相對數據庫而較便捷的方法。如果你對 NT 較熟悉的話，你一定知道 NT 具有非常強大的安全機制，它可以將幾乎所有的服務器操作和連接的信息自動保存在一個后綴名為 .log 的文件中，其實這種技術也完全可以被運用在 WEB 上，用來記錄一些的客戶登陸信息。下面的這段程序正是利用 ASP 讀寫文本文件的特性，在一個 WEB BBS 程序中創建自動記錄每個用戶發言記錄的功能。
< %
Set fs = CreateObject("Scripting.FileSystemObject")
ForReading = 1
\\\'以只讀模式打開文件。不能對此文件進行寫操作。
ForAppending = 8
\\\'打開文件并在文件末尾進行寫操作。
TristateUseDefault = -2
TristateTrue = -1
TristateFalse = 0
\\\'-----------寫入系統log開始--------
servermap=server.MapPath("\\\\bbs\\\\log\\\\")
\\\'映射系統物理路徑
temp=servermap&"\\\\"&year(date)&month(date)&"\\\\"
\\\'獲取系統物理路徑和時間，并以此作為log文件存放的物理路徑
if Not fs.FolderExists(temp) then
fs.CreateFolder(temp)
end if
\\\'檢測是否存在文件夾，否則自動創建
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文件記錄的格式為:用戶名&發信時間&用戶ip&文件路徑&信區&信件標題
if fs.FileExists(syslog) then
Set ss = fs.OpenTextFile(syslog,ForAppending,true)
else
set ss = fs.CreateTextFile(syslog,ForWriting,false)
end if
\\\'檢測log文件是否存在，如果存在則追加文件內容，反之則直接寫文件
ss.WriteLine(li)
ss.Close
\\\'-----------log文件寫入結束---------
%>
[1] [2] 下一頁
|
