|
Server对像 基本属性：ScriptTimeout '用于设定一个脚本执行的最长时间 基本方法：Creatobject("[ActiveX对象]") 创建及返回一个ActiveX对象 实例一：写入文件 语法 object.CreateTextFile([要建立的文件],[如存在，是否替代]) <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs Set a = fs.CreateTextFile(server.MapPath("ss.txt"), True) '用fs的CreateTextFile方法建立一个文本文件给赋给 a 'a = fs.CreateTextFile("e:\web\testfile.txt", True) a.WriteLine("我的文件写入") '给建立好的文本文件a用WriteLine方法写入一行文字 a.Close '关掉a文件 %> 实例二：复制文件 语法 object.CopyFile [复制路经], [粘贴路经][, 如存在，是否替代] <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.CopyFile "d:\ss.txt","e:\bb.txt",True '用fs的CopyFile方法复制文件 %> 实例三：复制文件夹 语法 object.CopyFolder [复制路经], [粘贴路经][, 如存在，是否替代] <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.CopyFolder "d:\哈哈","e:\呵呵",True '用fs的CopyFolder方法复制文件夹 %> 实例四：创建文件夹 语法 object.CreateFolder([文件]) <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.CreateFolder ("e:\呵呵",true) '用fs的GreateFolder方法创建文件夹 %> 实例五：删除文件 语法 object.DeleteFile [路经][, force] 如果要删除只读文件，则force值为 True；否则为 False（默认）。 <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.DeleteFile "e:\ss.txt",true '用fs的DeleteFile方法删除文件 %> 实例六：删除文件夹 语法 object.DeleteFile [路经][, force] 如果要删除只读文件夹，则force值为 True；否则为 False（默认）。 <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.DeleteFolder "e:\呵呵",true '用fs的DeleteFolder方法删除文件夹 %> 实例七：移动文件 语法 object.MoveFile [路经],[移到路经] <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.MoveFile "D:\ss.txt","E:\bb.txt" '用fs的MoveFile方法移动文件 %> 实例七：移动文件夹 语法 object.MoveFolder [路经],[移到路经] <% Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs fs.MoveFolder "D:\哈哈","E:\呵呵" '用fs的MoveFolder方法移动文件夹 %> 实例八：查看驱动器是否存在 语法 object.DriveExists([驱动器路径]) 如果指定的驱动器存在，则返回 True；否则返回 False。 <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs a=fs.DriveExists("D:") '用fs的DriveExists查找驱动器 response.write a %> 实例九：查看文件是否存在 语法 object.FileExists([文件路经]) 如果指定的文件存在，则返回 True；否则返回 False。 <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs a=fs.FileExists("D:\哈哈\ss.txt") '用fs的FileExists查找文件 response.write a %> 实例十：查看文件是否存在 语法 object.FolderExists([文件夹路经]) 如果指定的文件夹存在，则返回 True；否则返回 False。 <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs a=fs.FolderExists("D:\哈哈") '用fs的FolderExists查找文件夹 response.write a %> 实例十一：读取文件 语法 object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开 <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs Set a=fs.OpenTextFile("D:\哈哈\ss.txt") do while not a.AtEndOfStream '判断是否读到文件最后一行 response.write a.readLine & "<br>" '读取文件逐行输出 loop a.close set fs=nothing %> 实例十二：追加记录 语法 object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立]) <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs Set a=fs.OpenTextFile("D:\哈哈\ss.txt",8,true) 'true 带表如果文件不存在就自动建立 a.WriteLine("我的文件写入") a.close set fs=nothing %> 实例十三：修改 语法 object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立]) <% dim a Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs Set a=fs.OpenTextFile("D:\哈哈\ss.txt",2,true) 'true 带表如果文件不存在就自动建立 a.WriteLine("我的文件写入") a.close set fs=nothing %> ======================== 下面作者给大家解释一下 CreateTextFile 方法的参数 1、 Filename 包含文件路径名的字符串，可以是文件的全路径名，包括驱动器名和目录名，或者也可以只是文件名，如果只包含文件名的话，文件将被创建在站点的根目录下。 2、 Overwrite 布尔量，设置成 False 时可以防止 FileSystemObject 对象在创建一个新文件时删除已存在的文件，该参数是可选的，如果没有赋值系统默认为 true，具有相同文件名的已有文件会被删掉。 3、 Unicode 可选参数。布尔值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。 在前面的程序中我们用 set ss=fs.CreateTextFile(syslog,ForWriting,false) 来在 log 文件不存在的情况下创建文件并对文件进行写操作，这里的“ForWriting”表示写文件。 ----------------------------------- 与 CreateTextFile 方法不同， OpenTextFile 方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作，和 CreateTextFile 方法一样， OpenTextFile 方法返回一个 TextStream 对象，使得你可以在文件被打开后操作该文件。 OpenTextFile 方法的语法如下: Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format]) 参数说明如下 : 1、Filename 必须的变量，同 CreateTextFile 的 filename 2、IOmode 可选的常量，取值为下列两个常数之一 ForReading 或 ForAppending，如果 mode 为 1，文件以只读方式打开，如果为 8，则文件以追加的方式打开。 3、Create 可选的布尔量，指定如果你想打开的文件不存在是做什么操作，如果其值为 True，当文件不存在时就自动创建一个空的文件。如果为 False，就会在文件没找到时产生一个出错信息，其默认值是 False，建议将其设为 True，以避免在打开文件时检查是否出错。 4、Format 可选值，可以选择三种 Tristate 值分别指定文件的格式， -2、 -1、和 0 分别对应于系统缺省、 unicode 和 ASCII。 在打开或创建了文本文件后，就得到一个 TextStream 对象，该对象有一个光标，就好象是在字处理程序中的光标一样，指出接下来要敲入的字符将出现的位置，它同时也指出你要读取的字符的位置。不能通过 CreatObject 来创建一个 TextStream 对象，得到 TextStream 对象的唯一方法是如前所述的用 FileSystemObject 对象打开一个存在的文本文件或者创建一个新的文件。 下面列出了 TextStream 对象的属性和方法 TextStream.AtEndOfLine 只读布尔量，当光标在当前行的末尾时，其值为 true，反之则为 false TextStream.AtEndOfStream 只读布尔量，如果光标在流的末尾时，其值为 true，否则为 false TextStream.Column 只读的整数，统计从行首到当前光标位置之间的字符数 TextStream.Line 只读的整数，指明光标所在行在整个文件中的行号 TextStream.close() 关闭流以及对应的文本文件 TextStream.read(Num) 指定从光标的当前位置开始从文本文件中读取一定数目的字符 TextStream.readall() 将整个流读入一个字符串中 TextStream.readline() 将一整行的字符读入一个字符串中 TextStream.write(text) 将一个字符串写入流中 TextStream.writeline() 将一个文本串写入流中 TextStream.skip(Num) 在流中，将光标的位置移动一定数目的字符串长度 TextStream.skiplines() 在流中，将光标移动一定数目的行数 TextStream.writeblank 将一定数目的空行写入流中 lines(num) |
|
|
