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

第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.FileSystem Object) 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.FileSystem Object) 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.FileSystem Object) 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(R EMOTE_ADDR)) MyTextFile.Close() ％ 12.1.2 对文件进行处理 有多种方法可对文件进行复制、移动及 删除工作。可以利用FileSystemObject对象 的方法也可以利用File 对象的方法。 FileSystemObject对象对文件操作的常用方 法如下。 （1）CopyFile Source,destination， [Overwrite]：这个方法进行复制操作，可 以使用source参数通配符在一个时刻进行