Web应用开发技术 教学课件 作者 宋先斌 何在玉 第12章.ppt

?第 12 章 ASP 内 置 组 件 12.1 使用文件组件 12.2 广 告 的 处 理 通过本章的学习，读者应重点掌握以下内容： ? 使用文件组件 ? 使用广告组件 12.1 使用文件组件 FileSystemObject（FSO，文件系统对象）是IIS自带的一个组件，利用这个组件的一些方法可以在服务器上操作文件的内容、操作文件和操作文件夹。 12.1.1 使用对文件操作的组件 利用IIS5.0自己带的FileSystemObject组件，几乎可以控制服务器的所有文件系统。为了实现这些功能，需要使用下面的对象。 （1）FileSystemObject：它包括一些基本的对文件系统进行操作的方法，比如复制或删除文件夹或者文件。 （2）TextStream：它用来读写文件。 （3）File：它的方法和属性被用来处理单独的文件。 （4）Folder：它的方法和属性被用来处理文件夹。 例12-1 创建文本文件。 ％@ Language=VBScript ％ ％ dim fso set fso= Server.CreateObject(Scripting.FileSystemObject) path = Server.MapPath(L12_1.txt) response.write(path) dim MyTextFile set MyTextFile = fso.CreateTextFile(path) MyTextFile.WriteLine(我在当前的目录创建了一个文件) MyTextFile.WriteLine(now()) MyTextFile.Close() response.write(文件已创建好！) ％ 例12-2 读取文件的内容。 ％ path = Server.MapPath(L12_1.txt) dim MyFileObject set MyFileObject = Server.CreateObject(Scripting.FileSystemObject) dim MyTextFile set MyTextFile = MyFileObject.OpenTextFile(path) do while not MyTextFile.AtEndOfStream Response.Write(MyTextFile.ReadLine() + br) loop MyTextFile.Close() ％ 例12-3 Read方法的使用。 ％ path = Server.MapPath(test.txt) set MyFileObject = Server.CreateObject(Scripting.FileSystemObject) set MyTextFile = MyFileObject.OpenTextFile(path) do while not MyTextFile.AtEndOfLine Response.Write(MyTextFile.Read(1)) loop MyTextFile.Close() ％ 例12-4 追加数据。 ％ path = Server.MapPath(add.txt) set MyFileObject = Server.CreateObject(Scripting.FileSystemObject) set MyTextFile = MyFileObject.OpenTextFile(path,8,true) MyTextFile.WriteLine(Request.ServerVariables(REMOTE_ADDR)) MyTextFile.Close() ％ 12.1.2 对文件进行处理 有多种方法可对文件进行复制、移动及删除工作。可以利用FileSystemObject对象的方法也可以利用File对象的方法。FileSystemObject对象对文件操作的常用方法如下。 （1）CopyFile Source,destination，[Overwrite]：这个方法进行复制操作，可以使用source参数通配符在一个时刻进行对多个文件的复制。Overwrite参数将在目标文件已经存在的情况下进行覆盖操作。 （2）MoveFile Source,destination：这个方法对文件进行移动操作，同样可以使用通配符来移动多个文件，如果目的文件已经存在，则会报错。 （3）DeleteFile FileSpecifier:这个方法功能是删除指定文件，同样还可以利用通配符实现多文件的删除。如果没有符合通配