推薦：讓彈出窗口變得“聽話”一些
在網(wǎng)上沖浪時(shí)進(jìn)入一些網(wǎng)站會(huì)出現(xiàn)彈出窗口。它可能是站長(zhǎng)對(duì)你的親切問候，也可能是網(wǎng)站的重要通告、網(wǎng)站廣告之類的。但用得不好會(huì)讓人產(chǎn)生厭煩心理。如何才能讓彈出窗口發(fā)揮作用，而又不影響瀏覽

當(dāng)你用 ASP 編寫服務(wù)器端應(yīng)用程序時(shí)，必須依靠 ActiveX 組件來強(qiáng)大 Web 應(yīng)用程序的功能，譬如：你需要連接數(shù)據(jù)庫(kù)，對(duì)數(shù)據(jù)庫(kù)進(jìn)行在線操作等等。

一、 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ò)瀏覽器的功能說明的用戶腳本。該組件之所以能識(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 中所注明的瀏覽器，并通過 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，并返回信息：

以下為引用的內(nèi)容： < % 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 %>

二、File Access 組件如果你的網(wǎng)齡足夠大的話，你一定見過“恐龍時(shí)代”的 CGI 留言簿，那是 WEB 留言簿最早的雛形。那時(shí)候在基于 Internet 的 WEB 應(yīng)用程序中連接服務(wù)器后端數(shù)據(jù)庫(kù)還十分困難，因此留言簿中的歷史信息并不是同如今一樣存儲(chǔ)在后端數(shù)據(jù)庫(kù)中。那么這些數(shù)據(jù)究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以將從客戶端接收的信息寫進(jìn)一個(gè)存放在服務(wù)器端的文本文件中，該文件可以是 HTML 文件或 TXT 等文件，這樣就使得程序員們可以不通過同數(shù)據(jù)庫(kù)連接就可以將客戶信息保存下來，但是寫此類 CGI 程序甚是煩瑣，下面列出了一個(gè)此類程序的最簡(jiǎn)單的樣本：

以下為引用的內(nèi)容： #!/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ù)庫(kù)的連接如此便捷，我們又何需再將客戶信息寫在文本文件中呢， ASP 的這個(gè)功能豈不是畫蛇添足？的確，對(duì)于那些我們常見的留言簿、 BBS 等 WEB 應(yīng)用程序而言，無論是在程序的執(zhí)行效率還是易用性上，我們都不可能再用寫文本文件來替代數(shù)據(jù)庫(kù)，但是在某些 WEB 應(yīng)用領(lǐng)域里寫文本文件既是一種規(guī)范也是一種相對(duì)數(shù)據(jù)庫(kù)而較便捷的方法。如果你對(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ā)言記錄的功能。

以下為引用的內(nèi)容： < % Set fs = CreateObject("Scripting.FileSystemObject") ForReading = 1 \\\'以只讀模式打開文件。不能對(duì)此文件進(jìn)行寫操作。 ForAppending = 8 \\\'打開文件并在文件末尾進(jìn)行寫操作。 TristateUseDefault = -2 TristateTrue = -1 TristateFalse = 0/P> \\\'-----------寫入系統(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 \\\'檢測(cè)是否存在文件夾，否則自動(dòng)創(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ā)信時(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 \\\'檢測(cè)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 方法的語(yǔ)法如下：

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 方法的語(yǔ)法如下：

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ù)目的字符串長(zhǎng)度

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 頁(yè)面即可，而不必再辛辛苦苦地一個(gè)一個(gè)地更新 HTML 文件。如果你有興趣，你完全可以用 ASP 的 File Access 組件寫一個(gè)自己的全自動(dòng) HTML 生成器，充分享受維護(hù)網(wǎng)站的超前輕松感。

分享：JS DIV模擬SELECT表單域
最近在做一個(gè)AJAX項(xiàng)目，其中用到很多滿屏層的模擬屏幕鎖定，但有個(gè)很頭痛的東西，就是下拉列表框始終會(huì)顯示在層的上面，為了解決這個(gè)問題才寫了這個(gè)JS類，個(gè)人感覺還好用，在這和大家分享下，有