《第使用ActiveX服务器组件讲课资料》由会员分享，可在线阅读，更多相关《第使用ActiveX服务器组件讲课资料（91页珍藏版）》请在金锄头文库上搜索。
1、第11章 使用ActiveX服务器组件,本章主要内容,安装好ASP使用环境后，就可以使用一些它附带的组件，还可以从Internet上下载无数的组件。甚至可以创建自己的组件。本章主要讨论以下各种组件的使用： 文件访问组件 广告轮播组件 浏览器信息组件 内容链接组件 创建自己的组件,本章目录,11.4 内容链接组件,11.1.1 使用文本文件,11.1.2 文件夹对象,11.1.3 驱动器,11.1.4 文件处理,11.2 广告轮播,11.1 文件访问,本章小结,习题,11.5 自制ActiveX服务器组件,11.5.1 建立组件文件,11.3 浏览器信息组件,11.5.2 注册组件,11.5.3
2、 在网页中创建并使用组件,11.1 文件访问,ASP提供了FileSystemObject对象用于获得对文件、文件夹和驱动器的访问。使用FileSystemObject对象，可以创建File、Folder和Drive对象，分别用来代表计算机上的文件、文件夹和驱动器。每一个对象都有一些属性和方式来完成所需的任务。,1.创建新文件,要创建新文件，要按如下步骤： 使用Server对象的CreateObject方法创建文件系统对象（FileSystemObject） 用文件系统对象的CreateTextFile方法创建文本流文件（TextStream） 使用文本流文件的写方法写入一些内容 用close
3、方法关闭这些对象 释放这些对象,创建新文件例,网页内容 ,创建一个文件系统对象,执行本例 脚本,建立文本文件对象,向文件中写入内容,关闭文件,撤消对象,创建新文件例,本例的代码执行后没有任何显示，完成后可通过文本编辑器打开C盘根目录下asp.txt文件，观察写入的内容。 例中涉及以下内容： 创建文件系统对象 建立文本文件对象 向文件中写入内容 关闭文本文件 撤消文本文件对象,（1）创建文件系统对象,通过服务器对象创建一个文件系统对象（FileSystemObject）。 形式如下： Set objFS=Server.CreateObject(Scripting.FileSystemObject
4、) 其中：objFS为创建的对象名称。,（2）建立文本文件对象,通过执行文件系统对象的CreateTextFile方法，可以建立一个文本文件对象，形式如下： Set 文件变量名=CreateTextFile(文件路径，覆盖方式，编码方式) 其中： 文件路径指出要创建文件所在的目录路径及文件名，使用物理路径。 覆盖方式是可选的，默认为TRUE，表示如果存在同名的文件，则覆盖该文件，若设置为FALSE，则当存在同名文件时会返回错误信息。 编码方式是可选的，默认为FALSE，表示使用ASC码形式进行创建和保存。如果选择TRUE，将以Unicode方式创建和保存。,（3）向文件中写入内容,向文件中写入
5、内容可使用文本文件对象的有关方法，主要有如下几种： write(字符串)：将一个字符串写入文本文件，但不换行。 writeLine(字符串)：将一个字符串写入文本文件，并随后写入一个换行符。字符串缺省时，表示只写入一个换行符。 WriteBlankLines(n)：写入n个换行符。,（4）关闭文本文件,使用文本文件对象的close方法关闭文本文件，形式如下： objTextS.Close 其中objTexts为文本文件对象。,（5）撤消文本文件对象,撤消文本文件对象和撤消文件系统对象分别使用如下形式： set objTextS=Nothing set objFS=nothing,2. 读取文件
6、,要读取文件中的数据，首先需要用文件系统对象的打开文本文件（OpenTextFile）方法来创建一个TextStream对象，再用该对象的有关方法来对文件进行读取操作。,读取文件例, loop objTextS.Close set objTextS=Nothing set objFS=nothing %,打开文件,建立文件系统对象,当文件没有结束时循环,读一行,输出一行,关闭并释放对象,读取文件例,浏览结果如图,验证本例,打开文本文件,打开一个文本文件形式如下： Set 文件变量=objFS.OpenTextFile(文件路径，打开方式，创建选项，编码方式) 其中： 打开方式是可选参数，指出打
7、开该文件是用来进行读、写还是追加。默认为1表示读，设置为2时表示进行写操作，8表示进行追加操作。 创建选项是可选参数，默认为False，当设为TRUE时，表示若该文件不存在，创建该文件。 格式中的“文件路径”和“编码方式”的含义与CreateTextFile方法的相应参数相同。,文本文件对象的属性,文本文件对象有如下几种属性用于读的控制操作： AtEndOfLine表示当前是否处于行末。 AtEndOfStream表示当前是否处于文件结束位置。 Column用于返回当前字符的列号，第一个字符的列号为1。 Line用于返回当前行处于文件中的第几行。,文本文件中读取数据,文本文件中读取数据有如下几
8、种方法： Read(n) 从文本文件中读取n个字符。 ReadLine 用于从文本文件中读取给定行号的一行内容。 ReadAll 用于读取文件的所有内容。 Skip(n) 跳过n个字符。 SkipLine(n) 跳过n行。,3. 文件中追加数据,要向已经存在的文件中添加内容，可以使用添加方式打开文件，即在打开文件的方法中选择打开方式为8。形式如下： set objTextS=objFS.OpenTextFile(C:asp.txt,8) 其后就可以象创建文件时那样写入内容了。,文件中追加数据例,建立文件系统对象,打开文件,关闭并释放对象,写入几行内容,文件中追加数据例,因本例中使用缺省方式，应
9、先执行例1的脚本。本例脚本执行完后，可通过运行例2中的脚本来观察结果，显示形式如图所示。,执行例1 脚本,执行本例 脚本,执行例2的脚本 观察结果,11.1.2 文件夹对象,通过文件系统对象的GetFolder方法，可以创建文件夹对象，形式为： set 文件夹变量=文件系统对象.GetFolder(“目录名”) 这里的目录名使用物理路径的形式，如果要为某个虚拟目录建立文件夹对象，可以先使用Server对象的MapPath方法来求出对应的物理路径。,1. 文件夹对象的属性,创建文件夹对象后，就可以使用该对象的以下属性： name属性=求出该文件夹的名称 用Files属性集合=求出该文件夹中包含的
10、所有文件 用SubFolders属性集合=得到该文件夹中所包含的所有子文件夹。,1. 文件夹对象的属性,另外还有： Attributes=文件属性 DateCreated= 建立日期和时间 DateLastAccessed=最后访问日期和时间 DateLastModified=最后修改日期和时间,2. 文件夹对象的方法,可以使用如下方法： Copy=复制 Delete=删除 Move=移动,文件夹对象使用举例,例4：显示C盘根目录中所有文件和文件夹 next,建立文件系统对象,建立文件夹对象,对文件夹中所以子文件夹循环,显示文件夹名称、标志、日期时间,文件夹对象使用举例,for each fi
11、le in objFolder.Files str=file.name for i=18 to len(str) step -1 str=str Response.write file.DateLastModified & next set objFolder=Nothing set objFS=nothing %,对文件夹中所以文件循环,显示文件名、大小,显示文件日期时间,释放对象,文件夹对象使用举例,浏览结果,验证本例,11.1.3 驱动器,通过文件系统对象的GetDrive方法可以创建一个驱动器对象，使用形式为： set 驱动器对象变量=文件系统变量.GetDrive(“驱动器名”) 例
12、如： set objDrive=objFS.GetDrive(“C:”),驱动器常用的属性,常用的属性： FileSystem 文件系统类型 VolumeName 卷标名称 FreeSpace 自由空间 TotalSize 总空间 RootFolder 根文件夹 SerialNumber 序列号 ShareName 共享名称 IsReady 是否就绪 DriveType 启动器类型,驱动器使用例,例5：显示某驱动器的一些属性 str=str+驱动器字母: & objDrive.DriveLetter & if objDrive.IsReady then str=str+处于就绪状态 str=s
13、tr+文件系统: & objDrive.filesystem & str=str+自由空间: & int(objDrive.freespace/1024) & KB str=str+总空间: & int(objDrive.Totalsize/1024/1024) & MB else str=str+不在就绪状态 end if,建立文件系统对象，建立驱动器对象,驱动器是否就绪,驱动器使用例,例5：显示某驱动器的一些属性（续） select case objDrive.DriveType case 0:drivetype=未知 case 1:drivetype=软盘 case 2:drivetyp
14、e=硬盘 case 3:drivetype=网络盘 case 4:drivetype=CD-ROM case 5:drivetype=虚拟盘 end select str=str+驱动器类型为: & drivetype & Response.write str set objdrivet=Nothing set objFS=nothing %,释放对象,判别驱动器类型,驱动器使用例,浏览结果如图所示。,注意：读者验证本例时，应在脚本的第3行中改用与自已机器相适应的驱动器名。,验证本例,11.1.4 文件处理,常用的文件处理包括文件的复制、移动、删除以及检测文件是否存在等。通过文件系统对象的相应
15、方法就可以很方便地实现这些操作。,1拷贝文件,使用文件系统对象的CopyFile方法，可以实现文件的复制，使用形式： 对象变量名.CopyFile 源文件，目标文件，覆盖方式 其中：指出源文件时，可包含统配符来指出多个文件，覆盖方式表示当目标文件存在时，是否覆盖。,2移动文件,使用文件系统对象的MoveFile方法，可以实现文件或文件夹的复制，使用形式： 对象变量名.MoveFile 源文件，目标文件 同样，可使用统配符来指出移动多个文件，当目标文件存在时，系统将给出错误提示。,3删除文件,使用文件系统对象的DeleteFile方法，可以删除指定的文件，使用格式如下： 对象变量名.Delete
16、File 文件路径 同样可以使用统配符来指出多个文件。,4检测文件是否存在,通过文件系统对象的FileExists方法，可以检测文件是否存在，使用形式为： 对象变量名.FileExists(“文件路径”) 对于象文本文件，在打开前，可以先用此方法了解文件是否存在，再决定如何打开该文件。,5使用文件对象,通过文件系统对象的GetFile方法可以创建File对象，用该对象同样可以得到文件的有关属性。 使用文件对象同样可以实现文件的复制、移动和删除操作，只是由于源文件已经指定，所以格式有所不同，分别如下： 文件对象名.Copy 新文件，覆盖方式 文件对象名. Move 新文件 文件对象名. Delete,文件对象使用例,例6：文件操作 ,建立文件对象,进行文件操作,释放对象,执行本例 脚本,11.2 广告轮播,当你需要按照不同的概率随机地显示不同的广告时，可以使用ASP附带的Ad Rotator组件，称为广告轮换组件。当网页被加载时，它能按照指定的权重选择某一广告图片，并建立对应的超链接，这样，当用户单击该图片时，转
