使用ActiveX组件

1、第第8章章 使用使用ActiveX组件组件8.1 什么是什么是ActiveX组件组件8.2 广告轮显组件广告轮显组件8.3 浏览器性能组件浏览器性能组件8.4 文件超链接组件文件超链接组件8.5 文件存取组件文件存取组件8.6 计数器组件计数器组件习题习题8.1 什么是什么是ActiveX组件组件 ActiveX组件是一个存在于组件是一个存在于 Web服务器上的文件，该服务器上的文件，该文件包含执行某项或某一组任务的代码，组件可以文件包含执行某项或某一组任务的代码，组件可以执行公用任务，这样就不必自己去创建执行这些任执行公用任务，这样就不必自己去创建执行这些任务的代码。一句话，是他人已经设计编

2、写好的一些务的代码。一句话，是他人已经设计编写好的一些程序。例如，广告轮显组件可以在程序。例如，广告轮显组件可以在Web页上轮流显页上轮流显示广告。在示广告。在Web服务器上安装完服务器上安装完ASP 环境后，就可环境后，就可以直接使用它自带的几个常用组件了，你可以利用以直接使用它自带的几个常用组件了，你可以利用组件作为脚本和基于组件作为脚本和基于Web应用程序的基本构造块，应用程序的基本构造块，只要知道如何访问组件提供的对象就行了。总而言只要知道如何访问组件提供的对象就行了。总而言之，之，ActiveX组件可以使你不用学习复杂的编程就能组件可以使你不用学习复杂的编程就能够写出功能强大的程序。

3、够写出功能强大的程序。 组件可以提供一个或多个对象以及对象的方法组件可以提供一个或多个对象以及对象的方法和属性。调用组件就是要使用组件提供的对象，和属性。调用组件就是要使用组件提供的对象，首先要创建对象的实例并将这个新的实例分配首先要创建对象的实例并将这个新的实例分配变量名。使用变量名。使用ASP的的Server.CreateObject方法可方法可以创建对象的实例。实例是一个对象的具体例以创建对象的实例。实例是一个对象的具体例子，它具有原对象的一切功能、属性和方法。子，它具有原对象的一切功能、属性和方法。可用下面的方式创建一个对象的实例：可用下面的方式创建一个对象的实例：Set 对象实例名称

4、对象实例名称= Server.CreateObject(PROGID字符串字符串) 其中其中PROGID 字符串为该对象于操作系统上字符串为该对象于操作系统上注册表的识别字。例如下面就是一个定义对象注册表的识别字。例如下面就是一个定义对象实例的语句：实例的语句：注意必须使用注意必须使用ASP的的Server.CreateObject方法方法来创建对象实例，否则来创建对象实例，否则ASP无法跟踪程序中的无法跟踪程序中的对象。对象。8.2 广告轮显组件广告轮显组件 现在现在Web广告几乎充斥了整个网络，那么能广告几乎充斥了整个网络，那么能不能编写一个符合广告领域标准功能的广告不能编写一个符合广告领

5、域标准功能的广告程序呢？答案是完全可以，只要你使用程序呢？答案是完全可以，只要你使用ASP的的AD Rotator组件。它允许在每次访问组件。它允许在每次访问ASP页面时在页面上显示新的广告，并且提供了页面时在页面上显示新的广告，并且提供了很强的功能，例如：旋转显示在页面上的广很强的功能，例如：旋转显示在页面上的广告图像的能力、跟踪特定广告显示次数的能告图像的能力、跟踪特定广告显示次数的能力以及跟踪客户端在广告上单击次数的能力。力以及跟踪客户端在广告上单击次数的能力。建立广告轮显的步骤如下：建立广告轮显的步骤如下：(1) 先准备先准备4个个.gif图像文件，如例图像文件，如例8.1中的中的1.

6、gif、2.gif、3.gif、4.gif，将其存放在当前执行文件的目录下。将其存放在当前执行文件的目录下。(2) 建立一个显示广告的计划文件，要把它保存为后缀名建立一个显示广告的计划文件，要把它保存为后缀名为为.txt的文本文件，如的文本文件，如8.1.txt也存放在当前执行文件的也存放在当前执行文件的目录下。目录下。例例8.1下面是一个标准格式的计划文件，文件名为下面是一个标准格式的计划文件，文件名为8-1.txt。REDIRECT 8.2.aspWIDTH 240 HEIGHT 60 BORDER 1 *1.gif http:/ http:/ http:/ 北方交通大学北方交通大学34.

7、gif http:/ 2计划文件格式：计划文件格式：REDIRECT 单击广告后执行的文件单击广告后执行的文件WIDTH 广告图片的宽度广告图片的宽度 HEIGHT广告图片的高度广告图片的高度BORDER 广告图片的边框大小广告图片的边框大小 *广告图片名称广告图片名称超链接网址超链接网址广告说明广告说明广告出现的比例广告出现的比例 . 注意：注意： 因为因为AD Rotator 组件的工作是通过读取组件的工作是通过读取AD Rotator计划文件来完成的，所以计划文件是按固定计划文件来完成的，所以计划文件是按固定格式编写的。计划文件的前格式编写的。计划文件的前5行不可以省略，所有的行不可以省

8、略，所有的广告数据放在广告数据放在*符号下面，每个广告信息包括符号下面，每个广告信息包括4个信息个信息也不可以省略。也不可以省略。计划文件的前计划文件的前4行包含广告的全局设置。行包含广告的全局设置。第第1行指出广告将成为其热链接的行指出广告将成为其热链接的URL。注意，这里注意，这里不是为广告本身指定的不是为广告本身指定的URL，而是将调用的页面的而是将调用的页面的URL，这样你就可以通过这个页面跟踪单击广告的这样你就可以通过这个页面跟踪单击广告的次数。该次数。该 URL 将与包含两个参数的查询字符串一起将与包含两个参数的查询字符串一起调用：特定广告主页的调用：特定广告主页的URL和图像文件

9、的和图像文件的URL。其其余余3行简单说明如何显示广告。行简单说明如何显示广告。第第2和第和第4行以像素为单位指定网页上广告的宽度和高行以像素为单位指定网页上广告的宽度和高度，默认值是度，默认值是440和和60个像素。个像素。第第4行以像素为单位指定广告四周的边框宽度，默认行以像素为单位指定广告四周的边框宽度，默认值是值是1个像素。如果将该参数设置为个像素。如果将该参数设置为 0，则没有边框。，则没有边框。星号星号(*)下面以每下面以每4行为一个单位描述每个广告的细节。行为一个单位描述每个广告的细节。在此例中共有在此例中共有16行，描述行，描述4个广告。每个广告的描述个广告。每个广告的描述包含

10、图像文件的包含图像文件的URL、广告的主页广告的主页URL(如果广告客如果广告客户没有主页，请在该行写上一个连字符户没有主页，请在该行写上一个连字符，指出，指出该广告没有链接该广告没有链接)和图像的替代文字以及指定该页与和图像的替代文字以及指定该页与其他页交替显示频率的数值。其他页交替显示频率的数值。图像是重定向页面的热链接，要确定广告显示的频率，图像是重定向页面的热链接，要确定广告显示的频率，可以将计划文件中所有广告的权值相加，在该例中总可以将计划文件中所有广告的权值相加，在该例中总数是数是10，那么搜狐的主页的广告权值为，那么搜狐的主页的广告权值为2，这意味着，这意味着 AD Rotato

11、r 组件每调用组件每调用10次，它则显示次，它则显示3次。次。图图8.1使用广告轮显使用广告轮显AD Rotator组件的步骤小结：组件的步骤小结：(1) 准备广告中使用的图片文件，并确定保存的路径；准备广告中使用的图片文件，并确定保存的路径；(2) 编写广告轮显的计划文件，并保存为文本文件；编写广告轮显的计划文件，并保存为文本文件；(3) 编写插入广告的编写插入广告的ASP文件和单击广告后转向的页文件和单击广告后转向的页面文件面文件(可省略可省略)。AD Rotator 组件支持的惟一方法是组件支持的惟一方法是GetAdvertisement，它只有一个参数，即它只有一个参数，即AD Rot

12、ator计划文件的名称。计划文件的名称。GetAdvertisement 方法从方法从Rotator计划文件中获取下计划文件中获取下一个计划广告的详细说明并将其格式化为一个计划广告的详细说明并将其格式化为HTML格式。格式。注意：注意： 指向文件的路径是从当前虚拟目录的相对路指向文件的路径是从当前虚拟目录的相对路径，物理路径是不允许的。径，物理路径是不允许的。 例例8.3单击广告后可打开的页面文件，文件名为单击广告后可打开的页面文件，文件名为8-2.asp。这里显示的是当前广告的地址这里显示的是当前广告的地址%url=Request.Querystring(url)if url then Re

13、sponse.Write url%单击广告时可看到图单击广告时可看到图8.2所示的页面。通过更改所示的页面。通过更改8.1.txt可改变单击广告后链接的页面。可以做一可改变单击广告后链接的页面。可以做一个公司产品介绍的页面。还可以加上计数器，记个公司产品介绍的页面。还可以加上计数器，记下单击该广告的次数。请你修改这个程序，加上下单击该广告的次数。请你修改这个程序，加上图片、页面的介绍和计数器。注意，添加计数器图片、页面的介绍和计数器。注意，添加计数器可是有技巧的，要好好动动脑子。可是有技巧的，要好好动动脑子。图图8.28.3 浏览器性能组件浏览器性能组件 如今浏览器的种类很多，但并不是所有浏览

14、如今浏览器的种类很多，但并不是所有浏览器都支持现今器都支持现今Internet技术的方方面面。有一技术的方方面面。有一些特性，某些浏览器支持而另一些浏览器却些特性，某些浏览器支持而另一些浏览器却不支持，如：不支持，如：ActiveX组件、影像流、动态组件、影像流、动态 HTML、Flash以及脚本程序等。使用以及脚本程序等。使用ASP的的Browser Capabilities组件，可了解浏览器的组件，可了解浏览器的性能。性能。 例例8.4看看浏览器都有什么性能。该程序文看看浏览器都有什么性能。该程序文件名为件名为8-3.asp。用用ASP提供的浏览器性能组件来辨别客户浏览器提供的浏览器性能组

15、件来辨别客户浏览器用用ASP提供的浏览器性能组件来辨别客户浏览器提供的浏览器性能组件来辨别客户浏览器浏览器的名称浏览器的名称 浏览器的版本浏览器的版本 Major Version Minor Version Frame 支持支持 表格支持表格支持 Cookie 支持支持 背景音乐支持背景音乐支持 VBScript 支持支持 JavaScript 支持支持用用http方式浏览该文件，根据使用的浏览器的不同，你会方式浏览该文件，根据使用的浏览器的不同，你会看到如图看到如图8.3所示的页面。所示的页面。图图8.3语法格式：语法格式：Set bc = Server.CreateObject(MSWC.

16、BrowserType)bc.属性属性 功能：建立功能：建立Browser Type对象的实例对象的实例bc，然后利用其属性然后利用其属性反映客户端浏览器的性能。反映客户端浏览器的性能。Browser: Type对象的属性。对象的属性。Browser: 指定该浏览器的名称。指定该浏览器的名称。Version: 指定该浏览器的版本号。指定该浏览器的版本号。majorver: 指定主版本号。指定主版本号。minorver: 指定副版本号。指定副版本号。frames=TRUE/FALSE: 指定该浏览器是否支持框架。指定该浏览器是否支持框架。tables=TRUE/FALSE: 指定该浏览器是否支持

17、表格。指定该浏览器是否支持表格。cookies=TRUE/FALSE: 指定该浏览器是否支持指定该浏览器是否支持cookies。backgroundsounds=TRUE/FALSE: 指定该浏览器是否支指定该浏览器是否支持背景音乐。持背景音乐。vbscript=TRUE/FALSE: 指定该浏览器是否支持指定该浏览器是否支持VBScript。javascript=TRUE/FALSE: 指定该浏览器是否支持指定该浏览器是否支持JScript。javaapplets=TRUE/FALSE: 指定该浏览器是否支持指定该浏览器是否支持 Java程序。程序。ActiveXControls=TRUE/

18、FALSE: 指定该浏览器是否支持指定该浏览器是否支持 ActiveX 控件。控件。Win16=False: 指定该浏览器是否支持指定该浏览器是否支持Win16。beta=TRUE/FALSE: 指定该浏览器是否为测试版。指定该浏览器是否为测试版。cdf=True: 指定该浏览器是否支持用于指定该浏览器是否支持用于Web 预测预测的的 Channel Definition Format。8.4 文件超链接组件文件超链接组件例例8.5用文件超链接组件做出一个用文件超链接组件做出一个“向前向后超链接向前向后超链接点点”的的Web页面。该程序文件名为页面。该程序文件名为8-4.asp。这是一个文件超

19、链接组件的实例这是一个文件超链接组件的实例1) then%a href=上一页上一页a href=下一页下一页本页在文本文件中的索引号为本页在文本文件中的索引号为 在浏览器中该程序的运行结果如图在浏览器中该程序的运行结果如图8.4所示。所示。图图8.4这个例子的第一行用来声明一个文件链接组件的实例为这个例子的第一行用来声明一个文件链接组件的实例为NextLink，第二行则使用第二行则使用GetListIndex方法来判断方法来判断8.4.txt文本文件内是否有超过一行的数据，判断结果为真，则显文本文件内是否有超过一行的数据，判断结果为真，则显示当前页面示当前页面(8.4.asp)在在8.4.t

20、xt文本文件中的文本文件中的“上一页上一页”和和“下一页下一页”的超链接点。顺序是由的超链接点。顺序是由8.4.txt文本文件所确定文本文件所确定的。程序中使用文件链接组件的的。程序中使用文件链接组件的GetListIndex方法显示了方法显示了本页在文本文件中的索引号。本页在文本文件中的索引号。例例8.6这是这是8.4.asp文件中使用的文本文件，文件名为文件中使用的文本文件，文件名为8-4.txt。北方交通大学北方交通大学http:/ do while (i a href=在浏览器中程序的运行结果如图在浏览器中程序的运行结果如图8.5所示。所示。上面的上面的ASP文件通过运用文件通过运用d

21、o while循环语句来显示文本文循环语句来显示文本文件中所有的超链接点。件中所有的超链接点。例例8.8这是在这是在8.5.asp文件中使用的文件中使用的超链接列表的一个文本文件，文件名为超链接列表的一个文本文件，文件名为8-5.txt。图图 中国人的主页中国人的主页 北方交通大学北方交通大学和讯金融资讯网和讯金融资讯网 搜狐网搜狐网网易网易8.4.asp返回主页返回主页文件超链接组件引用了一个超链接列表文本文件，此文本文件超链接组件引用了一个超链接列表文本文件，此文本文件包含了所链接到的所有文件包含了所链接到的所有Web页面的列表，此文本文件页面的列表，此文本文件也存储在也存储在Web服务器

22、上。服务器上。超链接列表文件包含两列，第一列是超链接列表文件包含两列，第一列是URL地址地址(写写URL地地址时不要加上址时不要加上“http:/”符号符号)；第二列是；第二列是URL地址的地址的(中文中文)描述。描述。注意：注意： 每一行记录数据必须使用回车键跳行分开，同一每一行记录数据必须使用回车键跳行分开，同一行的数据要用行的数据要用Tab键分开。键分开。由上面的两个例子可以总结出以下结论。由上面的两个例子可以总结出以下结论。语法格式：语法格式：Set 实例名称实例名称= Server.CreateObject(MSWC.Nextlink) 参数：参数：实例名称：指定了被实例名称：指定了

23、被Server.CreateObject方法所创建的实方法所创建的实例的名字，可随意选取，如例的名字，可随意选取，如L，Nextlink。方法：方法：GetListCount(文本文件名文本文件名)： 统计文本文件链接列表条统计文本文件链接列表条目的总数。目的总数。GetNextURL(文本文件名文本文件名)： 读取文本文件链接列表中读取文本文件链接列表中的下一行的下一行URL地址。地址。GetPreviousDescription(文本文件名文本文件名)： 读取文读取文本文件链接列表中上一行的超链接描述。本文件链接列表中上一行的超链接描述。GetListIndex(文本文件名文本文件名)：

24、返回文本文件在返回文本文件在链接列表中的索引号码。链接列表中的索引号码。GetNthDescription(文本文件名文本文件名,N)： 读取文本读取文本文件链接列表中连接的第文件链接列表中连接的第N个页面的描述。个页面的描述。GetPreviousURL(文本文件名文本文件名)： 读取文本文件读取文本文件链接列表的上一行的链接列表的上一行的URL地址。地址。GetNextDescription(文本文件名文本文件名)： 读取文本读取文本文件链接列表下一行数据的超链接描述。文件链接列表下一行数据的超链接描述。GetNthURL(文本文件名文本文件名,N)： 读取文本文件链读取文本文件链接列表的

25、第接列表的第N个页面的个页面的URL地址。地址。8.5 文件存取组件文件存取组件 这里要介绍以下组件：这里要介绍以下组件： FileSystemObject： 这个对象包括了一些基这个对象包括了一些基本的对文件系统进行操作的方法，比如说，本的对文件系统进行操作的方法，比如说，复制和删除文件夹或者文件。复制和删除文件夹或者文件。 TextStream： 这个对象用来读写文件。这个对象用来读写文件。 File： 它的方法和属性用来处理单独的文件。它的方法和属性用来处理单独的文件。 Folder： 它的方法和属性被用来处理文件夹。它的方法和属性被用来处理文件夹。 下面分别介绍上述组件在对文件进行操作

26、中下面分别介绍上述组件在对文件进行操作中具体的使用方法。具体的使用方法。8.5.1 使用使用ASP程序动态创建一个文本文件程序动态创建一个文本文件可以使用可以使用FileSystemObject和和TextStream 对象来对象来创建一个文本文件并在其中写入文字。创建一个文本文件并在其中写入文字。方法是首先创建一个方法是首先创建一个FileSystemObject对象的实对象的实例，然后，再利用例，然后，再利用CreateTextFile()以该实例创建以该实例创建一个一个TextStream对象的实例，最后利用对象的实例，最后利用TextStream对象的对象的WriteLine()方法来

27、写入文字到方法来写入文字到文件中。还是用下面的例子来说明吧。文件中。还是用下面的例子来说明吧。例例8.9创建一个文本文件的程序，文件名为创建一个文本文件的程序，文件名为8-6.asp。这是一个创建文本文件的例子！这是一个创建文本文件的例子！在浏览器中程序的运行结果如图在浏览器中程序的运行结果如图8.6所示，同时你所示，同时你可在可在Word中打开中打开8.6.txt文件看到有一行文件看到有一行“这是一这是一个创建文本文件的例子个创建文本文件的例子”的文字。的文字。图图8.6这个例子创建了一个名字为这个例子创建了一个名字为8.6.txt的文件，该文件所在计的文件，该文件所在计算机中的位置是算机中

28、的位置是f:asp目录下。目录下。如果你的计算机中没有如果你的计算机中没有f:asp这个目录，程序将报错。这个目录，程序将报错。你可先建立一个目录。你可先建立一个目录。WriteLine()方法被用来将方法被用来将“这是一个创建文本文件的例这是一个创建文本文件的例子子”这句话写入这句话写入8.6.txt文件。文件。最后，用最后，用“a.Close”命令将命令将TextStream对象的实例关闭并对象的实例关闭并且释放所有资源。且释放所有资源。例例8.10在创建的文本文件中写入新的文字或字符。这个程序在创建的文本文件中写入新的文字或字符。这个程序将向路径为将向路径为D:lpshao下的下的8.6

29、.txt文本文件中输入文本文件中输入5个字个字符串符串“你好你好”。你可以在机器上试一试！本程序文件名为。你可以在机器上试一试！本程序文件名为8-7.asp。这是一个在创建的文本文件写字的这是一个在创建的文本文件写字的例子！例子！在浏览器中程序的运行结果如图在浏览器中程序的运行结果如图8.7所示，同时可在所示，同时可在Word中打开中打开8.6.txt文件看到有文件看到有5行的行的“你好！你好！”。CreateTextFile()方法用来创建一个新的文本文件，当方法用来创建一个新的文本文件，当这个方法被调用，就返回一个这个方法被调用，就返回一个TextStream对象。切记：对象。切记： 使用

30、这个方法有一个必须选择的参数和两个可以选择使用这个方法有一个必须选择的参数和两个可以选择的参数。的参数。(1) FileName： 指定要创建的文件名称及文件所在的路径，指定要创建的文件名称及文件所在的路径，如果没有这个参数，程序无法执行。如果没有这个参数，程序无法执行。(2) OverWrite： 这是一个可选择的参数，如果存在与之这是一个可选择的参数，如果存在与之同名的文件，就可以根据这个参数来决定是否进行覆同名的文件，就可以根据这个参数来决定是否进行覆盖操作。如果值为盖操作。如果值为True，表示存在同名文件时可以进表示存在同名文件时可以进行覆盖操作；如果值为行覆盖操作；如果值为Fals

31、e，那么存在同名文件时那么存在同名文件时就会返回错误信息。其默认值为就会返回错误信息。其默认值为False。图图8.7(3) Unicode： 这也是一个可以选择的参数，默认值为这也是一个可以选择的参数，默认值为False。它用来指示该文件是否用它用来指示该文件是否用ASCII 码形式进行码形式进行创建和保存。如果你选择创建和保存。如果你选择True，系统会以系统会以Unicode 方方式进行文件的创建。式进行文件的创建。当你已经用上述方法建立一个文本文件之后，就可以当你已经用上述方法建立一个文本文件之后，就可以使用使用TextStream 对象来对文件进行读写操作。在进对象来对文件进行读写操

32、作。在进行写操作时，你可以使用下面的方法。行写操作时，你可以使用下面的方法。(1) Write(String)：将一个字符串写入文本文件。将一个字符串写入文本文件。(2) WriteLine(String)：在文件中添加字符串和一个分行在文件中添加字符串和一个分行符。符。(3) WriteBlankLines(lines)：允许用户在文件中指定数个允许用户在文件中指定数个分行符。分行符。(4) Close：关闭打开的文本文件并释放所占用的资源。关闭打开的文本文件并释放所占用的资源。8.5.2 在文本文件中读取和追加数据在文本文件中读取和追加数据上面的例子将原来文件中的内容覆盖掉了，能不上面的例

33、子将原来文件中的内容覆盖掉了，能不能不被替换掉，只是将新写的内容添加在后面呢？能不被替换掉，只是将新写的内容添加在后面呢？并显示出文件的内容呢？这些都可以办到。并显示出文件的内容呢？这些都可以办到。方法依然是创建一个方法依然是创建一个FileSystemObject对象的实对象的实例，之后，利用例，之后，利用OpenTextFile()来创建一个来创建一个TextStream对象的实例，最后，用对象的实例，最后，用TextStream对对象的象的ReadLine()方法来读取文件。方法来读取文件。例例8.11(a)通过文本框向通过文本框向8.6.txt文本文件内写文字，文本文件内写文字，文件名

34、为文件名为8-8(a).asp。如图如图8.8(a)所示。所示。通过下面的文本框将文字写入通过下面的文本框将文字写入8.6.txt文件内文件内 例例8.11(b)将将8.6.txt文件读出来并在浏览器上显示出文件读出来并在浏览器上显示出来。该程序文件名为来。该程序文件名为8-8(b).asp。你看文本文件的字显示出来了！你看文本文件的字显示出来了！在浏览器中在浏览器中8-8(b).asp的运行结果如图的运行结果如图8.8(b)所示，所示，你可看到你可看到8.6.txt文件中的文字被显示出来了。文件中的文字被显示出来了。图图8.8(b)在读取文件时，经常会遇到在读取文件时，经常会遇到TextSt

35、ream对象的下对象的下列属性。列属性。(1) AtEndOfLine： 这个属性用于判断是否到了文件这个属性用于判断是否到了文件中一个特定行的末尾，如果是则为真中一个特定行的末尾，如果是则为真(TRUE)，反反之为假之为假(FALSE)。(2) AtEndOfStream： 用于判断是否到了文件的结尾用于判断是否到了文件的结尾并依此返回并依此返回True和和False。(3) Column： 这个属性判断当前字符在该行的位置，这个属性判断当前字符在该行的位置，返回一个整数值。返回一个整数值。(4) Line： 用于判断当前行在文件中的行数，返回一用于判断当前行在文件中的行数，返回一个整数值。

36、个整数值。8.5.3 创建留言板创建留言板使用上面介绍的知识，可以建立我们在网站里经使用上面介绍的知识，可以建立我们在网站里经常看到的留言板。留言板就是向文本文件写入文常看到的留言板。留言板就是向文本文件写入文字并同时将写的文字显示在浏览器上。字并同时将写的文字显示在浏览器上。例例8.12这个例子是一个非常简单的留言板，将它放这个例子是一个非常简单的留言板，将它放到你的个人主页上试一试吧！到你的个人主页上试一试吧！ 一个简单实用的留言板一个简单实用的留言板  留言板留言板  %set fs=CreateObject(Scripting.FileSystemObject)se

37、t a=fs.OpenTextFile(d:lpshao8.7.txt)while not a.AtEndOfStreamResponse.Write(a.ReadLine &)wenda.Close% 您的意见，是我们的宝贵财富，谢谢！您的意见，是我们的宝贵财富，谢谢！在浏览器中程序的运行结果如图在浏览器中程序的运行结果如图8.9(a)所示。所示。说明：说明： 这个留言板可以在输入框中输入文字，单这个留言板可以在输入框中输入文字，单击击“提交提交”按钮后将立即显示输入的内容，如图按钮后将立即显示输入的内容，如图8.9(b)所示，而且会将输入的内容保存在文本文所示，而且会将输入的内容保存在文本

38、文件件8.7.txt文件中。文件中。图图8.9(a)图图8.9(b)8.5.4 检测文件的存在检测文件的存在你要想知道一个特定的文件是否存在于计算机的某个你要想知道一个特定的文件是否存在于计算机的某个位置，可以使用位置，可以使用FileSystemObject对象的对象的FileExists()方法。只要传递其物理地址就可以从返回值是方法。只要传递其物理地址就可以从返回值是TRUE或或FALSE来判断其是否存在。来判断其是否存在。例例8.13检测文件是否存在的程序，该程序名为检测文件是否存在的程序，该程序名为8-10.asp。检测文件是否存在的小例子检测文件是否存在的小例子在浏览器中在浏览器中

39、8.10.asp的运行结果如图的运行结果如图8.10所示。所示。图图 接收文件属性接收文件属性在处理文件时，有时需要了解文件的属性，下面在处理文件时，有时需要了解文件的属性，下面是关于是关于File对象的属性列表。对象的属性列表。(1) Attributes： 该属性用于显示当前文件的系统属性。该属性用于显示当前文件的系统属性。例如只读、隐藏、系统等属性。例如只读、隐藏、系统等属性。(2) DataCreated： 它可以返回文件创建的时间和日期。它可以返回文件创建的时间和日期。(3) DataLastModified： 该属性返回该文件上一次被该属性返回该文件上一次被修改的

40、日期和时间。修改的日期和时间。(4) Drive： 该属性返回值为该文件所在的驱动器。该属性返回值为该文件所在的驱动器。(5) Name： 它可以返回该文件的文件名。它可以返回该文件的文件名。(6) ParentFolder： 这个属性返回值为该文件所处的这个属性返回值为该文件所处的文件夹。文件夹。(7) Path： 返回该文件的全路径。返回该文件的全路径。(8) Size： 返回文件的大小，以字节为单位。返回文件的大小，以字节为单位。(9) Type： 返回文件的类型，例如文本文件、返回文件的类型，例如文本文件、ASP文文件或者件或者HTML文件。文件。注意：注意： 你在使用这些属性之前，首

41、先需要创建一你在使用这些属性之前，首先需要创建一个个File对象的实例。还记得在前面创建的文件对象的实例。还记得在前面创建的文件8.6.txt吗？来看看它的属性。吗？来看看它的属性。例例8.14检查文件的属性。检查文件的属性。显示文件属性的小例子显示文件属性的小例子文件名称：文件名称： 路径：路径： 驱动器：驱动器： 文件大小：文件大小： 文件类型：文件类型： 文件属性：文件属性： 上次修改日期：上次修改日期： 程序执行结果如图程序执行结果如图8.11所示。所示。图图8.118.6 计数器组件计数器组件 下面介绍的三个组件不是微软的公用组件，不过下面介绍的三个组件不是微软的公用组件，不过最新的

42、最新的IIS版本已经包括了它。如果你手中没有版本已经包括了它。如果你手中没有该组件，不妨去该组件，不妨去 在在Active Server Pages中提供了两个新组件中提供了两个新组件(Counters组件和组件和Page Counter组件组件)可进行页面可进行页面的计数统计。使用该组件可以了解每一个页面的的计数统计。使用该组件可以了解每一个页面的访问情况，也可以在这个页面上直接统计，或者访问情况，也可以在这个页面上直接统计，或者根据自己的需要进行各种统计。根据自己的需要进行各种统计。1. Counters组件组件Counteres(计数器计数器)组件用来统计一个页面被请求组件用来统计一个页

43、面被请求的次数。当然也可以用来统计站点访问者，统计的次数。当然也可以用来统计站点访问者，统计广告被点击的次数广告被点击的次数当你看到与日俱增的访问当你看到与日俱增的访问次数，会是多么的令人激动啊！前面让你做的计次数，会是多么的令人激动啊！前面让你做的计数器做出来了吗？现在看看下面的解决方法。数器做出来了吗？现在看看下面的解决方法。只需要创建一个实例，而且这个实例可以提供很只需要创建一个实例，而且这个实例可以提供很多个单独的计数器，这种划分是按照计数器名称多个单独的计数器，这种划分是按照计数器名称进行的。由于只需创建一个计数器组件，所以可进行的。由于只需创建一个计数器组件，所以可在在Global

44、.asa中进行这种创建，当你的网站开始中进行这种创建，当你的网站开始运行时就只有一个计数器对象的实例。运行时就只有一个计数器对象的实例。下面是在下面是在Global.asa中进行这个实例创建的脚本。中进行这个实例创建的脚本。现在的现在的Global.asa文件变为以下内容了：文件变为以下内容了：sub ApplicationOnStartApplication(VN) = 0Application(ly) = 欢迎你来到欢乐聊天室！欢迎你来到欢乐聊天室！end subsub sessionOnStartend subsub sessionOnEndend sub计数器组件的使用有下面计数器组件

45、的使用有下面4种方法，每个方法的具体使用种方法，每个方法的具体使用说明如下。说明如下。(1) Get(Counter Name): 这个方法返回当前的计数器值，如果这个方法返回当前的计数器值，如果计数器不存在，则进行创建并且赋值为计数器不存在，则进行创建并且赋值为0。(2) Increment(Counter Name)： 对计数器进行加对计数器进行加1操作，如果操作，如果计数器不存在，则创建并且赋值为计数器不存在，则创建并且赋值为1。(3) Remove(Counter Name)： 消除指定的计数器。消除指定的计数器。(4) Set(Counter Name,integer)： 这个方法有

46、两个参数，这个方法有两个参数，第一个是计数器的名称，第二个是一个整数，你第一个是计数器的名称，第二个是一个整数，你可以将当前计数器的值设定为该整数，同样对于可以将当前计数器的值设定为该整数，同样对于不存在的计数器也可以进行创建和赋值。不存在的计数器也可以进行创建和赋值。这个计数器对象在这个计数器对象在Global.asa中创建以后，你就中创建以后，你就可以在自己的可以在自己的ASP文件中添加和减少独立的计数文件中添加和减少独立的计数器了，注意在一个页面中创建的计数器可以增加、器了，注意在一个页面中创建的计数器可以增加、减少，甚至转移到另一个页面上去。减少，甚至转移到另一个页面上去。例例8.15是使用计数器组件进行访问次数统计的一是使用计数器组件进行访问次数统计的一个小例子，特别简单、实用。个小例子，特别简单、实