ASP教程：第十六篇 其它的ASP常用组件

答案：     
  　　当你用 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
  %>
  
  
  　　 有关 Browser Capabilities 组件的详细信息，请参见动态网站设计十八般武艺 --ASP 篇 (2)。 
  
  　　 二、 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文件写入结束---------
  %>
  
  
   
  　　如果你没有完全看懂上面的这段程序，就请听作者慢慢道来。 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)

上一个：ASP教程：第十七篇 ADO 存取数据库时如何分页显示
下一个：ASP教程：第十五篇 常用的 ASP ActiveX 组件