10.1 课前导读
10.2 课堂教学
10.3 上机练习
10.4 课后作业第 10课 ASP的内置组件
10.1 课前导读
ASP的内置组件指安装 ASP时自动注册到 ASP Web服务器上的组件 。 主要包括表 10-1中的组件 。
表 10-1 ASP的内置组件组件名称 中文名称 主要作用
AdRotator 广告轮显组件 随机显示广告图像 (图标 )
ContentRotator 内容轮显组件 随机显示 Web页面
ContentLinking 内容链接组件 网页导航
Counter 计数器组件 统计页面访问次数、广告单击次数等
PageCounter 页面计数器组件 仅用来统计页面访问次数
BrowserCapabiliti
es
浏览器信息组件 获取客户浏览器信息
Dictionary 数据目录组件 保存数据
FileAccess 文件访问组件 访问文件系统，创建、显示文件，读取驱动器信息等
DatabaseAccess 数据库访问组件 在应用程序中访问数据库，可以显示表的整个内容、允许用户构造查询以及在
Web页执行其他一些数据库查询使用 ASP内置组件必须先使用 Server内置对象的
CreateObject方法创建该组件的一个实例 （ 变量 ）,
或在 GlobaLasa文件中使用 <Object>标记创建该组件的一个实例 （ 变量 ）,然后就可以把它当 ASP内置对象来处理,引用该组件的属性,方法,集合来实现组件提供的功能 。
10.2 课堂教学
10.2.1 广告轮显组件
10.2.2 内容轮显组件
10.2.3 文件访问组件
10.2.4 网页计数器组件
10.2.1 广告轮显组件
1,创建广告轮显组件的实例对象
2,AdRotator对象的属性和方法
3,使用广告轮显组件
10.2.1 广告轮显组件使用广告轮显 （ AdRotator） 组件可以在网页上轮换显示广告 。 AdRotator组件在每次用户加载或刷新网页时为网页选择一个广告 。 另外,如果需要更改广告,
则只需要在重定向和轮换计划文件中更改此广告即可,
而不必修改包含此广告的所有 ASP文件 。 如果此广告出现在网站中的许多网页上,这样就可以节省开发时间 。
1,创建广告轮显组件的实例对象使用 Ad Rotator组件首先要创建一个 AdRotator组件的实例 —— AdRotator对象：
Set 实例对象名 =
Server.CreateObject("MSWC.AdRotator")
2,AdRotator对象的属性和方法
AdRotator对象有三个属性 Border,TargetFrame，
Chickable。 它们分别指定图片的边框大小,是否提供超连接,还有连接的目标框 。 各属性说明见表 10-2。
表 10-2 AdRotator对象各属性的说明属性名 使用格式 作用描述 备注
Border Border=Size 指定显示广告图像的边框宽度 Size为像素值
TargetFrame TargetFrame=Frame 指定图标链接的目标框架 Frame为框架名
Chickable Chickable=Value 指定广告是否存在超链接 Value取 True或 False
AdRotator对象的方法只有一个,其格式为：
GetAdvertisement(RotatorschedulePath)
说明,GetAdvertisement方法用来读取广告安排文件所设定的广告图标信息 。
3,使用广告轮显组件使用广告轮显组件就是使用 AdRotator对象 。 使用 AdRotator对象需要两个文件：重定向文件 （ 包含指向广告的 URL链接 ） 以及轮换计划文件 （ 包含显示数据 ） 。 通过建立这两个文件,网站上的任何 ASP网页都可使用 AdRotator对象 。
使用广告轮显组件的步骤如下：
(1) 创建一个 AdRotator轮换计划文件轮换计划文件用于为要显示的广告编录信息,这些信息包括单击广告后的重定向信息,要显示的广告的大小,要显示的图象,广告的注释,以及表明特定广 告 被 选 中 的 频 率 的 数 字 。 在 ASP网 页 中 调 用
AdRotator组件的方法时,组件会使用此文件来选择要显示的广告 。
轮换计划文件用星号 (*)分成两节 。 第一节提供了所有广告的公共信息,第二节则列出了每个广告的特定数据 。 若 要 测 试 轮 换 计 划 文 件,可以使用
Microsoft.com上的一些图像作为广告图像 。 表 10-3概述了轮换计划文件的结构 。
表 10-3 轮换计划文件的结构内容 说明
Redirection URL
形式的、可在显示广告前执行的 ASP文件的路径和名称。此文件可用于记录单击广告的用户的有关信息。可以记录客户端 IP地址、客户端看到的广告所在的网页、广告点击的频率等信息。如果没有任何 URL与第 2节中的广告相关联,ASP文件也可以处理这种情况。在按广告点击次数向广告客户收费时，最好能够向客户证明这些点击不是同一位用户反复点击
“刷新”的结果。
Width 每个广告图像的宽度，以像素为单位。默认值为 440。
Height 每个广告图像的高度，以像素为单位。默认值为 60。
Border 环绕在每个广告图像周围的边框宽度。默认值为 1。
* 将第 1节与第 2节分开。此字符必须独立成行。
图像 URL 广告的图像文件的虚拟路径和文件名。
广告客户主页的
URL
选择此链接时跳转到的 URL。如果没有链接，请使用连字符
(-)。
文本 浏览器不支持图片时显示的文字。
印记 一个整数，表示 Ad Rotator组件选择广告时选中此广告的相对几率。
(2) 创建一个 AdRotator重定向文件用户单击广告时,用 ASP编写的 AdRotator重定向文件可以在显示广告之前,捕获某些信息,并将这些信息写入一个文件 。
该文件首先读取用户单击广告时的信息：
URL=Request("URL"),然后将网页导向广告指向的网页,Response.Redirect URL。
(3) 创建一个调用 AdRotator组件的 ASP网页来显示和轮换广告调用 AdRotator组件首先要创建一个 AdRotator对象：
Set objLoad = Server.CreateObject("MSWC.AdRotator")
如果网页使用框架,则应设置 TargetFrame属性,
以便将在这个框架中打开 URL。
objLoad.TargetFrame="TARGET=new"
然后可以设置其他的 AdRotator属性：
objLoad.Border=1
最后调用 GetAdvertisement方法从文本文件获取随机广告 。
【 例 10-1】 设计随机广告播放器 。
准备 3个充作广告的图片文件,MARU1.GIF、
MARU2.GIF,MARU3.GIF。 然后依次编写如下文件：
① 轮换计划文件 ss.txt,其中代码为：
Redirect ar.asp
width 113
height 113
border 1
*
MARU1.GIF
../../第 2章例题 /2_1.htm ' 使用相对路径调用网页文件 2_1.htm
第 2章例题 2_1
30
MARU2.GIF
../../第 2章例题 /2_2.htm
第 2章例题 2_2
30
MARU3.GIF
../../第 2章例题 /2_3.htm
第 2章例题 2_3
30
② 重定向文件 ar.asp,其代码如下：
<%
URL=Request("URL")
Response.Redirect URL
%>
③ 显示和轮换广告的网页文件 ShowAd.asp,其代码如下：
<HTML>
<HEAD>
<TITLE> 广告轮显 </TITLE>
</HEAD>
<BODY>
<H1>广告轮显 </H1>
<%
set objad = server.CreateObject("MSWC.AdRotator")
Response.Write objad.GetAdvertisement("ss.txt")
Set objad = Nothing
%>
</BODY>
</HTML>
在浏览器中运行网页文件 ShowAd.asp,单击广告图片,将指向所连接的第 2章例题,如图所示 。
10.2.2 内容轮显组件
1,创建内容轮显组件的实例对象
2,内容安排文件
3,Content Rotator对象的方法
4,使用内容轮显组件
10.2.2 内容轮显组件内容轮显 （ Content Rotator ） 组件和 Ad
Rotator组件十分类似,只是进行随机变换的是页面内容而不仅仅是一个图标,该组件可以用于：
① 每日新闻：可以随机显示今日有关网站的不同方面的新信息,例如访问者情况,新闻组信息,访问用户的信息交换 。
② 随机连接：随机指向并显示你的各个网站内容 。
③ 广告显示：这里面提请注意的是显然你可以制作比 Ad Rotator对象所提供的循环广告更加复杂的广告显示系统 。
1,创建内容轮显组件的实例对象使用 Content Rotator组件首先要创建一个 Content
Rotator组件的实例 —— Content Rotator对象：
Set 实例对象名
=Server.CreateObject("MSWC.ContentRotator")
2,内容安排文件使用 Content Rotator组件需要一个内容安排文件：
将所有欲显示的网页内容都包含在内,这个文件是一般的文本文件,可以利用任何通用的文本编辑器处理,可以存储为任何名称和后缀 。
文件的格式如下：
%%[#n[//注释 ]
显示内容说明：
① 整个文件由多个条目组成,每个条目由以上两部分组成 。
② 其中 n表示显示频率的权重,权重越高,显示频率越大 。 其默认值为 1。
③ 注释内容是可选的 。
④ 显示内容是任何网页内容 。
3,Content Rotator对象的方法
Content Rotator对象没有属性,只有两个方法 。
① ChooseContent()方法：读取内容安排文件的一个条目并显示在浏览器窗口 。 其语法格式：
ChooseContent(〈 内容安排文件 〉 )
② GetAllContent()方法：读取内容安排文件的所有条目,每个条目后加 <HR>换行标记,然后显示在浏览器窗口 。 其语法格式：
GetAllContent(〈 内容安排文件 〉 )
说明：两个方法中的 〈 内容安排文件 〉 都表示内容安排文件的相对路径或虚拟路径 。
4,使用内容轮显组件下面以具体实例说明内容轮显组件的使用 。
【 例 10-2】 设计随机文本播放器 。
建立一个具有上下两个框架窗口的框架网页
(main.htm),上部框架为随机文本播放器,用来显示内容安排文件设定的网页信息,对应文件为 top.asp：
下部框架用来显示个人主页,对应文件为 Home.asp。
① 框架网页 main.htm的代码如下：
<HTML>
<HEAD><TITLE>我的主页 </TITLE></HEAD>
<frameset rows="120,*">
<FRAME SRC="top.asp" name=top>
<FRAME SRC="home.asp" name=bottom>
</FRAMESET>
</HTML>
② 随机文本播放器文件 top.asp的代码如下：
<HTML>
<HEAD></HEAD>
<BODY>
<%
Set MyContent=Server.createObject("MSWC.ContentRotator")
Response.Write MyContent.ChooseContent("ss.txt")
Set MyContent=nothing
%>
</BODY>
</HTML>
③ 内容安排文件 ss.txt的内容如下：
%%#2 //这是第一个记录
<Font Color=Red>欢迎访问我们的讨论组 </Font>
%%#3 //这是第二个记录
<B>不要忘了把我们站点放入书签 </B>
%%#5 //这是第三个记录请从我们的下载区下载共享软件
<UL>
<Li>ActiveX组件
<Li>连接检查
</UL>
说明：该文件中有三个记录,首先用两个百分号
%进行分隔确认,说明这是一个记录的开始,然后在井号 #后面是给定的权重,例子中的权重分别是 2,3,5，
那么显示概率就分别为 2/10,3/10,5/10,这里面权重值为 0到 65535的整数,如果设置为 0,就不可能显示,显示概率是该权重除以所有权重之和 。
④ 简化的主页文件 Home.asp代码如下：
<HTML>
<HEAD><TITLE>我的主页 </TITLE></HEAD>
<BODY>
<H1>我的主页 </H1>
内容轮显组件的使用
</BODY>
</HTML>
图 10-2 随机文本播放器
10.2.3 文件访问组件
1,创建文件访问组件的实例
—— FileSystemObject对象
2,文件系统对象模型
3,管理文件夹
4,管理文件
5,读、写文件
10.2.3 文件访问组件使用文件访问 （ File Access） 组件是为了在服务器端对文件和文件夹进行存取访问 。
1,创建文件访问组件的实例 ——
FileSystemObject对象要使用文件访问组件,首先必须创建文件访问组件的实例,FileSystemObject对象 。 FileSystemObject对象是 VBScript的对象,其创建命令语法如下：
Set 实例对象名 =
Server.CreateObject("Scripting.FileSystemObject")
使用文件访问组件就是使用文件系统对象：
FileSystemObject对象 。
2,文件系统对象模型
FileSystemObject对象模型包括若干对象,可以用于创建,改编,移动和删除文件夹或文件,还可以用 于 获 取 文 件 夹 或 文 件 的 各 种 信 息 。
FileSystemObject对象模型所包含的对象见表 10-4。
表 10-4 FileSystemObject对象模型中的对象对象 描述
Drive 允许收集关于系统所用的驱动器的信息，诸如驱动器有多少可用空间，其共享名称是什么，等等。
Folder 允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。
Files 允许创建、删除或移动文件，并向系统查询文件的名称、路径等。
FileSystemO
bject
主要对象，提供一整套用于创建、删除、收集相关信息、以及通常的操作驱动器、文件夹和文件的方法。
TextStream 允许读和写文本文件。
说明,FileSystemObject对象提供了一整套用于创建,删除,收集相关信息,以及通常的操作驱动器,
文件夹和文件的方法,为简单起见本教程只介绍使用
FileSystemObject对象 管理 文件 夹,文件,使用
TextStream对象读写文件 。
(1) FileSystemObject对象的方法
FileSystemObject对象可以用来存取 Web服务器上的文件与文件夹 。 其方法的语法及说明见表 10-5。
表 10-5 FileSystemObject对象的方法方法 说明
BuildPath(Path,Name)
将 Name加到 Path后面，必要时会自动修正路径符号 (\)，
例如 objFSO.BuildPath(Server.MapPath("\F"),"a.asp")会返回 c:\inetpub\wwwroot\F\a.asp路径。
CopyFile Source,
Destination,Overwrite
将 Source指定的文件复制到 Destination，若 Overwrite的值为 True表示覆盖 Destination的已有同名文件。
CopyFolder Soume,
Destination,Overwrite
将 Source指定的文件夹复制到 Destination，若 Overwrite
的值为 True表示覆盖 Destination的已有同名文件夹。
CreateFolder(Foldema
me)
建立 Foldemame文件夹，并返回一个 Folder对象实例
CreateTextFile(Filenam
e,Overwrite,Unicode)
建立一个名称为 Filename的文本文件，并返回一个
TextStream对象实例； Overwrite为布尔值，若值为 True，
表示可覆盖，否则为不可覆盖，默认值皆为 Flase；
unicode为布尔值，若值为 True，表示为 Unicode文本文件，否则为 ASCII文本文件，默认值皆为 Flase。
DeleteFile Path,Force 删除 Path指定的文件,Force为布尔值，若值为 True，表示删除只读文件，默认值为 False(不删除只读文件 )。
DeleteFolder Path,Force
删除 Path指定的文件夹,Force为布尔值，若值为 True，
表示删除只读文件夹，默认值为 False(不删除只读文件夹 )。
DriveExists(Path) 若 Path指定的磁盘存在，返回 True，否则返回 False
FileExists(Path) 若 Path指定的文件存在，返回 True，否则返回 False
FolderExists(Path) 若 Path指定的文件夹存在，返回 True，否则返回 False
GetDrive(Path) 返回包含 Path的磁盘，返回值为一个 Drive对象实例
GetDriveName(Path) 返回包含 Path的磁盘名称，返回值为一个字符串
GetExtensionName(Path) 返回 Path指定之文件的扩展名，返回值为一个字符串
GetFile(Path) 返回 Path指定的文件，返回值为一个 File对象实例
GetFileName(Path) 返回 Path最后面的文件名称或文件夹名称
GetFolder(Path) 返回 Path指定的文件夹，返回值为一个 Folder对象实例
GetParentFolderName(P
ath)
返回 Path的父文件夹名称，返回值为一个字符串
GetSpecialFolder(Nam
e)
返回特殊文件夹的路径,Name可以是 WindowsFolder、
SystemFolder或 TemporaryFolder，分别代表 Windows文件夹、系统文件夹及存放临时文件的文件夹。
MoveFile Source,
Destination
将 Source指定的文件移动到 Destination中。
MoveFolder Source,
Destination
将 Source指定的文件夹移动到 Destination中。
OpenTextFile(Filename,
Iomode,Create,Format)
打开 Filename指定的文本文件，并返回一个 TextStream
对象实例； Iomode为文本文件的打开方式,1表示只读，
2表示可写,3表示附加到后面； Create表示当文本文件不存在时，是否要建立； Format为文本文件的格式,-1
表示 Unicode文本文件,0表示 ASCII文本文件,-2表示采用系统默认值。
说明：语法中包含括号的方法可以有返回值 。
(2) Folder对象的属性和方法使用 FileSystemObject对象的 CreateFolder方法可以创建并返回一个新 Folder 对象,使用
FileSystemObject对象的 GetFolder则可以返回一个已经存在的 Folder对象 。 Folder对象的属性见表 10-6。
表 10-6 Folder对象的属性属性名 说明
Attributes 设置或返回文件夹的属性 (诸如只读、隐藏、保存等 )。
DateCreated 返回文件夹的建立日期 (此为只读属性 )。
DateLastAccessed 返回文件夹最近一次的存取日期与时间 (此为只读属性 )。
DateLastModified 返回文件夹最近一次的修改日期与时间 (此为只读属性 )。
Drive 返回文件夹所在的磁盘驱动器代号 (此为只读属性 )。
Files 返回一个 Files集合，此集合由包含在文件夹内的每个 File对象实例所组成。
IsRootFolder 若文件夹为磁盘的根目录，返回 True，否则返回 False。
Name 设置或返回文件夹的名称。
ParentFolder 返回文件夹的父文件夹 (返回值为 Folder对象实例 )
Path 返回文件夹的路径 (包含文件夹的名称 )。
ShortName 返回文件夹名称在不支持长文件名的环境下的表示方式。
ShortPath 返回文件夹路径在不支持长文件名的环境下的表示方式。
Size 返回文件夹的大小 (以字节为单位，包含所有文件及子文件夹 )。
SubFolders 返回一个 Folders集合，由包含在文件夹内每个 Folder对象实例所组成。
Type 返回文件夹的类型。
Folder对象的方法见表 10-7。
表 10-7 Folder对象的方法方法 说明
Copy Destination,Overwrite 将文件夹复制到 Destination，若 Overwrite的值为True，表示将已有同名文件夹覆盖，否则不覆盖。
Delete(Porce) 删除文件夹，若 Force的值为 True，表示删除只读文件夹，否则不删除。
Move(Destination) 将文件夹移动到 Destination。
CreateTextFile(Filename,
Overwrite,Unicode)
建立一个名称为 Filename的文本文件，并返回一个 TextStream对象实例； Overwrite为布尔值，若值为 True，表示可覆写，否则为不可覆盖；
Unicode为布尔值，若值为 True，表示为 Unicode
文本文件，否则为 ASCII文本文件； Overwrite和
Unicode的默认值皆为 Flase，若要采用默认值，
可省略不写。
(3) File对象的属性和方法使用 FileSystemObject对象的 GetFile可以返回一个已经存在的 File对象 。 File对象的属性见表 10-8。
表 10-8 File对象的属性属性名 说明
Attributes 设置或返回文件的属性 (例如只读、隐藏、保存等 )。
DateCreated 返回文件的建立日期 (此为只读属性 )。
DateLastAccessed 返回文件最近一次的存取日期与时间 (此为只读属性 )。
DateLastModified 返回文件最近一次的修改日期与时间 (此为只读属性 )。
Drive 返回文件所在的磁盘驱动器代号 (此为只读属性 )。
Name 设置或返回文件的名称。
ParentFolder 返回文件的父文件夹 (返回值为 Folder对象实例 )。
Path 返回文件的路径 (包含文件名 )。
ShortName 返回以,8,3”制的方式表示文件的名称，以适用于不支持长文件名的环境。
ShortPath 返回文件路径在不支持长文件名的环境下的表示方式。
Size 返回文件的大小 (以字节为单位 )。
Type 返回文件的类型
File对象的方法见表 10-9。
表 10-9 File对象的方法方法 说明
Copy destination,
overwrite
将文件复制到 Destination，若 overwrite的值为 True，表示将同名文件覆盖，否则不覆盖。
Delete(Force) 删除文件，若 Force的值为 True，表示删除只读文件，若 Force的值为 False，表示不删除只读文件。
Move(Destination) 将文件移动到 Destination。
OpenAsTextStream(Io
mode,Format)
返回代表文件的 TextStream对象实例； Iomode为文件的打开方式,1表示只读,2表示可写,3表示附加到后面；
Format为文件的格式,-l表示 Unicode文本文件,0表示
ASCII文本文件,-2表示采用系统默认值。
(4) TextStream对象的属性和方法使用 FileSystemObject对象的 CreateTextFile方法可以创建并返回一个新的代表文件的 TextStream对象,使用 FileSystemObject对象的 OpenTextFile方法则可以返回一个已经存在的代表文件的 TextStream对象 。 TextStream对象的属性见表 10-10。
表 10-10 TextStream对象的属性属性名 说明
AtEndOfLine 若文件指针位于文件中某一行的尾端，返回 True，否则返回
False。
AtEndOfStream 若文件指针位于文件的尾端，返回 True，否则返回 False。
Column 返回文件指针位于文件的第几行。
Line 返回文件指针位于文件的第几列。
TextStream对象的方法见表 10-11。
表 10-11 TextStream对象的方法方法 说明
Close 关闭文件。
Read(Num) 从文件指针的位置读取后面的 Num个字符，然后存放至字符串。
ReadAll 读取整个文件，然后存放至字符串。
ReadLine 从文件指针的位置读取一行，然后存放至字符串。
Skip(Num) 读取文件时跳过 Num个字符。
SkipLine 读取文件时跳过一行。
Write(String) 将字符串 String写入文件。
WriteLine(Stri
ng)
将字符串 String写入文件，并在字符串的后面加上换行字符
(vbCrLf)，若没有指定 String，表示写入一个空行。
WriteBlankLin
es(Num)
将 Num个换行字符 (vbCrLf)写入文件，即写入 Num个空行。
3,管理文件夹
FileSystemObject对象管理文件夹的方法有：建立 （ CreateFolder）,移动或重命名 （ MoveFolder）,
删除 （ DeleteFolder） 和复制 （ CopyFolder） 。
【 例 10-3】 在 Web服务器中浏览目录与子目录 。
程序代码,运行结果 。
说明：
① Request("af")为表单提交的文件夹路径；
Session("af")存放的是由 Request("af")转换的文件夹对象 。
② 网页中包括两个列表框：文件夹列表框和文件列表框,分别显示当前目录中的所有子目录和文件名称 。
③ 代码中省去了,表单提交,控件,而在文件夹列表框的,单击,事件过程代码中,激发表单的,提交,事件 。
④ 在浏览器中运行代码,结果如图 10-3所示 。
4,管理文件
FileSystemObject对象管理文件的方法有：建立
（ CreateFolder）,移动或重命名 （ MoveFolder）,
删除 （ DeleteFolder） 和复制 （ CopyFolder） 。
【 例 10-4】 在 Web服务器中浏览,复制和删除文件 。 程序代码,运行结果 。
说明：代码中使用了两个 Hidden控件,分别用于存放,复制文件,和,删除文件,的信息 。
5,读,写文件
TextStream对象对应于一个文本文件的内容,要对文件进行读,写操作,必须使用 TextStream对象 。
TextStream 对 象 可 以 用 FileSystemObject 对象的
OpenTextFile方法或 CreateTextFile方法得到；可以用 Folder对象的 CreateTextFile方法得到；还可以用
File对象的 OpenAsTextStream方法得到 。 其中的
OpenTextFile方法和 CreateTextFile方法还同时具有创建文本文件的功能 。
创建一个 TextStream对象相当于打开一个文本文件,对 文 本 文 件 进 行 读,写 操 作 则 需 要 使 用
TextStream对象的方法,当然这还依赖于文件的打开方式 。
【 例 10-5】 在 Web服务器中浏览,显示和修改文件 。
当用鼠标单击左边列表中的文件夹时,当前目录将转向该文件夹；当用鼠标单击左边列表中的文件时,
右边的多行文本框中将显示文件的内容 。
程序 代码,运行结果 。
说明：
① 代码中使用了 1个 Hidden控件,用于存放修改文件的确定信息 。
② 由于表单的提交内容比较多,采用提交方式为,method=post。
10.2.4 网页计数器组件
1,创建网页计数器组件的实例对象
2,Page Counter对象的方法
3,使用 PageCounter对象
10.2.4 网页计数器组件网页计数器 （ Page Counter） 组件用于统计每个网页被访问的次数,该组件定期把统计的数据存入服务器磁盘上的一个文本文件 —— 访问次数统计数据文件中,所以在停机或出现错误信息,当前数据也不会丢失 。
1,创建网页计数器组件的实例对象使用 Page Counter组 件首 先要 创建 一个 Page
Counter组件的实例 —— Page Counter对象：
Set 实例对象名 =
Server.CreateObject("MSWC.PageCounter ")
表 10-12 Page Counter对象的方法方法 说明
Hits([Page_Path]) 返回由 Page_Path指定的网页的访问次数，如果省略
Page_Path，返回当前网页的访问次数
PageHit() 增加当前网页的访问次数
Reset([Page_Path]) 设置由 Page_Path指定的网页的访问次数为 0，如果省略
Page_Path，设置当前网页的访问次数为 0
2,Page Counter对象的方法
Page Counter对象提供了向,访问次数统计数据文件,增加访问次数的方法以及读取和重新设置访问计数总和的方法,见表 10-12。
3,使用 PageCounter对象下面例子说明 PageCounter组件的使用,先用
Server.CreateObject方法创建对象实例,然后调用
Hits方法得到对当前网页的访问次数 。
【 例 10-6】,网页计数器,。 每点击一次,点击网页,按钮或单击浏览器上的,刷新,按钮都将增加对当前网页的访问次数 。 如果选中,重置网页计数器,
复选框,则把计数器重新设置为 0,如图 10-6所示 。
代码如下：
<%
Set MyPageCounter=Server.CreateObject("MSWC.PageCounter")
' 创建对象实例
MyPageCounter.PageHit ' 增加此网页的计数器值
If Request("reset")="on" Then ' 是否提交重置信息
MyPageCounter.Reset() ' 重置此网页的计数器
End If
%>
<html>
<head><title>网页计数器示例 </title></head>
<body><H3>网页计数器示例 </H3><p>
此网页的点击数为 <%=MyPageCounter.Hits%><BR>
<FORM NAME="PageCounter" METHOD="GET"
ACTION="PageCounter.asp">
<INPUT TYPE="SUBMIT" VALUE="点击网页 "><P><P>
<INPUT TYPE="CHECKBOX" NAME="reset">重置网页计数器
</FORM>
</body>
</html>
说明：选中复选框控件,服务器端将得到提交值：
,on” 。
10.3 上机练习
【 练习 10-1】 设计可以浏览,显示文件属性的网页程序,如图 10-7所示图 10-7 浏览、显示文件属性程序代码,运行结果 。
说明：代码中使用了 1个 Hidden控件,用于存放和返回列表框中选定项的序号 。
10.2 课堂教学
10.3 上机练习
10.4 课后作业第 10课 ASP的内置组件
10.1 课前导读
ASP的内置组件指安装 ASP时自动注册到 ASP Web服务器上的组件 。 主要包括表 10-1中的组件 。
表 10-1 ASP的内置组件组件名称 中文名称 主要作用
AdRotator 广告轮显组件 随机显示广告图像 (图标 )
ContentRotator 内容轮显组件 随机显示 Web页面
ContentLinking 内容链接组件 网页导航
Counter 计数器组件 统计页面访问次数、广告单击次数等
PageCounter 页面计数器组件 仅用来统计页面访问次数
BrowserCapabiliti
es
浏览器信息组件 获取客户浏览器信息
Dictionary 数据目录组件 保存数据
FileAccess 文件访问组件 访问文件系统，创建、显示文件，读取驱动器信息等
DatabaseAccess 数据库访问组件 在应用程序中访问数据库，可以显示表的整个内容、允许用户构造查询以及在
Web页执行其他一些数据库查询使用 ASP内置组件必须先使用 Server内置对象的
CreateObject方法创建该组件的一个实例 （ 变量 ）,
或在 GlobaLasa文件中使用 <Object>标记创建该组件的一个实例 （ 变量 ）,然后就可以把它当 ASP内置对象来处理,引用该组件的属性,方法,集合来实现组件提供的功能 。
10.2 课堂教学
10.2.1 广告轮显组件
10.2.2 内容轮显组件
10.2.3 文件访问组件
10.2.4 网页计数器组件
10.2.1 广告轮显组件
1,创建广告轮显组件的实例对象
2,AdRotator对象的属性和方法
3,使用广告轮显组件
10.2.1 广告轮显组件使用广告轮显 （ AdRotator） 组件可以在网页上轮换显示广告 。 AdRotator组件在每次用户加载或刷新网页时为网页选择一个广告 。 另外,如果需要更改广告,
则只需要在重定向和轮换计划文件中更改此广告即可,
而不必修改包含此广告的所有 ASP文件 。 如果此广告出现在网站中的许多网页上,这样就可以节省开发时间 。
1,创建广告轮显组件的实例对象使用 Ad Rotator组件首先要创建一个 AdRotator组件的实例 —— AdRotator对象：
Set 实例对象名 =
Server.CreateObject("MSWC.AdRotator")
2,AdRotator对象的属性和方法
AdRotator对象有三个属性 Border,TargetFrame，
Chickable。 它们分别指定图片的边框大小,是否提供超连接,还有连接的目标框 。 各属性说明见表 10-2。
表 10-2 AdRotator对象各属性的说明属性名 使用格式 作用描述 备注
Border Border=Size 指定显示广告图像的边框宽度 Size为像素值
TargetFrame TargetFrame=Frame 指定图标链接的目标框架 Frame为框架名
Chickable Chickable=Value 指定广告是否存在超链接 Value取 True或 False
AdRotator对象的方法只有一个,其格式为：
GetAdvertisement(RotatorschedulePath)
说明,GetAdvertisement方法用来读取广告安排文件所设定的广告图标信息 。
3,使用广告轮显组件使用广告轮显组件就是使用 AdRotator对象 。 使用 AdRotator对象需要两个文件：重定向文件 （ 包含指向广告的 URL链接 ） 以及轮换计划文件 （ 包含显示数据 ） 。 通过建立这两个文件,网站上的任何 ASP网页都可使用 AdRotator对象 。
使用广告轮显组件的步骤如下：
(1) 创建一个 AdRotator轮换计划文件轮换计划文件用于为要显示的广告编录信息,这些信息包括单击广告后的重定向信息,要显示的广告的大小,要显示的图象,广告的注释,以及表明特定广 告 被 选 中 的 频 率 的 数 字 。 在 ASP网 页 中 调 用
AdRotator组件的方法时,组件会使用此文件来选择要显示的广告 。
轮换计划文件用星号 (*)分成两节 。 第一节提供了所有广告的公共信息,第二节则列出了每个广告的特定数据 。 若 要 测 试 轮 换 计 划 文 件,可以使用
Microsoft.com上的一些图像作为广告图像 。 表 10-3概述了轮换计划文件的结构 。
表 10-3 轮换计划文件的结构内容 说明
Redirection URL
形式的、可在显示广告前执行的 ASP文件的路径和名称。此文件可用于记录单击广告的用户的有关信息。可以记录客户端 IP地址、客户端看到的广告所在的网页、广告点击的频率等信息。如果没有任何 URL与第 2节中的广告相关联,ASP文件也可以处理这种情况。在按广告点击次数向广告客户收费时，最好能够向客户证明这些点击不是同一位用户反复点击
“刷新”的结果。
Width 每个广告图像的宽度，以像素为单位。默认值为 440。
Height 每个广告图像的高度，以像素为单位。默认值为 60。
Border 环绕在每个广告图像周围的边框宽度。默认值为 1。
* 将第 1节与第 2节分开。此字符必须独立成行。
图像 URL 广告的图像文件的虚拟路径和文件名。
广告客户主页的
URL
选择此链接时跳转到的 URL。如果没有链接，请使用连字符
(-)。
文本 浏览器不支持图片时显示的文字。
印记 一个整数，表示 Ad Rotator组件选择广告时选中此广告的相对几率。
(2) 创建一个 AdRotator重定向文件用户单击广告时,用 ASP编写的 AdRotator重定向文件可以在显示广告之前,捕获某些信息,并将这些信息写入一个文件 。
该文件首先读取用户单击广告时的信息：
URL=Request("URL"),然后将网页导向广告指向的网页,Response.Redirect URL。
(3) 创建一个调用 AdRotator组件的 ASP网页来显示和轮换广告调用 AdRotator组件首先要创建一个 AdRotator对象：
Set objLoad = Server.CreateObject("MSWC.AdRotator")
如果网页使用框架,则应设置 TargetFrame属性,
以便将在这个框架中打开 URL。
objLoad.TargetFrame="TARGET=new"
然后可以设置其他的 AdRotator属性：
objLoad.Border=1
最后调用 GetAdvertisement方法从文本文件获取随机广告 。
【 例 10-1】 设计随机广告播放器 。
准备 3个充作广告的图片文件,MARU1.GIF、
MARU2.GIF,MARU3.GIF。 然后依次编写如下文件：
① 轮换计划文件 ss.txt,其中代码为：
Redirect ar.asp
width 113
height 113
border 1
*
MARU1.GIF
../../第 2章例题 /2_1.htm ' 使用相对路径调用网页文件 2_1.htm
第 2章例题 2_1
30
MARU2.GIF
../../第 2章例题 /2_2.htm
第 2章例题 2_2
30
MARU3.GIF
../../第 2章例题 /2_3.htm
第 2章例题 2_3
30
② 重定向文件 ar.asp,其代码如下：
<%
URL=Request("URL")
Response.Redirect URL
%>
③ 显示和轮换广告的网页文件 ShowAd.asp,其代码如下：
<HTML>
<HEAD>
<TITLE> 广告轮显 </TITLE>
</HEAD>
<BODY>
<H1>广告轮显 </H1>
<%
set objad = server.CreateObject("MSWC.AdRotator")
Response.Write objad.GetAdvertisement("ss.txt")
Set objad = Nothing
%>
</BODY>
</HTML>
在浏览器中运行网页文件 ShowAd.asp,单击广告图片,将指向所连接的第 2章例题,如图所示 。
10.2.2 内容轮显组件
1,创建内容轮显组件的实例对象
2,内容安排文件
3,Content Rotator对象的方法
4,使用内容轮显组件
10.2.2 内容轮显组件内容轮显 （ Content Rotator ） 组件和 Ad
Rotator组件十分类似,只是进行随机变换的是页面内容而不仅仅是一个图标,该组件可以用于：
① 每日新闻：可以随机显示今日有关网站的不同方面的新信息,例如访问者情况,新闻组信息,访问用户的信息交换 。
② 随机连接：随机指向并显示你的各个网站内容 。
③ 广告显示：这里面提请注意的是显然你可以制作比 Ad Rotator对象所提供的循环广告更加复杂的广告显示系统 。
1,创建内容轮显组件的实例对象使用 Content Rotator组件首先要创建一个 Content
Rotator组件的实例 —— Content Rotator对象：
Set 实例对象名
=Server.CreateObject("MSWC.ContentRotator")
2,内容安排文件使用 Content Rotator组件需要一个内容安排文件：
将所有欲显示的网页内容都包含在内,这个文件是一般的文本文件,可以利用任何通用的文本编辑器处理,可以存储为任何名称和后缀 。
文件的格式如下：
%%[#n[//注释 ]
显示内容说明：
① 整个文件由多个条目组成,每个条目由以上两部分组成 。
② 其中 n表示显示频率的权重,权重越高,显示频率越大 。 其默认值为 1。
③ 注释内容是可选的 。
④ 显示内容是任何网页内容 。
3,Content Rotator对象的方法
Content Rotator对象没有属性,只有两个方法 。
① ChooseContent()方法：读取内容安排文件的一个条目并显示在浏览器窗口 。 其语法格式：
ChooseContent(〈 内容安排文件 〉 )
② GetAllContent()方法：读取内容安排文件的所有条目,每个条目后加 <HR>换行标记,然后显示在浏览器窗口 。 其语法格式：
GetAllContent(〈 内容安排文件 〉 )
说明：两个方法中的 〈 内容安排文件 〉 都表示内容安排文件的相对路径或虚拟路径 。
4,使用内容轮显组件下面以具体实例说明内容轮显组件的使用 。
【 例 10-2】 设计随机文本播放器 。
建立一个具有上下两个框架窗口的框架网页
(main.htm),上部框架为随机文本播放器,用来显示内容安排文件设定的网页信息,对应文件为 top.asp：
下部框架用来显示个人主页,对应文件为 Home.asp。
① 框架网页 main.htm的代码如下：
<HTML>
<HEAD><TITLE>我的主页 </TITLE></HEAD>
<frameset rows="120,*">
<FRAME SRC="top.asp" name=top>
<FRAME SRC="home.asp" name=bottom>
</FRAMESET>
</HTML>
② 随机文本播放器文件 top.asp的代码如下：
<HTML>
<HEAD></HEAD>
<BODY>
<%
Set MyContent=Server.createObject("MSWC.ContentRotator")
Response.Write MyContent.ChooseContent("ss.txt")
Set MyContent=nothing
%>
</BODY>
</HTML>
③ 内容安排文件 ss.txt的内容如下：
%%#2 //这是第一个记录
<Font Color=Red>欢迎访问我们的讨论组 </Font>
%%#3 //这是第二个记录
<B>不要忘了把我们站点放入书签 </B>
%%#5 //这是第三个记录请从我们的下载区下载共享软件
<UL>
<Li>ActiveX组件
<Li>连接检查
</UL>
说明：该文件中有三个记录,首先用两个百分号
%进行分隔确认,说明这是一个记录的开始,然后在井号 #后面是给定的权重,例子中的权重分别是 2,3,5，
那么显示概率就分别为 2/10,3/10,5/10,这里面权重值为 0到 65535的整数,如果设置为 0,就不可能显示,显示概率是该权重除以所有权重之和 。
④ 简化的主页文件 Home.asp代码如下：
<HTML>
<HEAD><TITLE>我的主页 </TITLE></HEAD>
<BODY>
<H1>我的主页 </H1>
内容轮显组件的使用
</BODY>
</HTML>
图 10-2 随机文本播放器
10.2.3 文件访问组件
1,创建文件访问组件的实例
—— FileSystemObject对象
2,文件系统对象模型
3,管理文件夹
4,管理文件
5,读、写文件
10.2.3 文件访问组件使用文件访问 （ File Access） 组件是为了在服务器端对文件和文件夹进行存取访问 。
1,创建文件访问组件的实例 ——
FileSystemObject对象要使用文件访问组件,首先必须创建文件访问组件的实例,FileSystemObject对象 。 FileSystemObject对象是 VBScript的对象,其创建命令语法如下：
Set 实例对象名 =
Server.CreateObject("Scripting.FileSystemObject")
使用文件访问组件就是使用文件系统对象：
FileSystemObject对象 。
2,文件系统对象模型
FileSystemObject对象模型包括若干对象,可以用于创建,改编,移动和删除文件夹或文件,还可以用 于 获 取 文 件 夹 或 文 件 的 各 种 信 息 。
FileSystemObject对象模型所包含的对象见表 10-4。
表 10-4 FileSystemObject对象模型中的对象对象 描述
Drive 允许收集关于系统所用的驱动器的信息，诸如驱动器有多少可用空间，其共享名称是什么，等等。
Folder 允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。
Files 允许创建、删除或移动文件，并向系统查询文件的名称、路径等。
FileSystemO
bject
主要对象，提供一整套用于创建、删除、收集相关信息、以及通常的操作驱动器、文件夹和文件的方法。
TextStream 允许读和写文本文件。
说明,FileSystemObject对象提供了一整套用于创建,删除,收集相关信息,以及通常的操作驱动器,
文件夹和文件的方法,为简单起见本教程只介绍使用
FileSystemObject对象 管理 文件 夹,文件,使用
TextStream对象读写文件 。
(1) FileSystemObject对象的方法
FileSystemObject对象可以用来存取 Web服务器上的文件与文件夹 。 其方法的语法及说明见表 10-5。
表 10-5 FileSystemObject对象的方法方法 说明
BuildPath(Path,Name)
将 Name加到 Path后面，必要时会自动修正路径符号 (\)，
例如 objFSO.BuildPath(Server.MapPath("\F"),"a.asp")会返回 c:\inetpub\wwwroot\F\a.asp路径。
CopyFile Source,
Destination,Overwrite
将 Source指定的文件复制到 Destination，若 Overwrite的值为 True表示覆盖 Destination的已有同名文件。
CopyFolder Soume,
Destination,Overwrite
将 Source指定的文件夹复制到 Destination，若 Overwrite
的值为 True表示覆盖 Destination的已有同名文件夹。
CreateFolder(Foldema
me)
建立 Foldemame文件夹，并返回一个 Folder对象实例
CreateTextFile(Filenam
e,Overwrite,Unicode)
建立一个名称为 Filename的文本文件，并返回一个
TextStream对象实例； Overwrite为布尔值，若值为 True，
表示可覆盖，否则为不可覆盖，默认值皆为 Flase；
unicode为布尔值，若值为 True，表示为 Unicode文本文件，否则为 ASCII文本文件，默认值皆为 Flase。
DeleteFile Path,Force 删除 Path指定的文件,Force为布尔值，若值为 True，表示删除只读文件，默认值为 False(不删除只读文件 )。
DeleteFolder Path,Force
删除 Path指定的文件夹,Force为布尔值，若值为 True，
表示删除只读文件夹，默认值为 False(不删除只读文件夹 )。
DriveExists(Path) 若 Path指定的磁盘存在，返回 True，否则返回 False
FileExists(Path) 若 Path指定的文件存在，返回 True，否则返回 False
FolderExists(Path) 若 Path指定的文件夹存在，返回 True，否则返回 False
GetDrive(Path) 返回包含 Path的磁盘，返回值为一个 Drive对象实例
GetDriveName(Path) 返回包含 Path的磁盘名称，返回值为一个字符串
GetExtensionName(Path) 返回 Path指定之文件的扩展名，返回值为一个字符串
GetFile(Path) 返回 Path指定的文件，返回值为一个 File对象实例
GetFileName(Path) 返回 Path最后面的文件名称或文件夹名称
GetFolder(Path) 返回 Path指定的文件夹，返回值为一个 Folder对象实例
GetParentFolderName(P
ath)
返回 Path的父文件夹名称，返回值为一个字符串
GetSpecialFolder(Nam
e)
返回特殊文件夹的路径,Name可以是 WindowsFolder、
SystemFolder或 TemporaryFolder，分别代表 Windows文件夹、系统文件夹及存放临时文件的文件夹。
MoveFile Source,
Destination
将 Source指定的文件移动到 Destination中。
MoveFolder Source,
Destination
将 Source指定的文件夹移动到 Destination中。
OpenTextFile(Filename,
Iomode,Create,Format)
打开 Filename指定的文本文件，并返回一个 TextStream
对象实例； Iomode为文本文件的打开方式,1表示只读，
2表示可写,3表示附加到后面； Create表示当文本文件不存在时，是否要建立； Format为文本文件的格式,-1
表示 Unicode文本文件,0表示 ASCII文本文件,-2表示采用系统默认值。
说明：语法中包含括号的方法可以有返回值 。
(2) Folder对象的属性和方法使用 FileSystemObject对象的 CreateFolder方法可以创建并返回一个新 Folder 对象,使用
FileSystemObject对象的 GetFolder则可以返回一个已经存在的 Folder对象 。 Folder对象的属性见表 10-6。
表 10-6 Folder对象的属性属性名 说明
Attributes 设置或返回文件夹的属性 (诸如只读、隐藏、保存等 )。
DateCreated 返回文件夹的建立日期 (此为只读属性 )。
DateLastAccessed 返回文件夹最近一次的存取日期与时间 (此为只读属性 )。
DateLastModified 返回文件夹最近一次的修改日期与时间 (此为只读属性 )。
Drive 返回文件夹所在的磁盘驱动器代号 (此为只读属性 )。
Files 返回一个 Files集合，此集合由包含在文件夹内的每个 File对象实例所组成。
IsRootFolder 若文件夹为磁盘的根目录，返回 True，否则返回 False。
Name 设置或返回文件夹的名称。
ParentFolder 返回文件夹的父文件夹 (返回值为 Folder对象实例 )
Path 返回文件夹的路径 (包含文件夹的名称 )。
ShortName 返回文件夹名称在不支持长文件名的环境下的表示方式。
ShortPath 返回文件夹路径在不支持长文件名的环境下的表示方式。
Size 返回文件夹的大小 (以字节为单位，包含所有文件及子文件夹 )。
SubFolders 返回一个 Folders集合，由包含在文件夹内每个 Folder对象实例所组成。
Type 返回文件夹的类型。
Folder对象的方法见表 10-7。
表 10-7 Folder对象的方法方法 说明
Copy Destination,Overwrite 将文件夹复制到 Destination，若 Overwrite的值为True，表示将已有同名文件夹覆盖，否则不覆盖。
Delete(Porce) 删除文件夹，若 Force的值为 True，表示删除只读文件夹，否则不删除。
Move(Destination) 将文件夹移动到 Destination。
CreateTextFile(Filename,
Overwrite,Unicode)
建立一个名称为 Filename的文本文件，并返回一个 TextStream对象实例； Overwrite为布尔值，若值为 True，表示可覆写，否则为不可覆盖；
Unicode为布尔值，若值为 True，表示为 Unicode
文本文件，否则为 ASCII文本文件； Overwrite和
Unicode的默认值皆为 Flase，若要采用默认值，
可省略不写。
(3) File对象的属性和方法使用 FileSystemObject对象的 GetFile可以返回一个已经存在的 File对象 。 File对象的属性见表 10-8。
表 10-8 File对象的属性属性名 说明
Attributes 设置或返回文件的属性 (例如只读、隐藏、保存等 )。
DateCreated 返回文件的建立日期 (此为只读属性 )。
DateLastAccessed 返回文件最近一次的存取日期与时间 (此为只读属性 )。
DateLastModified 返回文件最近一次的修改日期与时间 (此为只读属性 )。
Drive 返回文件所在的磁盘驱动器代号 (此为只读属性 )。
Name 设置或返回文件的名称。
ParentFolder 返回文件的父文件夹 (返回值为 Folder对象实例 )。
Path 返回文件的路径 (包含文件名 )。
ShortName 返回以,8,3”制的方式表示文件的名称，以适用于不支持长文件名的环境。
ShortPath 返回文件路径在不支持长文件名的环境下的表示方式。
Size 返回文件的大小 (以字节为单位 )。
Type 返回文件的类型
File对象的方法见表 10-9。
表 10-9 File对象的方法方法 说明
Copy destination,
overwrite
将文件复制到 Destination，若 overwrite的值为 True，表示将同名文件覆盖，否则不覆盖。
Delete(Force) 删除文件，若 Force的值为 True，表示删除只读文件，若 Force的值为 False，表示不删除只读文件。
Move(Destination) 将文件移动到 Destination。
OpenAsTextStream(Io
mode,Format)
返回代表文件的 TextStream对象实例； Iomode为文件的打开方式,1表示只读,2表示可写,3表示附加到后面；
Format为文件的格式,-l表示 Unicode文本文件,0表示
ASCII文本文件,-2表示采用系统默认值。
(4) TextStream对象的属性和方法使用 FileSystemObject对象的 CreateTextFile方法可以创建并返回一个新的代表文件的 TextStream对象,使用 FileSystemObject对象的 OpenTextFile方法则可以返回一个已经存在的代表文件的 TextStream对象 。 TextStream对象的属性见表 10-10。
表 10-10 TextStream对象的属性属性名 说明
AtEndOfLine 若文件指针位于文件中某一行的尾端，返回 True，否则返回
False。
AtEndOfStream 若文件指针位于文件的尾端，返回 True，否则返回 False。
Column 返回文件指针位于文件的第几行。
Line 返回文件指针位于文件的第几列。
TextStream对象的方法见表 10-11。
表 10-11 TextStream对象的方法方法 说明
Close 关闭文件。
Read(Num) 从文件指针的位置读取后面的 Num个字符，然后存放至字符串。
ReadAll 读取整个文件，然后存放至字符串。
ReadLine 从文件指针的位置读取一行，然后存放至字符串。
Skip(Num) 读取文件时跳过 Num个字符。
SkipLine 读取文件时跳过一行。
Write(String) 将字符串 String写入文件。
WriteLine(Stri
ng)
将字符串 String写入文件，并在字符串的后面加上换行字符
(vbCrLf)，若没有指定 String，表示写入一个空行。
WriteBlankLin
es(Num)
将 Num个换行字符 (vbCrLf)写入文件，即写入 Num个空行。
3,管理文件夹
FileSystemObject对象管理文件夹的方法有：建立 （ CreateFolder）,移动或重命名 （ MoveFolder）,
删除 （ DeleteFolder） 和复制 （ CopyFolder） 。
【 例 10-3】 在 Web服务器中浏览目录与子目录 。
程序代码,运行结果 。
说明：
① Request("af")为表单提交的文件夹路径；
Session("af")存放的是由 Request("af")转换的文件夹对象 。
② 网页中包括两个列表框：文件夹列表框和文件列表框,分别显示当前目录中的所有子目录和文件名称 。
③ 代码中省去了,表单提交,控件,而在文件夹列表框的,单击,事件过程代码中,激发表单的,提交,事件 。
④ 在浏览器中运行代码,结果如图 10-3所示 。
4,管理文件
FileSystemObject对象管理文件的方法有：建立
（ CreateFolder）,移动或重命名 （ MoveFolder）,
删除 （ DeleteFolder） 和复制 （ CopyFolder） 。
【 例 10-4】 在 Web服务器中浏览,复制和删除文件 。 程序代码,运行结果 。
说明：代码中使用了两个 Hidden控件,分别用于存放,复制文件,和,删除文件,的信息 。
5,读,写文件
TextStream对象对应于一个文本文件的内容,要对文件进行读,写操作,必须使用 TextStream对象 。
TextStream 对 象 可 以 用 FileSystemObject 对象的
OpenTextFile方法或 CreateTextFile方法得到；可以用 Folder对象的 CreateTextFile方法得到；还可以用
File对象的 OpenAsTextStream方法得到 。 其中的
OpenTextFile方法和 CreateTextFile方法还同时具有创建文本文件的功能 。
创建一个 TextStream对象相当于打开一个文本文件,对 文 本 文 件 进 行 读,写 操 作 则 需 要 使 用
TextStream对象的方法,当然这还依赖于文件的打开方式 。
【 例 10-5】 在 Web服务器中浏览,显示和修改文件 。
当用鼠标单击左边列表中的文件夹时,当前目录将转向该文件夹；当用鼠标单击左边列表中的文件时,
右边的多行文本框中将显示文件的内容 。
程序 代码,运行结果 。
说明：
① 代码中使用了 1个 Hidden控件,用于存放修改文件的确定信息 。
② 由于表单的提交内容比较多,采用提交方式为,method=post。
10.2.4 网页计数器组件
1,创建网页计数器组件的实例对象
2,Page Counter对象的方法
3,使用 PageCounter对象
10.2.4 网页计数器组件网页计数器 （ Page Counter） 组件用于统计每个网页被访问的次数,该组件定期把统计的数据存入服务器磁盘上的一个文本文件 —— 访问次数统计数据文件中,所以在停机或出现错误信息,当前数据也不会丢失 。
1,创建网页计数器组件的实例对象使用 Page Counter组 件首 先要 创建 一个 Page
Counter组件的实例 —— Page Counter对象：
Set 实例对象名 =
Server.CreateObject("MSWC.PageCounter ")
表 10-12 Page Counter对象的方法方法 说明
Hits([Page_Path]) 返回由 Page_Path指定的网页的访问次数，如果省略
Page_Path，返回当前网页的访问次数
PageHit() 增加当前网页的访问次数
Reset([Page_Path]) 设置由 Page_Path指定的网页的访问次数为 0，如果省略
Page_Path，设置当前网页的访问次数为 0
2,Page Counter对象的方法
Page Counter对象提供了向,访问次数统计数据文件,增加访问次数的方法以及读取和重新设置访问计数总和的方法,见表 10-12。
3,使用 PageCounter对象下面例子说明 PageCounter组件的使用,先用
Server.CreateObject方法创建对象实例,然后调用
Hits方法得到对当前网页的访问次数 。
【 例 10-6】,网页计数器,。 每点击一次,点击网页,按钮或单击浏览器上的,刷新,按钮都将增加对当前网页的访问次数 。 如果选中,重置网页计数器,
复选框,则把计数器重新设置为 0,如图 10-6所示 。
代码如下：
<%
Set MyPageCounter=Server.CreateObject("MSWC.PageCounter")
' 创建对象实例
MyPageCounter.PageHit ' 增加此网页的计数器值
If Request("reset")="on" Then ' 是否提交重置信息
MyPageCounter.Reset() ' 重置此网页的计数器
End If
%>
<html>
<head><title>网页计数器示例 </title></head>
<body><H3>网页计数器示例 </H3><p>
此网页的点击数为 <%=MyPageCounter.Hits%><BR>
<FORM NAME="PageCounter" METHOD="GET"
ACTION="PageCounter.asp">
<INPUT TYPE="SUBMIT" VALUE="点击网页 "><P><P>
<INPUT TYPE="CHECKBOX" NAME="reset">重置网页计数器
</FORM>
</body>
</html>
说明：选中复选框控件,服务器端将得到提交值：
,on” 。
10.3 上机练习
【 练习 10-1】 设计可以浏览,显示文件属性的网页程序,如图 10-7所示图 10-7 浏览、显示文件属性程序代码,运行结果 。
说明：代码中使用了 1个 Hidden控件,用于存放和返回列表框中选定项的序号 。
