第9章 系统操作.ppt

1、第9章 文件系统操作,9.1 文件操作组件 9.2 文件及文件夹处理 9.3 文本文件的读写操作 9.4 计数器实例,本章学习目标,l FileSystemObject对象的使用 lTextStream对象的使用 l文件的基本操作 l文件夹的基本操作,9.1 文件操作组件,在网络程序设计中，尤其是网站不提供数据库功能时，使用文件保存数据是一种简便的方法。由于IIS 4.0以前的版本在文件操作上有许多限制，在某种程度上抑制了文件操作组件的使用和发展，而在IIS4.0以后的版本中，ASP提供了很多组方法、属性和集合来对文件进行操作处理，ASP对文件系统的操作变得强大起来。利用IIS的File Ac

2、cess组件可以实现读写系统日志文件、存储用户数据、设计站点计数器等功能。,返回首页,表9-1 File Access组件对象,返回本节,9.2 文件及文件夹处理,9.2.1 FileSystemObject对象 9.2.2 复制、移动以及删除文件 9.2.3 文件夹处理,返回首页,9.2.1 FileSystemObject对象,FileSystemObject对象提供对计算机文件系统的访问，创建FileSystemObject对象的语法如下： Set fs=Server.Createobject(Scripting.FileSystemObject) FileSystemObject对象共

3、有24种方法和1种属性。语法如下： FileSystemObject.Property|method 其中：Property表示属性，method表示方法，两个参数只能选择其中的一个。,1FileSystemObject对象的方法 2FileSystemObject对象的数据集合 FileSystemObject对象的属性只有Drives属性一种，该属性包含本地计算机上所有可用驱动器的信息。语法如下： object.Drives,例9-1： 服务器磁盘驱动器显示列表 驱动器号： 驱动器总容量： 驱动器尚可提供容量： ,返回本节,9.2.2 复制、移动以及删除文件,例9-2： ,例9-3： ,返

4、回本节,9.2.3 文件夹处理,例9-4： ,例9-5： 文件夹内容 &thing) Next % ,返回本节,9.3 文本文件的读写操作,9.3.1 TextStream对象 9.3.2 读取文本文件中的数据 9.3.3 对文本文件的写操作,返回首页,9.3.1 TextStream对象,1TextStream对象属性 TextStream对象属性如表9-3所示。其中object为TextStream 对象的名称。 2TextStream对象方法 TextStream对象方法如表9-4所示，其中object为TextStream对象的名称。,表9-3 TextStream对象的属性,返回本节

5、,表9-4 TextStream对象的方法,9.3.2 读取文本文件中的数据,例9-6： 程序的运行结果如图9-1所示。,图9-1 读取数据,返回本节,9.3.3 对文本文件的写操作,例9-8： ,例9-9： ,返回本节,9.4 计数器实例,9.4.1 用文件实现的计数器 9.4.2 用文件及图形实现的综合计数器,返回首页,9.4.1 用文件实现的计数器,例9-10： % Dim Visitors WhichFile=Server.mappath(count.txt) 创建一个FileSystemObject对象 Set fs = CreateObject(Scripting.FileSyst

6、emObject) 启动count.txt文件，并且读取记录在文件中的visitors Set thisfile = fs.OpenTextFile(WhichFile) Visitors=thisfile.readline thisfile.close 将计数器加1 Visitors=Visitors+1 将计数器写入count.txt文件之中,Set out=fs.CreateTextFile(WhichFile) out.WriteLine(Visitors) out.close Set fs=nothing % 欢迎进入ASP的世界 您是本站第位贵宾 ,例9-11： %Dim Visi

7、tors WhichFile=Server.mappath(count.txt) 创建一个FileSystemObject对象 Set fs = CreateObject(Scripting.FileSystemObject) 启动count.txt文件，并且读取记录在文件中的visitors Set thisfile = fs.OpenTextFile(WhichFile) Visitors=thisfile.readline thisfile.close If IsEmpty(Session(Connected) Then 将计数器加1 Visitors=Visitors+1 End If

8、 Session(Connected)=True 将计数器写入count.txt文件之中,Set out=fs.CreateTextFile(WhichFile) out.WriteLine(Visitors) out.close Set fs=nothing% 欢迎进入ASP的世界 您是本站第位贵宾 ,返回本节,9.4.2 用文件及图形实现的综合计数器,程序代码如下： 例9-12： 图形标记 For i=1 to countlen num=num&,Next If IsEmpty(Session(Connected) Then 将计数器加1 Visitors=Visitors+1 Application.UnLock End