ASP--ActiveX 组件

 ASP教程-ActiveX 组件  
  
 
 

 
　　 当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作等等，本文从本篇开始将陆续给大家介绍 ASP ActiveX 组件的使用方法。

　　 从今天开始我们将正式学习 ASP 的精华部分 --ActiveX 组件。事实上，当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作，亦或你需要一个 WEB 广告交换程序，所有这一切你都必须通过调用 ASP 内建的 ActiveX 组件或自己编写所需的组件来完成。

　　 那么，究竟什么是 ActiveX 组件呢？它又是如何运作的呢？其实 ActiveX 组件是一个存在于 WEB 服务器上的文件，该文件包含执行某项或一组任务的代码，组件可以执行公用任务，这样就不必自己去创建执行这些任务的代码。例如，股票行情收报机组件可以在 Web 页上显示最新的股票报价。当你在 WEB 服务器上安装完 ASP 环境后，就可以直接使用它自带的几个常用组件，如 Database Access 组件。当然你也可以从第三方开发者处获得可选的组件 , 也可以编写自己的组件。你可以利用组件作为脚本和基于 Web 应用程序的基本构造块，只要知道如何访问组件提供的对象，即使你是位编写脚本的新手，也可以在不了解组件运作方式的情况下编写 ASP 程序。总而言之， ActiveX 组件使您不用学习复杂的编程就能够写出强大的 WEB 服务器端脚本。如果您是位 Web 应用程序的开发者，可以使用任何支持组件对象模型（COM）的语言来编写组件，如， C、 C++、 Java 或 Visual Basic。如果你熟悉 COM 编程， ActiveX 组件就是 Automation 服务器。但是要在 Web 服务器上运行， ActiveX 组件不能有图形用户接口元素，如 Visual Basic 的 MsgBox 函数。组件是可以重复使用的。在 Web 服务器上安装了组件后，就可以从 ASP 脚本、 ISAPI 应用程序、服务器上的其他组件或由另一种 COM 兼容语言编写的程序中调用该组件。

　　 那么我们在 ASP 中应该如何调用组件呢？如前所述，组件是包含在动态链接库 (.dll) 或可执行文件 (.exe) 中的可执行代码。组件可以提供一个或多个对象以及对象的方法和属性。要使用组件提供的对象，我们首先要创建对象的实例并将这个新的实例分配变量名。使用 ASP 的 Server.CreateObject 方法可以创建对象的实例。接着，使用脚本语言的变量分配指令为对象实例命名。创建对象实例时，必须提供实例的注册名称“PROGID”。如下要创建一个 Ad Rotator 对象的实例 :
　　 < % Set MyAds = Server.CreateObject("MSWC.AdRotator") %>

　　 我们必须使用 ASP 的 Server.CreateObject 方法来创建对象实例，否者 ASP 无法跟踪脚本语言中对象的使用。

　　 使用 HTML< OBJECT> 标签同样可以创建对象实例，但必须为 RUNAT 属性提供服务器值，同时也要为将在脚本语言中使用的变量名提供 ID 属性组。使用注册名 (PROGID) 或注册号码 (CLSID) 可以识别该对象。下面的例子使用注册名 (PROGID) 创建 Ad Rotator 对象的实例：
　　 < OBJECT RUNAT=Server ID=MyAd PROGID="MSWC.AdRotator">< /OBJECT>

　　 下面列出了 ASP 可安装的常用组件。

Ad Rotator 创建一个 AdRotator 对象，该对象可按指定计划在同一页上自动轮换显示广告。 
Browser Capabilities 创建一个 BrowserType 对象，该对象决定访问 Web 站点的每个浏览器的性能、类型及版本。 
Database Access 提供用 ActiveX Data Objects (ADO) 对数据库的访问。 
Content Linking 创建一个 NextLink 对象，该对象可生成 Web 页内容列表，并象书一样将各页顺续连接。 
File Access 组件  提供文件的输入输出访问。 
Collaboration Data Objects for NTS 组件  可以快速、简便的在 Web 页上添加收发邮件功能。该组件只适用于 Internet Information Server for Windows NT® Server 。 
MyInfo 创建一个 MyInfo 对象，该对象追踪个人信息，例如站点管理员的姓名、地址及显示选择。 
Counters 创建一个 Counters 对象，该对象可以创建、保存、增加或检索任意数量的独立计数器。 
Content Rotator 自动翻转 Web 主页上的 HTML 内容字符串。 
Page Counter 记录并显示 Web 页被打开的次数。 

　　 现在 WEB 广告几乎充斥了整个网络，那么究竟如何在你自己的网站上建立一个符合广告领域标准功能的广告系统呢？答案是利用 ASP AD Rotator 组件 ! 它允许在每次访问 ASP 页面时在页面上显示新的广告，并且提供了很强的功能，例如 : 旋转显示在页面上的广告图象的能力、跟踪特定广告显示次数的能力以及跟踪客户端在广告上单击次数的能力。 AD Rotator 组件的工作是通过读取 AD Rotator 计划文件来完成的，该文件包括与要显示的图象文件的地点有关的信息以及每个图象的不同属性，下面就是一个标准的 AD Rotator 计划文件 :
---ADROT.TXT---
REDIRECT /scripts/adredir.asp
WIDTH 440
HEIGHT 60
BORDER 1
*
ads/homepage/chinabyte.gif
http://www.chinabyte.com/
Check out the IT site
2
ads/homepage/gamichlg.gif
-
Sponsored by Flyteworks
3
ads/homepage/asp.gif
http:// www.aspallian.com/
Good ASP site on net
3
ads/homepage/spranklg.gif
http://www.clocktower.com/
The #1 Sports site on the net
2

　　 该段代码的前四行包含广告的全局设置。 Redirect 行指出广告将成为其热连接的 URL, 注意这里不是为广告本身指定的 URL，而是将调用的中间页面的 URL，这样我们就可以通过这个中间页面跟踪单击广告的次数。该 Redirect URL 将与包含两个参数的查询字符串一起调用 : 特定广告主页的 URL 和图象文件的 URL。星号上面的其余三行简单说明如何显示广告。前两行以像素为单位指定网页上广告的宽度和高度，默认值是 440 和 60 个像素。后一行，同样是以像素为单位指定广告四周超链接的边框宽度 , 默认值是 1 个像素。如果将该参数设置为 0，则将没有边框。

　　 星号下面的行以每四行为一个单位描述每个广告的细节。在此例中共有 16 行，描述四个广告。每个广告的描述包含图象文件的 URL、广告的主页 URL（如果广告客户没有主页，请在该行写上一个连字符“-”，指出该广告没有链接）和图象的替代文字以及指定该页与其他页交替显示频率的数值。

　　 图象是重定向页面的热连接，它在查询字符串中设置了两个值， url=/scripts/adredir.asp 以及 image=/ads/homepage/asp.gif。要确定广告显示的频率，可以将计划文件中所有广告的权值相加，在该例中总数是 10，那么 aspallian 的广告权值为 3，这意味着 AdRotator 组件每调用十次，它则显示 3 次。

　　 重定向文件是用户创建的文件。它通常包含用来解析由 AdRotator 对象发送的查询字符串的脚本并将用户重定向到与用户所单击的广告所相关的 URL。用户也可以将脚本包含进重定向文件中，以便统计单击某一特定广告的用户的数目并将这一信息保存到服务器上的某一文件中。增加计数器和重定向用户是通过下面两行 ASP 脚本来实现的 :
< %
Counter.Increment(request.querystring("url"))
response.redirect(request.querystring("url"))
%>

　　 现在我们看一下 Ad Rotator 组件是如何在页面中使用的，首先必须使用 Server.CreateObject 方法实例化 Ad Rotator 对象。 Ad Rotator 组件的 PROGID 属性是 MSWC.AdRotator。完整的代码如下 :
< % Set ad = Server.CreateObject("MSWC.AdRotator") %>
< %= ad.GetAdvertisement("/ads/adrot.txt") %>

　　 Ad Rotator 组件支持的唯一方法是 GetAdvertisement，它只有一个参数 :AdRotator 计划文件的名称。注意指向文件的路径是从当前虚拟目录的相对路径，物理路径是不允许的。 GetAdvertisement 方法从 Rotator 计划文件中获取下一个计划广告的详细说明并将其格式化为 HTML 格式。下面的 HTML 由 GetAdvertisement 方法生成且被添加到网页的输出中，以便显示 Rotator 计划文件中的下一个广告。
< A HREF="http://www.chinabyte.com/scripts/adredir.asp?http://www.aspallian.com/">< IMG
SRC="/Article/UploadFiles/200409/20040924191903448.gif" ALT="Good ASP site on net" WIDTH=440 HEIGHT=60 BORDER=1>< /A>

　　 使用 AdRotator 组件我们可以直接通过对象属性而不是计划文件中的设置来直接控制某些广告特性，其可用属性如下 :

　　 Border 指定广告边框的大小。

　　 Clickable 指定广告是否为超链接。

　　 TargetFrame 指定显示广告的框架的名称。
< %
Set ad = Server.CreateObject("MSWC.AdRotator")
ad.Border = 0
ad.Clickable = true
ad.TargetFrame = AdFrame
ad.GetAdvertisement("/ads/adrot.txt")
%>

　　 通过上面的学习，相信你已经能够熟练运用 ASP 的内建 AdRotator 组件为自己的网站建立一个标准的广告显示程序了。你是否难以相信一切竟是如此的简单？其实真正能令你震惊的还在后头呢，敬请关注下一篇 ASP ActiveX 组件大揭密！
 
ActiveX 组件的使用方法。

　　最近仍有不少朋友来信问我， ASP 是否只能在 Microsoft IIS 上运行，是否可以在非 NT 平台上运作？本来这个问题我已经回答过很多遍了 : 我只是听说过有某种可以支持的软件，却从没见过。但一些热情的朋友仍然孜孜不倦地来信询问，于是在朋友们的盛情之下，我访遍了 ASP 相关站点，竟惊奇的发现，原来 ASP 的确是可以运行在其它非 NT 平台上的，因此在本篇的开头，我就给来信的朋友们简要介绍一下如何在非 NT 平台上使用 ASP。

　　要在非 NT 平台上开发并运行 ASP 应用程序我们可以依赖于一套名为 Instant ASP 的第三方软件，它的广告标语非常吸引人“ASP Anytime, Anywhere”，我想所有 ASP 的开发者们看到如此的标语必然兴奋不已。这套由 Halcyon 软件公司开发的软件使得你无需重复开发原有 ASP 应用程序即可以将它运行在任何操作平台上 ! 这样非但节省了大量的开发时间，而且使得 ASP 真正成为了一种跨平台的 Internet、 Intranet 或 Extranet 应用程序。 Instant ASP 本身其实是一套基于 Java 的应用程序，因此通过它你可以将基于 WEB 的 ASP 应用程序运行在任何平台上，下表列出了 Instant ASP 目前版本所支持的操作平台。 
 



　 更令人吃惊的是 Instant ASP 不仅提供了 ASP 的运作环境，而且它较目前市场上的 ASP 应用还提供了更为强大和实用的功能，它将 ActiveX 组件和 Enterprise Java Beans 或者 CORBA-compliant objects 组合起来，从而使 ASP 有了更为广泛的应用。它同样提供了通过 ADO 接口访问连接各种数据库，并生成动态页面的强大功能。对于开发者而言可以使用自己擅长的编程语言或工具如 :Visual Basic, JScript, VBScript, C++, Java, HTML, Delphi , MS Visual InterDev 等等来进行开发。关于 Instant ASP 具体安装和操作我就不在这里展开了，有兴趣的朋友可以到它的站点上去看看 halcyonsoft.com，你还可以免费下载一个试用版试试。

　　继上一篇中作者给大家介绍了 AD Rotator 组件的使用方法后，今天我们接着来看看其它的一些 ASP 常用组件。

　　 一、 Database Access 组件

　　我们在 WEB 服务器上运用 WEB 应用程序进行的最常见和最实用的任务就是访问服务器端的数据库。而 ASP 内建的 Database Access 组件使得我们能够轻而易举地通过 ActiveX Data Objects (ADO) 访问存储在服务器端的数据库或其他表格化数据结构中的信息。 ADO 是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法，它是一种功能强大的数据访问编程模式，从而使得大部分数据源可编程的属性得以直接扩展到你的 Active Server 页面上。可以使用 ADO 去编写紧凑简明的脚本以便连接到 Open Database Connectivity (ODBC) 兼容的数据库和 OLE DB 兼容的数据源，这样 ASP 程序员就可以访问任何与 ODBC 兼容的数据库，包括 MS SQL SERVER、 Access、 Oracle 等等。如果您是一个对数据库连接有一定了解的脚本编写人员，那么您将发现 ADO 命令语句并不复杂而且容易掌握。同样地，如果您是一个经验丰富的数据库编程人员，您将会正确认识 ADO 的先进的与语言无关性和查询处理功能。熟悉 VB 数据库编程的朋友会发现 ADO 与 RDO (Remote Data Objects) 有某种类似的地方。但据说 ADO 的访问的速度更快，内存需要更小。

　　 下面给大家简要介绍一下利用 ASP 的 Database Access 组件通过 ADO 连接并操作 WEB 数据库的步骤

　　 第一步 : 指定想要连接的数据库，有 DSN 和 DSN-less 两种方法。

　　 DSN(Data Source Name 数据源名称 ): 建立一个系统数据源名称，方法如下 :

　　 1、单击“开始”，选设置控制面板。

　　 2、双击图标“32 位 ODBC” , 将弹出一个对话框，选标签“System DSN”

　　 3、单击“Add”添加一个 DSN 入口 , 选择如“Microsoft Access Drive”并确认。

　　 4、在“Data Source Name”栏里输入你希望指定的 DSN, 然后单击“Select”选择数据库存放位置，你可以按“Browse”来选取。

　　 5、以上步骤完成后在 ASP 程序中指定 DSN，如下 :

　　 < %connstr = "DSN"%>

　　DSN-less: 是另一种通过在 ASP 文件里直接指定数据库文件所在位置，而无需建立 DSN 的方法。由于许多公司没有自己的 WEB 服务器，他们的网站往往是存放在远端的虚拟服务器上，因此要建立和修改 DSN 的设置比较麻烦。而使用 DSN-less 方法直接指定远端数据库所在位置恰恰解决了这一问题，方法如下 :

< %
connstr = "DBQ="+server.mappath("database/source.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
%>

　　 在指定了想要连接的数据库后，就可以通过以下方法连接并打开数据库 :

< %
Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open constr
%>

　　第二步 : 指定想要执行的 SQL 指令，可以使用 RecordSet。

　　当连接了数据库后就可以对数据库进行操作，比如查询、删除、更新等等，这些操作都是通过 SQL 指令来完成的，如下例在数据库表 datebase 中查询所有姓名中有“A”的记录 :

< %
sql="select * from datebase where name like 'A%%'"
Set rs = Conn.Execute(sql)
%>

　　尽管 Connection 对象简化了连接数据库和查询任务，但 Connection 对象仍有许多不足。确切地说，检索和显示数据库信息的 Connection 对象不能用于创建脚本，您必须确切知道要对数据库作出的更改，然后才能使用查询实现更改。对于检索数据、检查结果、更改数据库， ADO 提供了 Recordset 对象。正如它的名称所暗示的那样， Recordset 对象有许多您可以使用的特性，根据您的查询限制，检索并且显示一组数据库行，即记录。 Recordset 对象保持查询返回的记录的位置，允许您一次一项逐步扫描结果。根据 Recordset 对象的指针类型属性设置，您可以滚动和更新记录。数据库指针可以让您在一组记录中定位到特定的项。指针还用于检索和检查记录，然后在这些记录的基础上执行操作。 Recordset 对象有一些属性，可用于精确地控制指针的行为，提高您检查和更新结果的能力。

　　 Recordset 的使用方法如下 :

　　 Set rs = Server.CreateObject("ADODB.Recordset")

　　 rs.Open SQL 指令 , Conn, 1, 1 ' 读取

　　 或

　　 rs.Open SQL 指令 , Conn, 1, 3 ' 新增、修改、或删除

　　第三步 : 使用 RecordSet 属性和方法，并显示执行的结果。

　　通过以上指令，我们创建了一个包含数据的游标 (RecordSet)“rs”，事实上游标是存储在活动内存中的类似记录和字段的数组的东西，当通过 RecordSet 组件创建一个游标时，它从数据提供者的得到一个数据集，并用它来充实游标，我们可以想象 ADO 产生的 RecordSet 是一个象电子表格的记录，它有一行行的记录，在任何时候都有一行是它的当前行，而 RecordSet 的字段是用 RecordSet 的 Field 集合表示的。下面列出了所创建的 RecordSet 对象 ( 游标 ) 的一些属性和方法 : 虚拟主机

　　 rs.Fields.Count: RecordSet 对象的字段总数。

　　 rs(i).Name: 第 i 个字段的名称， i 由 0 算起到 rs.Fields.Count-1。

　　 rs(i): 读取第 i 个字段的数据， i 由 0 算起到 rs.Fields.Count-1。

　　 rs(" 字段名称 "): 读取指定字段的数据。

　　 rs.RecordCount: 游标中的数据记录总数。

　　 rs.EOF: 是否已指到最后一条记录。

　　 rs.MoveNext: 将指标移到下一笔记录。

　　 rs.MovePrev: 将指标移到上一笔记录。

　　 rs.MoveFirst: 将指标移到第一笔记录。

　　 rs.MoveLast: 将指标移到最后一笔记录。

　　 rs.Close: 关闭 RecordSet 对象

　　 有关 ADO 的其他介绍，作者将在今后给大家详细讲解。

　　二、 Content Linking 组件

　　如果你的网站有一系列相互关联的页面的话， Content Linking 组件将非常适合你的需求，它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成和更新目录表及先前和后续的 Web 页的导航链接。这对于列出联机报刊、电子读物网站以及论坛邮件是十分理想的选择。

　　Content Linking 组件创建管理 URL 列表的 Nextlink 对象，要使用 Content Linking 组件，必须需要先创建 Content Linking List 文件。 Content Linking 组件正是通过读取这个文件来获得处理我们希望链接的所有页面的信息。事实上该文件是一个纯文本文件，其内容如下 :
page1.htm one
page2.htm two
page3.htm three
page4.htm four
page5.htm five
page6.htm six

　　 这个文本文件的每行有如下形式 :

　　 url description comment

　　其中， URL 是与页面相关的超链地址， description 提供了能被超链使用的文本信息， comment 则包含了不被 Content Linking 组件解释的注释信息，它的作用如同程序中的注释。 description 和 comment 参数是可选的。

　　 下面我们来看看如何具体使用 Content Linking 组件 :

< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title> 网络电子读物宝藏 < /title>
< /head>
< body>
< p> 网络电子读物导航
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%>
< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>
< % Next %>
< /body>
< /html>

　　 在以上代码中，我们先用 GetListCount 方法确定在文件 nextlink.txt 中有多少条项目，然后利用循环语句，并使用 GetNthURL、 GetNthDescription 方法逐一将存储在 nextlink.txt 文件中的内容读出并显示给客户端浏览器。 虚拟主机

　　 下面列出了 Content Linking 组件所有可使用的方法 GetListCount(file) 统计内容链接列表文件中链接的项目数。

　　 GetNextURL(file) 获取内容链接列表文件中所列的下一页的 URL。

　　 GetPreviousDescription(file) 获取内容链接列表文件中所列的上一页的说明行。

　　 GetListIndex(file) 获取内容链接列表文件中当前页的索引。

　　 GetNthDescription(file,index) 获取内容链接列表文件中所列的第 N 页的说明。

　　 GetPreviousUR(file) 获取内容链接列表文件中所列的上一页的 URL。

　　 GetNextDescription(file) 获取内容链接列表文件中所列的下一页的说明。

　　 GetNthURL(file,index) 获取内容链接列表文件中所列的第 N 页的说明。

　　在我们创建了网站的总导航页面后，我们当然还希望在每一页中添加一个“上一页”、“下一页”的导航超链，下面我们就来看看如何实现导航超链。虚拟主机

　　由于考虑到你的网站可能包含了上千或更多的页面，所以我们不可能在每一个页面中都编写实现导航超链的 ASP 代码。因此，我们必须利用前几篇中所学到的服务器端包容 SSI，这样就避免了大量的重复作业，请看下例 :

　　 < !--#include file="nextprev.inc"-->

　　 只要将这端代码放在每个页面中即可。 nextprev.inc 文件的内容如下 :

< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
current = link.GetListIndex("nextlink.txt")
If current > 1 Then
%>
< a href="< %= Link.GetPreviousURL("nextlink.txt") %>"> 上一页 < /a>
< %
End If
If current < count Then
%>
< a href="< %= Link.GetNextURL("nextlink.txt") %>"> 下一页 < /a>
< % End If %>

　　今天的学习又到此结束了，在这里我要再次感谢所有关心我的文章的朋友们，你们的来信给了我很大的鼓舞，不过请大家不要再称我为“老师”，其实我也和你们一样是在不断的学习和摸索中，有问题我们可以一起探讨，我的文章中肯定还存在很多不足或漏洞，也希望大家发现后能及时向我提出。由于近来 ASP 已经在国内的网站中广泛运用起来，所以应朋友们的要求，在国内 ASP 高手飞鸟的热情帮助下，我决定写一些 ASP 应用实例作为现在这篇文章的姊妹篇，这样也就可以为大家提供一些真正实用的东西了，敬请关注。

其它的ASP常用组件 
 
 
 
作者：本网收集 文章来源：本站收集 点击数：1613 更新时间：2004-9-24
 
　　当你用 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) 来在 log 文件不存在的情况下创建文件并对文件进行写操作，这里的“ForWriting”表示写文件。

　　与 CreateTextFile 方法不同， OpenTextFile 方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作，和 CreateTextFile 方法一样， OpenTextFile 方法返回一个 TextStream 对象，使得你可以在文件被打开后操作该文件。 OpenTextFile 方法的语法如下 :
　　 Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format])

　　参数说明如下 :

　　1、 Filename 必须的变量，同 CreateTextFile 的 filename

　　2、 IOmode 可选的常量，取值为下列两个常数之一 ForReading 或 ForAppending，如果 mode 为 1，文件以只读方式打开，如果为 8，则文件以追加的方式打开。

　　3、 Create 可选的布尔量，指定如果你想打开的文件不存在是做什么操作，如果其值为 True，当文件不存在时就自动创建一个空的文件。如果为 False，就会在文件没找到时产生一个出错信息，其默认值是 False，建议将其设为 True，以避免在打开文件时检查是否出错。
　　 4、 Format 可选值，可以选择三种 Tristate 值分别指定文件的格式， -2、 -1、和 0 分别对应于系统缺省、 unicode 和 ASCII。

　　在打开或创建了文本文件后，就得到一个 TextStream 对象，该对象有一个光标，就好象是在字处理程序中的光标一样，指出接下来要敲入的字符将出现的位置，它同时也指出你要读取的字符的位置。不能通过 CreatObject 来创建一个 TextStream 对象，得到 TextStream 对象的唯一方法是如前所述的用 FileSystemObject 对象打开一个存在的文本文件或者创建一个新的文件。
　　 下面列出了 TextStream 对象的属性和方法

　　 TextStream.AtEndOfLine 只读布尔量，当光标在当前行的末尾时，其值为 true，反之则为 false

　　 TextStream.AtEndOfStream 只读布尔量，如果光标在流的末尾时，其值为 true，否则为 false

　　 TextStream.Column 只读的整数，统计从行首到当前光标位置之间的字符数

　　 TextStream.Line 只读的整数，指明光标所在行在整个文件中的行号

　　 TextStream.close() 关闭流以及对应的文本文件

　　 TextStream.read(Num) 指定从光标的当前位置开始从文本文件中读取一定数目的字符

　　 TextStream.readall() 将整个流读入一个字符串中

　　 TextStream.readline() 将一整行的字符读入一个字符串中

　　 TextStream.write(text) 将一个字符串写入流中

　　 TextStream.writeline() 将一个文本串写入流中

　　 TextStream.skip(Num) 在流中，将光标的位置移动一定数目的字符串长度

　　 TextStream.skiplines() 在流中，将光标移动一定数目的行数

　　 TextStream.writeblank 将一定数目的空行写入流中

　　 lines(num)

　　相信大家现在已经可以感觉到 ASP File Access 组件的强大功能了，其实它远不仅仅可以写一些 log 文件，通过它你甚至可以毫不费力的远程自动更新你的网站，你只要把固定格式的文本文件传送到远端的服务器上，通过 File Access 组件读取文件，并自动生成全新 HTML 页面即可，而不必再辛辛苦苦地一个一个地更新 HTML 文件。如果你有兴趣，你完全可以用 ASP 的 File Access 组件写一个自己的全自动 HTML 生成器，充分享受维护网站的超前轻松感。