Web数据库技术：4-ASP相关对象和组件.ppt

* * ⑤创建文本文件（流文件） ⑥打开文本文件（流文件） ⑦打开指定文件并返回一个TextStream对象 B. 主要功能 检测系统驱动器的信息分配情况；探测文件夹或文件是否存在；创建、复制、移动、删除文件夹和文件；打开与读写文件；提取文件夹和文件相关信息 % Set f=fso.CreateTextFile(文件名,是否覆盖原有文件,文件格式) % % Set f=fso.OpenTextFile(文件名,打开模式,是否创建,打开格式) % % Set ts=f.OpenAsTextStream(打开模式,打开格式) % * * C．举例 [例6] 利用FileSystemObject对象进行文件夹与文件的创建、复制、移动及获得文件扩展名等操作：fsooperation.asp % REM 创建FSO对象 Set fso=server.CreateObject(scripting.filesystemobject) % * * % REM 如果不存在d:\directory文件夹，则建立该文件夹 If Not fso.folderexists(d:\directory) Then fso.createfolder(d:\directory) End If % % REM 在指定文件夹建立文件，复制文件夹的内容到新的文件夹 fso.createtextfile(d:\directory\file.txt) fso.copyfolder d:\directory,d:\dir11 fso.copyfolder d:\directory,d:\dir12 % % REM 如果存在d:\dir2文件夹，则删除该文件夹 If fso.folderexists(d:\dir2) Then fso.deletefolder(d:\dir2) End If % * * % REM 将指定文件夹的内容移动到不存在的文件夹 fso.movefolder d:\directory,d:\dir2 % % REM 如果不存在d:\dir3文件夹，则建立该文件夹 If Not fso.folderexists(d:\dir3) Then fso.createfolder(d:\dir3) End If % % REM 将指定文件同名和不同名复制到已存在的文件夹 fso.copyfile d:\dir11\file.txt,d:\dir3\ fso.copyfile d:\dir11\file.txt,d:\dir3\file21.txt fso.copyfile d:\dir11\file.txt,d:\dir3\file22.txt % * * % REM 将某文件移动到指定文件夹下（原先不存在某文件） If Not fso.folderexists(d:\dir4) Then fso.createfolder(d:\dir4) End If If Not fso.fileexists(d:\dir4\file.txt) Then fso.movefile d:\dir11\file.txt,d:\dir4\ End If % % REM 删除指定文件 fso.deletefile d:\dir3\file22.txt % 文件d:\dir3\file21.txt的扩展名为 %=fso.getextensionname(d:\dir3\file21.txt)% * * [例1] 通过Drive对象提供的属性获得系统驱动器的相关信息：driveinfo.asp [例2] 利用FSO的TextStream对象创建、输出、复制、移动文本文件，并测试相关文件夹和文件是否存在：fsoexample.asp [例3] 利用File对象检测文件属性：fileattribute.asp [例4 ] 建立、复制、移动文件夹的操作：folderoperation.asp [例5 ] 利用Folder对象检测f2文件夹的属性：folderattribute.asp * * 4.12 其他对象和组件 A．Permission Checker组件 该组件可创建一个PermissionChecker对象，该对象只有一个HasAccess方法，用来检查用户是否具有访问服务器端某个文件的权限 创建PermissionChecker对象 [例] 检测用户是否具有访问相关文件的权限。文件：verify.asp Set check=server.CreateObject(MSWC.PermissionChecker) * * B．Page Counter组件 创建PageCounter对象，该对象具有三个方法。 Hits