深入理解ASP中FSO的神奇功能

 

在ASP中，FSO的意思是File System Object，即文档系统对象。
我们将要操纵的电脑文档系统，在这里是指位于web服务器之上。所以，确认您对此拥有合适的权限。理想情况下，您能够在自己的机器上建立一个web服务器，这样就能方便地进行测试。假如运行于Windows平台，请试一试微软公司的免费个人Web服务器PWS。
FSO 模型对象
Drive Object：驱动器对象 供存取磁盘或网络驱动器
FileSystemObject Object：文档系统对象 供存取电脑的文档系统
Folder Object：文档夹对象 供存取文档夹的任何属性
TextStream Object：文本流对象 供存取文档内容
您能够使用上面的对象做电脑上的任何事情，也包括破坏活动 ;-( 所以，请小心使用FSO。在web环境中，存储信息是很重要的，比如用户信息，日志文档，等等。FSO提供了一个强大且简单的方法高效率地保存数据。在这篇文章里面，着重讨论FileSystemObject和TextStream对象。
FSO由微软公司提供支持，对于非Windows系统，大概不能再使用ASP。
怎么样使用FSO？
为了使用FSO来执行任何的工作，首先要创建对象，代码就象下面这样：

＜ % Set fso = Server.CreateObject("Scripting.FileSystemObject")
% ＞

这样就建立了FSO并且赋予变量fso，接着就能够使用熟悉的object.method语法来执行文档系统的操作〔查看Visual Basic文档，获取更多的关于对象和对象向导编程的知识〕。在这里，我们能够使用fso.method 或 fso.property，这些将在下面的例子中看到。
FSO模型位于由微软提供的脚本运行时间DLL文档中，他是scrrun.dll。您能够在任何应用程式中引用这个DLL文档，比如MS Access，Word。 就是说，并非仅仅限制在ASP中应用他。
这里有一个简要的FSO方法列表：

FSO方法

CopyFile
拷贝一个或多个文档到新路径

CreateTextFile
创建文档并且返回一个TextStream对象

DeleteFile
删除一个文档

OpenTextFile
打开文档并且返回TextStream对象，以便读取或追加

假如想了解完整的FSO方法和属性，请查阅微软MSDN。下面来看几个例子。
假设您想创建一个简单的留言簿，您能够建立一个数据库，在其中存储用户的信息。然而，假如并无需数据库的强大功能，使用FSO来存储信息将节省您的时间和金钱。并且，一些ISP也许限制了web上的数据库应用。
假设您在一个表单中收集了一些用户信息，这里是个简单表单HTML代码：

＜ html＞
＜ body＞
＜ form action="formhandler.asp" method="post"＞
＜ input type="text" size="10" name="username"＞
＜ input type="text" size="10" name="homepage"＞
＜ input type="text" size="10" name="Email"＞
＜ /form＞
＜ /body＞
＜ /html＞

再看看formhandler.asp中处理表单的代码：

＜ %
' Get form info
strName = Request.Form("username")
strHomePage = Request.Form("homepage")
strEmail = Request.Form("Email")
' create the fso object
Set fso = Server.CreateObject("Scripting.FileSystemObject")

迄今为止，还没有新鲜的东西，无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分 － 写文档：

path = "c: emp est.txt"
ForReading = 1, ForWriting = 2, ForAppending = 3
' open the file
set file = fso.opentextfile(path, ForAppending, TRUE)
' write the info to the file
file.write(strName) & vbcrlf
file.write(strHomePage) & vbcrlf
file.write(strEmail) & vbcrlf
' close and clean up
file.close
set file = nothing
set fso = nothing

回想一下，OpenTextFile方法返回一个TextStream对象，他是FSO模型中的另外一个对象。TextStream对象揭示了操作文档内容的方法，比如写、读一行、跳过一行。VB常量vbcrlf产生一个换行符。
在OpentextFile的命令参数中定义了TRUE，这就告诉了系统，假如文档不存在，就创建他。假如文档不存在，并且没有定义TRUE参数，就会出错。
现在转到目录c: emp，打开test.txt，您能够看到如下的信息：

User's name
User's home page
User's email

当然，这些单词能够被输入在表单中的任何内容所替换。
现在已有了一些用户信息保存在文档中，就像一个简单的数据库。假设有一个用户想了解任何的访问者，就要从登记的信息中分离出相关部分，因为没有象数据库相同拥有结构化的列。
我们知道，在所创建的文档中，第1行是用户名，第2行是他们的主页，第3行是他们的电子邮件地址。随后登记的用户也是按照这样的结构存储他们的信息，所以每3行将包含一个用户的登记信息。知道了这些，就能够编写下面的代码来显示信息：

＜ %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"
' open the file
set file = fso.opentextfile(path, 1) ＜ -- For
reading

接着，分析每一行，并且格式化数据：

do until file.AtEndOfStream
Response.write("Name: " & file.ReadLine & " ")
Response.write("Home Page: " & file.ReadLine & " ")
Response.write("Email: " & file.ReadLine & "＜ p＞")
loop
' close and clean up
file.close
set file = nothing
set fso = nothing
%＞

这里仅仅做了一个很简单的输出，但是您能够根据情况包含表格或DHTML表单信息。
假如已正确地建立并写入了文档，上面的小小循环将合适地列出数据库中的每一个人的信息。ReadLine方法读取1行内容，直到碰到换行符，随后的ReadLine调用将读取下一行。AtEndOfStream是TextStream对象的属性，他告诉我们何时碰到文档的尾部。
假设由于某种原因，我们没有正确地形成文档，假如一个用户只有2行信息而不是3行，那么就会产生一些错误。我们这里的循环取回文档中的下3行信息，假如没有3行多的信息，就将出现如下的错误信息：

Server object error 'ASP 0177 : 800a003e'

所以，一定要添加一些错误处理代码，以防文档中插入了多余的行或少了必要的行信息。
上面讨论了基本知识，然后说说权限许可的问题。FSO以创建他的用户帐户权限运行，换言之，假如有人从Internet上访问您的页面，那么这个internet帐户就创建FSO。假如以administrator的身份登录电脑，并且登录页面，那么administrator帐户就创建了FSO。这是很重要的，因为一定的帐户拥有一定的权限，并且FSO需要一些权限从而能完整的执行功能。
internet帐户（IUSER_MachineName，MachineName是服务器的名字）一般只拥有读权限，这意味着用户将不能写入留言簿文档。然而，有几个选择能够绕过这个问题。
首先，也是很困难的，是需要用户在填写留言簿前登录到服务器。然而，留言簿的要点是从匿名用户处收集信息，假如需要用户登录，就必须要知道他们是谁。因此，跳过这个选择，看下一个。
第2个方法是创建一个目录或文档，IUSER_MachineName用户对此有写权限。这样做可能开放了一些潜在的安全漏洞，因为任何知道正确目录并具备一定web技巧的人就能在服务器上填充内容。这是个很严重的禁忌。所以您必须确认在隐藏的场所保存了这些可写目录的信息，并且尽可能地将这些目录配置在web目录结构以外（比如在Windows下，这是个不在inetpub目录下的一个目录）。
您也许想：好，现在我知道怎样写入文档了。但能做到更多一些吗？下面来试一试为web站点建立一个搜索功能。
建立搜索引擎的关键是递归。主要地，编写一段代码搜索目录下的文档，然后对任何的目录循环执行同样的代码。因为不能确定总共有多少个子目录，所以必须一遍又一遍地执行搜索代码，直到结束。递归调用很好！
下面来创建搜索页面。假设已建立了一个HTML表单，用户在其中输入一个搜索字符串。

Dim objFolder
Dim strSearchText
Dim objFSO
strSearchText = Request.Form("SearchText") ＜ -- The search string
' create the FSO and Folder objects
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("/"))
Search objFolder

上面的代码简单地初始化变量，Search函数执行搜索功能，描述如下：

Function Search(objFolder)
Dim objSubFolder
'loop through every file in the current
folder
For Each objFile in objFolder.Files
Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) ＜ -- For Reading
'read the file's contents into a
variable
strFileContents = objTextStream.ReadAll
'if the search string is in the file, then
write a link
' to the file
If InStr(1, strFileContents, strSearchText, 1) then
Response.Write "＜ A HREF=""/" & objFile.Name & _
"""＞" & objFile.Name & "＜ /A＞＜ BR＞"
bolFileFound = True
End If
objTextStream.Close
Next
'Here's the recursion part - for each
' subfolder in this directory, run the Search function again
For Each objSubFolder in objFolder.SubFolders
Search objSubFolder
Next
End Function

为了能打开文档，FSO需要实际的文档路径，而不是web路径。比如，是c:inetpubwwwroot empindex.html, 而不是www.enfused.com/temp/index.html 或 /temp/index.html。 为了将后者转换为前者，使用Server.MapPath("filename"), filename表示web路径名。
上面的代码将在您指定的初始目录下的文档夹的每一个子目录中执行，在这里，初始目录是指web根目录“/”。然后就简单地打开目录下的每一个文档，看看其中是否包含指定的字符串，假如找到字符串就显示那个文档的链接。
注意，随着文档和子目录数量的增加，搜索花费的时间也将增加。假如需要繁重的搜索工作，建议您采取其他的方法，比如微软公司的索引服务器Index Server。

转载于:https://www.cnblogs.com/masky5310/archive/2010/10/26/1861564.html