《asp基础入门篇(DOC格式)》第19章

ies　组件将　User　Agent　映射到在文件　Browscap。ini　中所注明的浏览器　；　并通过　BrowserType　对象的属性来识别客户浏览器。若该对象在　browscap。ini　文件中找不到与该标题匹配的项，那么将使用默认的浏览器属性。若该对象既未找到匹配项且　browscap。ini　文件中也未指定默认的浏览器设置，则它将每个属性都设为字符串　〃UNKNOWN〃。在默认情况下，　browscap。ini　文件被存放在　WINDOWSSYSTEMINERSRV（　如果是　95/98＋PWS4）　或　NTSYSTEM32INERSRV（　如果是　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/plainnn〃；
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　nn〃；
print　FILE　〃姓名〃：FORM｛"name"｝〃；
print　FILE　〃单位〃：FORM｛"pany"｝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（〃bbslog”）
"映射系统物理路径
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：bbslog月份月日。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文件写入结束………………………
％》
如果你没有完全看懂上面的这段程序，就请听作者慢慢道来。　File　Access　组件提供了可用来访问计算机文件系统的方法和属性。我们可以使用　File　Access　组件创建　FileSystemObject　对象，以上程序的第一句就是利用　File　Access　组件创建了一个名为　fs　的对象实例。在对象被创建后，你可以通过它访问文件，该对象没有属性，它唯一的意义就是创建、打开或读写文本文件。　FileSystemObject　对象有两种最常用的方法，一种用来创建文件，另一种是用来打开并读写文本文件。　CreateTextFile　方法获得你指定的文件名并创建该文件，它返回一个　TextStream　对象，你可以用该对象在文件被创建后操作该文件，　CreateTextFile　方法的语法如下　：
Set　objTextStream=FileSystemObject。CreateTextFile（Filename；＇Overwrite＇；＇Unicode＇）
下面作者给大家解释一下　CreateTextFile　方法的参数
1、　Filename　包含文件路径名的字符串，可以是文件的全路径名，包括驱动器名和目录名，或者也可以只是文件名，如果只包含文件名的话，文件将被创建在站点的根目录下。
2、　Overwrite　布尔量，设置成　False　时可以防止　FileSystemObject　对象在创建一个新文件时删除已存在的文件，该参数是可选的，如果没有赋值系统默认为　true，具有相同文件名的已有文件会被删掉。
3、　Unicode　可选参数。布尔值指明是否以　Unicode　或　ASCII　文件格式创建文件。如果以　Unicode　文件格式创建文件，则该值为　True；如果以　ASCII　文件格式创建文件，则该值为　False。如果省略此部分，则假定创建　ASCII　文件。
在前面的程序中我们用　set　ss=fs。CreateTextFile（syslog；ForWriting；false）　来在　log　文件不存在的情况下创建文件并对文件进行写操作，这里的〃ForWriting〃表示写文件。
与　CreateTextFile　方法不同，　OpenTextFile　方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作，和　CreateTextFile　方法一样，　OpenTextFile　方法返回一个　TextStream　对象，使得你可以在文件被打开后操作该文件。　OpenTextFile　方法的语法如下　：
Set　objTextStream=FileSystemObject。OpenTextFile（Filename；＇IOmode＇；＇Create＇；＇Format＇）
参数说明如下　：
1、　Filename　必须的变量，同　CreateTextFile　的　filename
2、　IOmode　可选的常量，取值为下列两个常数之