ASP中FSO的神奇功能

ASP中FSO的神奇功能 转帖 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