ADO 简介 在 ASP 中访问数据库使用的 ADO 组件。 ADO 是一项微软的技术。 ADO 指 ActiveX 数据对象(ActiveX Data Objects)。
顺晟科技
2021-07-06 17:27:04
241
File Access 组件中常见的对象有 FileSystemObject、TextStream、File、Folder、Drive等,其中每一个对象都有不同的属性和方法,我们将会在用到的时候进行详细介绍。
FileSystemObject 对象用于访问服务器上的文件系统。
此对象可对文件、文件夹和目录路径进行操作、获取文件系统信息。
直接上例子(FSO_TextFile.asp)了,首先我们检查是否存在“test.txt”文件,不存在则创建它,并写入一些文本,然后将该内容显示在表单中,经过修改后,再实现保存功能。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!doctype html> <html> <head> <meta charset="utf-8"> <title>FileSystemObject 组件应用</title> </head> <body> <h3> <% Const sFileName = "/test.txt" Const ForReading = 1 '以只读方式打开文件 Const ForWriting = 2 '以写方式打开文件 Const ForAppending = 8'打开文件并从文件末尾开始写 Dim oFSO, oFile, sFileContent '读取和保存功能都在同一个页面,先判断是否是表单提交保存(POST) If UCase(Trim(Request.ServerVariables("REQUEST_METHOD"))) = "POST" Then '保存功能的实现 sFileContent = Request.Form("FileContent") Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(Server.MapPath(sFileName), ForWriting) oFile.Write(sFileContent) oFile.Close Response.Write("test.txt 保存完毕,并读取") Else '创建FSO对象 Set oFSO = Server.CreateObject("Scripting.FileSystemObject") '判断 test.txt 是否存在,不存在则创建 test.txt 文件 If NOT oFSO.FileExists(Server.MapPath(sFileName)) Then Set oFile = oFSO.CreateTextFile(Server.MapPath(sFileName)) oFile.Write("test.txt 创建,请开始编辑吧") Response.Write("文件不存在,创建 test.txt,") oFile.Close Set oFile = Nothing End If Set oFile = oFSO.OpenTextFile(Server.MapPath(sFileName), ForReading) Response.Write("读取 test.txt 内容") '读取 test.txt 全部内容 sFileContent = oFile.ReadAll() oFile.Close End If 'POST 判断 %> </h3> <form action="" method="POST"> <textarea rows="10" cols="50" name="FileContent"><%=sFileContent%></textarea> <input type="submit" value="保存"/> </form> <% Set oFSO = Nothing Set oFile = Nothing %> </body> </html>
如果 test.txt 文件不存在的话,则运行,会创建该文件,创建文件时用到了 FSO 的 CreateTextFile 方法,该方法返回一个 TextStream 对象。
运行效果如下:
我们可以开始编辑,最后点击“保存”提交表单。
请注意
我们在使用完 oFile 和 oFSO 对象完毕后,都及时将它们关闭并清空,这样有助于节省服务器的系统资源。
我们只是讲解了 FSO 最常用的功能之一,读取和写入文本文件的操作。FSO 具有对驱动器和文件夹两种文件系统对象访问的功能,这里我们只是罗列一下有需要的时候仅供参考。
以上每个方法具体的示例已经在代码(FSO_Other.asp) 中,请自行下载测试吧,效果如下:
以上每个方法具体的示例已经在代码(FSO_Other.asp) 中,请自行下载测试吧,效果如下:
以上每个方法具体的示例已经在代码(FSO_Other.asp) 中,请自行下载测试吧,效果如下:
FSO.RAR
06
2021-07
06
2021-07
06
2021-07
06
2021-07
06
2021-07
06
2021-07