【教学课件】第9章ASP的内置组件.ppt

《【教学课件】第9章ASP的内置组件.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第9章ASP的内置组件.ppt（117页珍藏版）》请在三一办公上搜索。

1、第9章 ASP的内置组件,教学目标：了解ASP组件的概念 掌握广告轮显组件的属性、方法 能熟练应用计数器组件和页计数器组件 熟练掌握文件操作组件的使用过程,第9章 ASP的内置组件,教学内容：9.1 ASP组件概述9.2 广告轮显组件 Ad Rotator9.3 内容轮显组件 Content Rotator9.4 浏览器性能组件Browser Capabilities9.5 计数器组件Counter和页计数器组件Page Counter9.6 文件操作组件File Access9.7 技能与实训9.8 思考与练习,9.1 ASP组件概述,ASP组件与ASP对象的区别：一个组件可能包含不只一个对

2、象 在使用组件之前，要明显的创建一个实例 组件可以提供一个或多个对象的方法和属性。调用组件就是要使用组件提供的对象,9.2 广告轮显组件 Ad Rotator,9.2.1 Ad Rotator 组件相关文件 建立一个广告轮显首先要准备以下相关文件：图像文件：这是要显示的广告图片。建立一个显示广告的计划文件，要把它保存为后缀名为.txt的文本文件,9.2.1 Ad Rotator 组件相关文件,计划文件的格式：计划文件的前4行包含广告的全局设置第1行指出广告将成为其热链接的URL。注意，这里不是为广告本身指定的URL，而是将调用的页面的URL，这样你就可以通过这个页面跟踪单击广告的次数。该URL

3、将与包含两个参数的查询字符串一起调用：选定广告主页的URL和图像文件的URL。其余3行简单说明如何显示广告。第2行和第3行以像素为单位指定网页上广告的宽度和高度，默认值是440和60个像素。第4行以像素为单位指定广告四周的边框宽度，默认值是1个像素。如果该参数设置为0，则没有边框。,9.2.2 Ad Rotator 组件的属性和方法,Border:Border 属性允许用户指定显示广告时四周是否带边框。语法:Border=size参数:size 指定显示的广告四周的边框宽度。其默认值在 Rotator Schedule 文件的文件头中设置。下面的例子显示不带边框的广告。,9.2.2 Ad Ro

4、tator 组件的属性和方法,ClickableClickable 属性允许用户指定是否将广告作为超链接显示。语法：Clickable=value参数 value 指定广告是否为超链接。此参数可为下列值之一。默认值是 TRUE。值的 意义:TRUE将广告作为超链接显示。FALSE 将广告不作为超链接显示。,9.2.2 Ad Rotator 组件的属性和方法,目标框架：TargetFrame 属性指定链接将被装入的目标框架。该属性完成的功能等价于 HTML 语句中的TARGET参数。语法：TargetFrame=frame参数：frame 指定用来显示广告框架的名称。该参数也可以是一个 HTML

5、 框架关键字,例如 _TOP、_NEW、_CHILD、_SELF、_PARENT 或 _BLANK。默认值是 NO FRAME。,9.2.2 Ad Rotator 组件的属性和方法,AdRotator 对象的方法：GetAdvertisement 作用：GetAdvertisement 方法从计划文件中获取下一个广告。每次运行脚本时，例如当用户打开或刷新一页时，此方法会获取下一个安排的广告 参数：rotationSchedulePath：指定计划文件相对于虚拟目录的位置,9.2.2 Ad Rotator 组件的属性和方法,注意：若物理路径为 F:websiteaspbook（其中 asp是 指

6、向 F:websiteaspbook 的虚拟目录）则应指定路径为/asp/9-1.txt,9.2.2 Ad Rotator 组件的属性和方法,例9-2.asp 显示广告例9-2.asp then,9.2.2 Ad Rotator 组件的属性和方法,response.redirect urlend if%,9.3 内容轮显组件 Content Rotator,作用：用来创建Content Rotator 对象,通过该对象可以在Web 页上自动轮换显示HTML字符串 语法格式：其中参数oVar指定通过调用Server.CreateObject创建的ContentRotator对象的名称,9.3内容

7、轮显组件 Content Rotator,1、创建内容列表文件：内容列表文件 每个条目的语法格式：%#Weight/CommentsContentString说明：Weight是一个可选参数，其取值为065,535之间的整数，表示HTML内容字符串的相关权值,9.3内容轮显组件 Content Rotator,Comments是可选参数，给出条目的注释信息，仅为开发而用，对用户不显示 ContentString是由内容轮显对象显示的HTML内容，例如一行文字，一幅图像或一段声音等,9.3内容轮显组件 Content Rotator,2、内容列表文件示例：%#1/这是条目1，用于显示一个超文本链

8、接欢迎中国人网站！%#2/这是条目2，用于显示一行文本%/对内容字符串设置了字体、字号和颜色但愿人长久，千里共婵娟。,9.3内容轮显组件 Content Rotator,%#3/这是条目3，用于显示一幅图像IMG SRC=/img/happy.jpg 注意：内容列表文件中，不能漏掉%,否则就会出现错误,9.3内容轮显组件 Content Rotator,3、检索并显示内容字符串检索显示一个内容字符串：ChooseContent方法：作用：从内容列表文件中检索一个HTML内容字符串并将其显示在当前页 语法格式：ChooseContent(content-schedule-path)参数conte

9、nt-schedule-path：指定内容列表文件的位置，可以指定为相对路径或虚拟路径,9.3内容轮显组件 Content Rotator,例9-3下面的脚本从/asp/虚拟目录中的content.txt获取一个新的内容字符串。,9.3内容轮显组件 Content Rotator,检索并显示所有内容字符串 GetAllContent方法：作用：从内容列表文件检索所有HTML内容字符串语法格式：GetAllContent(content-schedule-path)参数content-schedule-path：指定内容列表文件的位置。此参数可以是相对路径，也可以是虚拟路径。,9.3内容轮显组件

10、 Content Rotator,例9-4.asp使用GetAllContent方法显示内容列表文件中的所有条目,9.3内容轮显组件 Content Rotator,运行结果：,9.4浏览器性能组件Browser Capabilities,9.4.1 Browscap.ini文件作用：将浏览器功能映射到HTTP User Agent标题 一些可能的浏览器属性：ActiveXControls 指定该浏览器是否支持ActiveX控件Backgroundsounds 指定该浏览器是否支持背景音乐Browser指定该浏览器的名称,9.4.1 Browscap.ini文件,Cookies 指定该浏览器是

11、否支持CookiesFrames 指定该浏览器是否支持框架Javaapplets指定该浏览器是否支持Java程序Javascript指定该浏览器是否支持JScriptPlatform 指定该浏览器的运行平台Tables 指定该浏览器是否支持表格Vbscript 指定该浏览器是否支持VBScriptVersion 指定该浏览器的版本号Majorver 指定主版本号ActiveXControls 指定该浏览器是否支持ActiveX控件,9.4.2 Browser Capabilities组件的使用,浏览器功能组件（Browser Capabilities）作用：用于创建一个BrowserType对

12、象，该对象提供带有客户端浏览器的功能说明的用户脚本 语法格式：Set BrowserType=Server.CreateObject(MSWC.BrowserType)参数BrowserType：指定由erver.CreateObject方法创建的BrowserType对象的名称,9.4.2 Browser Capabilities组件的使用,例9-5.asp 看看浏览器有什么性能例9-5.asp 用ASP提供的浏览器性组件来辨别客户浏览器,9.4.2 Browser Capabilities组件的使用,浏览器的名称,9.4.2 Browser Capabilities组件的使用,浏览器的版本

13、major version表格支持Cookie 支持,9.4.2 Browser Capabilities组件的使用,背景音乐支持VBSCript支持,9.4.2 Browser Capabilities组件的使用,9.5 计数器组件Counter和页计数器组件Page Counter,9.5.1 Counter 组件作用：用来统计一个页面被请求的次数 创建方法：将下面的内容加入到应用程序的global.asa文件中，可以在Web服务器上一次性创建Counters对象的实例：,9.5.1 Counter 组件,方法：1、Get：作用：Get方法根据计数器的名称返回其当前值，如果此计数器不存在，

14、则该方法创建它并将其置为0语法格式：Counters.Get(CounterName)参数CounterName是一个字符串，用于指定计数器的名称,9.5.1 Counter 组件,2.Increment 作用：Increment方法根据计数器的名称，将该计数器的值加1并返回计数器的新值 语法格式：Counters.Increment(CounterName)参数CounterName是一个字符串，用于指定计数器名的称,9.5.1 Counter 组件,3.Remove方法作用：Remove方法根据计数器的名称从计数器对象和counters.txt文件中删除计数器 语法格式：Counters.

15、Remove(CounterName)参数CounterName：是一个字符串，用于指定计数器名的称,9.5.1 Counter 组件,4.Set方法作用：Set方法根据计数器名称和将计数器设置为一个指定的整数值并返回此新值 语法格式：Counters.Set(CounterName,int)参数CounterName：包含计数器名称的字符串参数int：指定该计数器的新整数值,9.5.1 Counter 组件,例9-6.asp 一个简单、实用的计数器的小程序 例9-6该页面已经被游览,9.5.1 Counter 组件,次了,9.5.1 Counter 组件,注意：此程序要想正确运行，必须把刚才

16、讲的global.asa文件放在程序运行的主目录下。如果是第一次运行该程序，计数器pagecnt不存在，则Increment方法就创建该计数器，并且赋值为1。,9.5.2 Page Counter组件,页面计数器组件（Page Counter）：作用：可以创建PageCounter对象实例，以记录 和显示Web页被打开的次数 语法格式：参数oVar：指定通过调用Server.CreateObject创建的PageCounter对象的名称,9.5.2 Page Counter组件,1.Hits方法 作用：方法返回指定URL的Web页被打开的次数 语法格式：Object.Hits(pathInfo

17、)参数pathInfo是可选参数。若未指定此参数，则显示当前页的访问次数 返回值：Hit方法返回一个长整型数，表示指定 Web页被打开的次数,9.5.2 Page Counter组件,2.PageHit方法 作用：PageHit方法将对当前Web页的访问次数 加一 语法格式：Object.PageHit 参数：参数pathInfo是可选参数。若未指定此参 数，则显示当前页的访问次数 返回值：PageHit方法返回一个长整型数，表示 指定Web页被打开的次数,9.5.2 Page Counter组件,3.Reset方法 作用：将指定的Web页的访问次数置为0 语法格式：Reset(pathInf

18、o)参数：pathInfo是可选参数。如果未指定该参 数，则重置当前页的访问次数 返回值：Reset方法没有返回值。,9.5.2 Page Counter组件,例 9-7.asp 页面计数器Page Counter 组件的使用 例9-7,9.5.2 Page Counter组件,这个页面已经被访问次了,9.5.2 Page Counter组件,9.5.2 Page Counter组件,技巧：上面两个语句可以用这一个语句代替，因为myhits.pagehit不仅可以让单击数加1，而且还可以返回页面的单击次数,9.6 文件操作组件File Access,9.6.1 文件操作组件简介文件存取组件 的

19、对象和集合：FileSystemObject主对象：提供对计算机的文件系统的访问，包含用来创建、删除和获得有关信息以及用来操作驱动器、文件夹和文件的方法和属性 Drive对象：提供对特定的磁盘驱动器或共享网络设备的属性的访问,9.6.1 文件操作组件简介,Drives集合:这是所有可用的驱动器的只读集合，用于提供驱动器的列表，这些驱动器实物地或在逻辑上与系统相连接 File对象:提供对文件的所有属性的访问，包含用来创建、删除或移动文件的方法和属性，也用来向系统询问文件名、路径和多种其他属性 Files集合。提供包含在文件夹内的所有文件的列表,9.6.1 文件操作组件简介,Folder对象:包含

20、用来创建、删除或移动文件夹的方法和属性，也用来向系统询问文件夹名、路径和多种其他属性 Folders集合:提供在Folder内的所有文件夹的列表 TextStream对象:用来读写文本文件,9.6.2 FileSystemObject 对象,作用：FileSystemObject 这个对象包括了一些基本的对文件系统进行操作的方法，比如说，复制和删除文件夹或者文件 语法格式：,9.6.2 FileSystemObject 对象,(1)CopyFile方法:作用：将一个或多个文件复制到其他位置上 语法格式：object.CopyFile source,destination,overwrite 参

21、数：object指定FileSystemObject对象的名称、source表示指定文件的字符串、Destination表示目标位置的字符串、overwrite是可选参数，取Boolean值，表明是否覆盖现有文件：如果是True（默认值），则覆盖文件；如果是False，则不覆盖现有文件,9.6.2 FileSystemObject 对象,(2)MoveFile方法 作用：将一个或多个文件从某位置移动到另一位置 语法格式：object.MoveFile source,destination 参数：参数object指定FileSystemObject对象的名称、source指定要移动的文件的路径、

22、destination指定路径，表示要将文件移动到该目标位置,9.6.2 FileSystemObject 对象,(3)DeleteFile方法 作用：删除指定的文件 语法格式：object.DeleteFile filespec,force 参数：其中参数object指定FileSystemObject对象的名称、filespec指定要删除的文件名、force是可选参数，取Boolean值，如果要删除只读文件，则该值为True；否则为False（默认）,9.6.2 FileSystemObject 对象,例 9-8.asp 用FileSystemObject 复制文本文件 例9-8%set

23、fso=createobject(Scripting.filesystemobject)fso.copyfile,9.6.2 FileSystemObject 对象,f:websiteaspbook9-6.txt,f:websiteaspbookimg9-6.txt,false response.write 复制完成%,9.6.2 FileSystemObject 对象,(4)检查文件的存在性-FileExists 方法作用：检查一个文件是否存在。如果指定的文件存在，该方法将返回True，否则返回False 语法格式：object.FileExists(filespec)参数：参数object

24、指定FileSystemObject对象的名称、filespec指定一个文件名，表示要确定是否存在的文件,9.6.2 FileSystemObject 对象,例9-9.asp检测文件是否存在 例9-9%set f=server.createobject(Scripting.filesystemobject)if f.fileexists(f:websiteaspbook9-6.txt)then,9.6.2 FileSystemObject 对象,response.write(文件f:websiteaspbook9-6.txt存在)else response.write(文件f:websitea

25、spbook9-6.txt不存在)end if%,9.6.2 FileSystemObject 对象,(5)获取文件和文件夹的特征 File对象的属性列表：1)Attributes属性：设置或返回文件或文件夹的属性。2)DateCreated属性：返回指定的文件或文件夹的创建日期和时间。3)DateLastAccessed属性：返回指定的文件或文件夹的上次访问日期和时间。4)DateLastModified属性：返回指定的文件或文件夹的上次修改日期和时间。,9.6.2 FileSystemObject 对象,5)Drive属性：返回指定的文件或文件夹所在的驱动器的驱动器号 6)Name属性：设

26、置或返回指定的文件或文件夹的名称。7)ParentFolder属性：返回指定文件或文件夹的父文件夹。8)Path属性：返回指定文件、文件夹或驱动器的路径。9)Size属性：返回文件或文件夹的字节数。10)Type属性：返回文件或文件夹的类型信息,9.6.2 FileSystemObject 对象,例9-10 检查文件的属性例910%set f=server.createobject(scripting.filesystemobject),9.6.2 FileSystemObject 对象,set a=f.getfile(f:websiteaspbook9-6.txt)创建一个file对象的实例

27、%文件名称:路 径:驱动器：文件大小:文件类型:,9.6.2 FileSystemObject 对象,文件属性:上次修改日期:,9.6.3 Drivers、Folders、Files数据集合,使用Folder对象处理文件夹Folder对象的方法和属性：(1)Copy方法将指定的文件夹从某位置复制到另一位置。(2)Move方法将指定的文件夹从某位置移动到另一位置。(3)Delete方法删除指定的文件夹及其所有内容。,9.6.3 Drivers、Folders、Files数据集合,(4)IsRootFolder属性检查指定的文件夹是不是根文件夹，如果是根文件夹，则返回True；否则返回False。

28、(5)Name属性设置或返回指定的文件夹的名称(6)ParentFolder属性返回指定文件夹的父文件夹(7)Size属性返回指定文件夹中所有文件和子文件夹的字节数。(8)SubFolders属性返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的Folders集合。,9.6.3 Drivers、Folders、Files数据集合,例 9-9 将文件夹从某一位置复制到另一位置 例9-9%set fs=server.CreateObject(scripting.filesystemobject)set fd=fs.getfolder(d:myfiles),9.6.3 Drivers

29、、Folders、Files数据集合,fd.copy f:website response.write 复制成功%,9.6.3 Drivers、Folders、Files数据集合,Folders集合：组成：由在一指定文件夹内的所有文件夹集合组成 方法：AddFolder FoldName 向Folders集合中添加一个新的文件夹。新文件夹为FolderName 属性：Count 返回在Folders集合中文件夹的数目 Item(Key)返回在Folders集合中由Key指明的文件夹,9.6.3 Drivers、Folders、Files数据集合,例 9-12 显示D盘中文件夹的数目例9-12%

30、set fs=server.createobject(scripting.filesystemobject),9.6.3 Drivers、Folders、Files数据集合,set fd=fs.getfolder(d:)set fds=fd.subfoldersa=fds.countresponse.write d盘下有&a&个文件夹%,9.6.3 Drivers、Folders、Files数据集合,2、驱动器（driver）操作 使用如下对象可获得驱动器信息：(1)DriveExists方法 作用：检查指定的驱动器是否存在，如果存在，则返回True；否则返回False 语法格式：object

31、.DriveExists(drivespec)参数：参数object指定FileSystemObject对象的名称、drivespec指定驱动器号或指定的完整路径,9.6.3 Drivers、Folders、Files数据集合,(2)Drives属性：作用：返回由本地机器上所有Drive对象组成的Drives集合(3)GetDrive方法 作用：返回与指定的路径中驱动器相对应的Drive对象 语法格式：object.GetDrive drivespec 参数：object指定FileSystemObject对象的名称、drivespec可以是驱动器号,9.6.3 Drivers、Folders

32、、Files数据集合,(5)GetDriveName方法 作用：返回包含指定路径中驱动器名的字符串 语法格式：object.GetDriveName(path)参数：参数object指定FileSystemObject对象的名称、Path指定路径，表示要返回其组成部分的驱动器名,9.6.3 Drivers、Folders、Files数据集合,使用Drive对象获取驱动器信息(1)AvailableSpace属性。返回指定的驱动器或网络共享对于用户的可用空间大小。(2)DriveLetter属性。返回本地驱动器或网络共享的驱动器号。如果指定的驱动器没有与驱动器号相关联（例如，一个网络共享未映射驱

33、动器号），则DriveLetter属性返回一个零长度字符串（）。,9.6.3 Drivers、Folders、Files数据集合,(3)DriveType属性。返回一个描述指定驱动器的类型的值：0表示未知类型，1表示可移动磁盘，2表示固定磁盘，3表示网络共享，4表示CD-ROM，5表示RAM磁盘。(4)FileSystem属性。返回指定的驱动器使用的文件系统的类型，可用的返回类型包括FAT、NTFS和CDFS。(5)FreeSpace属性。返回指定的驱动器或网络共享对于用户的可用空间大小。(6)IsReady属性。检查指定的驱动器就绪，如果已就绪，则返回True；否则返回False。,9.6.

34、3 Drivers、Folders、Files数据集合,(7)Path属性。返回指定文件、文件夹或驱动器的路径。对于驱动器，路径不包含根目录。例如，C驱动器的路径是C:，而不是C:。(8)RootFolder属性。返回一个Folder对象，表示指定驱动器的根文件夹。(9)SerialNumber属性。返回十进制序列号，用于唯一标识一个磁盘卷。(10)ShareName属性。返回指定的驱动器的网络共享名。如果该驱动器不是一个网络驱动器，则ShareName属性返回零长度字符串（）。(9)TotalSize属性。返回驱动器或网络共享的总字节数,9.6.3 Drivers、Folders、Files

35、数据集合,例9-13 显示驱动器信息response.write 驱动器的类型的值是&fd.drivetyperesponse.write,9.6.3 Drivers、Folders、Files数据集合,response.write 该驱动器可用的空间是&fd.AvailableSpace&K%,9.6.3 Drivers、Folders、Files数据集合,说明：我们在使用Driver对象时，需先使用FileSystemObject对象的Getdrive方法获得驱动器相对应的Drive对象.,9.6.3 Drivers、Folders、Files数据集合,3、File对象File对象的属性列

36、表：Attributes:该属性用于显示当前文件的系统属性。例如只读、隐藏、系统等属性。DataCreated:它可以返回文件创建的时间和日期。DataLastModified:该属性返回该文件上一次被修改的日期和时间,9.6.3 Drivers、Folders、Files数据集合,Drive:该属性返回值为该文件所在的驱动器Name:它可以返回该文件的文件名entFolder:这个属性返回值为该文件所处的文件夹Path:返回该文件的全路径 Size:返回文件的大小、以字节为单位type:返回文件的类型，例如文本文件、ASP文件或HTML文件,9.6.3 Drivers、Folders、Fil

37、es数据集合,例914检查文件的属性例9-14%set fs=server.CreateObject(scripting.filesystemobject)set a=fs.getfile(f:websiteaspbookTestFile.txt),9.6.3 Drivers、Folders、Files数据集合,%文件名称:路径：驱动器:文件大小:文件类型:文件属性:上次修改日期:,9.6.3 Drivers、Folders、Files数据集合,运行 结果如图所示：,9.6.4 TextStream 对象,创建：FileSystemObject对象的CreateTextFile方法创建指定的文

38、本文件并返回TextStream对象实例，该对象可以用于读或写创建的文件 语法格式：object.CreateTextFile(filename,overwrite,unicode)参数：object是必选参数，应为FileSystemObject或Folder对象的名称,9.6.4 TextStream 对象,Filename也是必选参数，是一个字符串表达式，用于指明要创建的文件 overwrite是可选参数，取Boolean值，指明是否可以覆盖现有文件 unicode也是可选参数，取Boolean值，指明是否以Unicode或ASCII文件格式创建文件,9.6.4 TextStream 对

39、象,打开文件OpenTextFile 方法：作用：打开指定的文件并返回一个TextStream对象 语法格式：object.OpenTextFile(filename,iomode,create,format)参数：object是必选参数，指定FileSystemObject对象的名称,9.6.4 TextStream 对象,filename也是必选参数，是一个字符串表达式，用于指定要打开的文件名称 iomode是可选参数，用于指定文件的输入/输出模式 create是可选参数，取Boolean值，指出当指定的filename不存在时是否能够创建新文件 format是可选参数，指定以何种格式打开

40、文件：,9.6.4 TextStream 对象,读取文件时用到的方法 Read:作用：从TextStream文件中读入指定数目的字符并返回结果字符串 语法格式：object.Read(characters)参数：object指定TextStream对象的名称 characters参数指定要从文件读的字符数目,9.6.4 TextStream 对象,ReadLine 作用：从TextStream文件中读入一整行字符（直到下一行但不包括下一行字符），并返回结果字符串 语法格式：object.ReadLine 参数：object指定TextStream对象的名称,9.6.4 TextStream 对

41、象,ReadAll 作用：读入全部TextStream文件并返回结果字符串 语法 格式：object.ReadAll 参数：object参数指定TextStream对象的名称,9.6.4 TextStream 对象,Skip 作用：在读取TextStream文件时跳过指定数目的字符 语法格式：object.Skip(characters)参数：object参数指定TextStream对象的名称。参数characters指定读取文件时跳过的字符数 目。,9.6.4 TextStream 对象,SkipLine 作用：在读取TextStream文件时跳过下一行 语法格式：object.SkipLi

42、ne 参数：参数object指定TextStream对象名称,9.6.4 TextStream 对象,使用TextStream对象的方法对文件进行写操作 Write 作用：使用Write方法向TextStream文件写入指定字符串 语法格式：object.Write(string)参数：object是必选参数，应为TextStream对象的名称。string是可选参数，指定要写入文件的文本,9.6.4 TextStream 对象,WriteLine 作用：使用WriteLine方法向TextStream文件写入指定字符串和新行字符 语法格式:object.WriteLine(string)参数

43、：object是必选参数，指定TextStream对象的名 称。string是可选参数，指定要写入文件的文本,9.6.4 TextStream 对象,WriteBlankLines 作用：在TextStream文件中写入指定数目的新行字符 语法格式：object.WriteBlankLines(lines)参数：object是必选参数，指定TextStream对象的名称。lines也是必选参数，指定要向文件写入的新行字符数目,9.6.4 TextStream 对象,Close:作用：关闭打开的TextStream文件 语法格式：object.Close 参数：参数object指定TextStr

44、eam对象的名称,9.6.4 TextStream 对象,例9-15 通过文本框向9-1.txt 文本文件内写文字，例9-15%if not request.form(nextline)=then set fs=createobject(Scripting.FileSystemObject),9.6.4 TextStream 对象,set a=fs.opentextfile(f:website9-1.txt,8,true)a.writeline(request.form(nextline)response.write 写入成功 a.close end if%,9.6.4 TextStream

45、对象,9.6.4 TextStream 对象,例9-16 将9-1.txt文件读出来并在浏览器上显示出来。例9-16%set fs=createobject(Scripting.FileSystemObject)set a=fs.opentextfile(f:website9-1.txt),9.6.4 TextStream 对象,while not a.atendofstream response.write(a.readline)wenda.close%以上是文本文件的内容,9.6.4 TextStream 对象,9.6.4 TextStream 对象,提示：在上面这个程序中我们用到了AtE

46、ndOfStream 属性。它的作用是用于判断是否到了文件的结尾，如果是则为真（True）,反之为假(False),9.6.4 TextStream 对象,TextStream的其他属性：AtEndOfLine:这个属性用于判断是否到了文件中一个特定行的末尾，如果是则为真（TRUE），反之为假（FALSE）。Column:这个属性判断当前字符在该行的位置，返回一个整数值Line:用于判断当前行在文件中的行数，返回一个整数值,9.7 技能与实训,创建留言板的本质：就是向文本文件写入文字并同时将写的文字显示在浏览器上 创建留言板的代码：例9-17,9.7 技能与实训,9.7 技能与实训,一个简单实

47、用的留言板留言板,9.7 技能与实训,)wend a.close%,9.7 技能与实训,您的意见，是我们的宝贵财富,谢谢!,9.7 技能与实训,9.7 技能与实训,9.8 思考与练习,编写一个ASP程序，可以从表单中输入信息，然后将接收的信息存放在文本文件A1.txt中在第一题的基础上，将输入到A1.txt中的文字显示到页面上。编写一个用计数器组件建立计数器的ASP程序试编写一个简单的留言板。,9.8 思考与练习,1.填空题(1)一个显示广告的计划文件的后缀名为_。(2)Ad Rotator 组件的_方法可以取得下一个广告。(3)创建一个ContentRotator对象实例用到的语法为_。(4

48、)ContentRotator对象的_方法从内容列表文件检索所有HTML内容字符串，将它们作为一个列表写入Web页中。(5)有关File对象的属性列表中，能够返回指定的文件或文件夹的上次修改日期和时间的属性是_。,2.选择题(1)下面哪一个例子显示不带边框的广告？()A.B.C.D.(2)如果内容列表文件包括3个权值各为1、2、3的内容字符串，则内容轮显对象用()时间显示第一个内容字符串。A.1/3B.1/6 C.1/2D.2/3,(3)ContentRotator对象的()方法从内容列表文件中检索一个HTML内容字符串并将其显示在当前页。A.GetAllContentB.ChooseCont

49、entC.GetContentD.Content(4)计数器组件中()方法根据计数器名称将计数器设置为一个指定的整数值并返回此新值。A.SetB.GetC.IncrementD.Remove(5)FileSystemObject对象的OpenTextFile方法打开指定的文件并返回一个()对象。A.FolderB.FileSystemObjectC.Drive D.TextStream,3.程序设计(1)编写一个ASP程序，可以从表单中输入信息，然后将接收的信息存放在文本文件A1.txt中。(2)在第1题的基础上，将输入到A1.txt中的文字显示到页面上。(3)编写一个用计数器组件建立计数器的ASP程序。(4)试编写一个简单的留言板。(5)做一个内容轮显组件，能使文字与图片交替显示。(6)编写一个ASP程序，首先检查D盘aa.txt文件是否存在，如果存在，就把它复制到E盘根目录；如果不存在，则显示不存在该文件。(7)制作一个能显示一个驱动器的信息页面，包括大小、驱动器名称等。,