 |
| fso |
基本简介编辑本段回目录
 |
| fso |
FSO模型对象：
Drive Object：驱动器对象供存取磁盘或者网络驱动器；
File System Object Object：文件系统对象供存取计算机的文件系统；
Folder Object：文件夹对象供存取文件夹的所有属性；
Text Stream Object：文本流对象供存取文件内容。
可以使用上面的对象做计算机上的任何事情，也包括破坏活动。所以，请小心使用FSO。在web环境中，存储信息是非常重要的，比如用户信息，日志文件等。FSO提供了一个强大且简单的方法高效率地保存数据。在这篇文章里面，着重讨论File System Object和Text Stream对象。FSO由微软公司提供支持，对于非Windows系统，不能再使用ASP。
使用方法编辑本段回目录
为了使用FSO来执行所有的工作，首先要创建对象，代码就象下面这样：
这样就建立了FSO并且赋予变量fso，接着就可以使用熟悉的object.method语法来执行文件系统的操作〔查看VisualBasic文档，获取更多的关于对象和对象向导编程的知识〕。在这里，可以使用fso.method或者fso.propert
 |
| fso |
FSO模型位于由微软提供的脚本运行时间DLL文件中，它是scrrun.dll。你可以在任何应用程序中引用这个DLL文件，比如MSAccess，Word。就是说，并非仅仅限制在ASP中应用它。
FSO方法一个简要的FSO方法列表：
Copy File拷贝一个或者多个文件到新路径；
Create Text File创建文件并且返回一个Text Stream对象；
Delete File删除一个文件；
Open Text File打开文件并且返回Text Stream对象，以便读取或者追加。如果想了解完整的FSO方法与属性，请查阅微软MSDN。
权限许可编辑本段回目录
 |
| fso |
首先，也是很困难的，是要求用户在填写留言簿前登录到服务器。然而，留言簿的要点是从匿名用户处收集信息，如果要求用户登录，就必须要知道他们是谁。因此，跳过这个选择，看下一个。
第2个方法是创建一个目录或者文件，IUSER_Machine Name用户对此有写权限。这样做可能开放了一些潜在的安全漏洞，因为任何知道正确目录并具备一定web技巧的人就能在服务器上填充内容。这是一个很严重的禁忌。所以你必须确认在隐藏的场所保存了这些可写目录的信息，并且尽可能地将这些目录设置在web目录结构以外（比如在Windows下，这是一个不在inetpub目录下的一个目录）。
文件读取编辑本段回目录
 |
| fso |
<%
'createthefsoobject
setfso=Server.Createobject("Scripting.FileSystemObject")
path="c:empest.txt"
'openthefile
setfile=fso.opentextfile(path,1)<--For
reading
接着，分析每一行，并且格式化数据：
dountilfile.AtEndOfStream
Response.write("Name:"&file.ReadLine&"")
Response.write("HomePage:"&file.ReadLine&"")
Response.write("Email:"&file.ReadLine&"")
loop
'closeandcleanup
file.close
setfile=nothing
setfso=nothing
%>
这里仅仅做了一个非常简单的输出，可以根据情况包含表格或者DHTML表单信息。如果已经正确地建立并写入了文件，上面的小小循环将合适地列出数据库中的每一个人的信息。ReadLine方法读取1行内容，直到遇到换行符，随后的Read Line调用将读取下一行。At End Of Stream是Text Stream对象的属性，何时遇到文件的尾部。假设由于某种原因，没有正确地形成文件，如果一个用户只有2行信息而不是3行，那么就会产生一些错误。这里的循环取回文件中的下3行信息，如果没有3行多的信息，就将出现如下的错误信息：Serverobjecterror'ASP0177:800a003e' 所以，一定要添加一些错误处理代码，以防文件中插入了多余的行或者少了必要的行信息。
文件写入编辑本段回目录
 |
| fso |
再看formhandler.asp中处理表单的代码：
<%
'Getforminfo
strName=Request.Form("username")
strHomePage=Request.Form("homepage")
strEmail=Request.Form("Email")
'createthefsoobject
Setfso=Server.CreateObject("Scripting.FileSystemObject")
迄今为止，还没有新鲜的东西，无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分－写文件：
path="c:empest.txt"
ForReading=1,ForWriting=2,ForAppending=3
'openthefile
setfile=fso.opentextfile(path,ForAppending,TRUE)
'writetheinfotothefile
file.write(strName)&vbcrlf
file.write(strHomePage)&vbcrlf
file.write(strEmail)&vbcrlf
'closeandcleanup
file.close
setfile=nothing
setfso=nothing
OpenTextFile方法返回一个TextStream对象，它是FSO模型中的另外一个对象。TextStream对象揭示了操作文件内容的方法，比如写、读一行、跳过一行。VB常量vbcrlf产生一个换行符。在OpentextFile的命令参数中定义了TRUE，这就告诉了系统，如果文件不存在，就创建它。如果文件不存在，并且没有定义TRUE参数，就会出错。现在转到目录c:emp，打开test.txt，你可以看到如下的信息：
User'sname
User'shomepage
User'semail
这些单词可以被输入在表单中的任何内容所替换。
搜索功能编辑本段回目录
 |
| fso |
DimobjFolder
DimstrSearchText
DimobjFSO
strSearchText=Request.Form("SearchText")"&objFile.Name&""
bolFileFound=True
EndIf
objTextStream.Close
Next
'Here'stherecursionpart-foreach
'subfolderinthisdirectory,runtheSearchfunctionagain
ForEachobjSubFolderinobjFolder.SubFolders
SearchobjSubFolder
Next
EndFunction
为了能打开文件，FSO需要实际的文件路径，而不是web路径。比如，是c：inetpubwwwrootempindex.html，而不是www.enfused.com/temp/index.html或者/temp/index.html。为了将后者转换为前者，使用Server.MapPath("filename")，filename表示web路径名。上面的代码将在你指定的初始目录下的文件夹的每一个子目录中执行，在这里，初始目录是指web根目录“/”。然后就简单地打开目录下的每一个文件，看看其中是否包含指定的字符串，如果找到字符串就显示那个文件的链接。注意，随着文件和子目录数量的增加，搜索花费的时间也将增加。如果需要繁重的搜索工作，建议你采取其他的方法，比如微软公司的索引服务器Index Server。
内容管理编辑本段回目录
 |
| fso |
<%
'createthefsoobject
setfso=Server.Createobject("Scripting.FileSystemObject")
path="c:empest.txt"
strDate=Replace(Date(),"/","")
strDir="c:inetpubwwwrootarticles"&strDate
strNewFileName=Hour(Now)&"_"&Minute(Now)&"_"&
second(Now)&".html"
'opentheoldfile
setfile=fso.opentextfile(path,1)<--Forreading
strText=file.readall
setfile=nothing
'checkforand/orcreatefolder
ifnotfso.folderexists(Server.MapPath(strDir))then
setf=fso.CreateFolder(Server.MapPath(strDir))
else
setf=fso.GetFolder(Server.MapPath(strDir))
endif
'createandwritenewfile
setfile=fso.Createtextfile(f.path&""&strNewFileName)
file.write(strText)
setf=nothing
file.close
setfile=nothing
'deletetheoldfile
fso.DeleteFile(path&""&rst("FileName")&i)
'cleanup
setfso=nothing
FSO能力的不足在这里却成了优势，可以一次执行2步。首先，打开文件并读入文件的内容。假设这里要创建一个唯一的文件夹和一个唯一的文件来存储文章。然而，因为文件夹的路径每天都将改变，所以必须首先检查是否文件夹已经存在，如果不存在，就创建它。这在ifnotfso.folderexists代码段完成。然后，取得那个路径，创建一个新的文件。新文件建立完成后，删除掉旧文件，这通过fso.DeleteFile来完成。
这2步就是：对文件改名，然后移动到一个更合适的目录下。注意，在这里还可以对文件进行更多地操作，比如在写入新文件前进行一下内容的编辑。
FSO确实存在一些弱点－比如，它很难处理二进制文件，这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件－移动它们、删除它们，等等。你不能做的就是对它们进行打开或者写操作。另外一个限制是对于文件长度的问题。当立刻读写一些内容时，所有的信息都存储在内存中－内容越多，消耗的内存就越大。这将使每个工作都变得慢起来。所以，如果需要操作非常大的文件，或者大量的小文件时，考虑将文件分割成小块，并且经常的清除内存。
将应用程序融入进COM对象组件，也能大大地提高程序的速度。同样，你也不能使用FSO来管理权限以及文件、文件夹的属性，执行安全加密的一个很好方法就是将前面提到的留言簿文件设置为只读，在需要时再设置为可写，然后再修改回来。这个方法经常在CGI和Perl使用，但是很不幸，还没有令人满意的方法来用FSO实现。
相关词条编辑本段回目录
| MYSQL | IP | ICP | ALEXA | PR | SEO |
| CGI | FSO | FTP | POP3 | WCM | ECM |
| FLASH | WEB | GPU | CPA | DIV | CSS |
| HTML | BBS | .NET | XML | AJAX | MD5 |
