ASP中FSO的神奇功能 - 写文件

作者：甘冀平

设想你希望建立一个简单的留言簿来收集用户的信息，除了使用复杂的数据库技术外，其实还有更简便的方法。那就是利用FSO（文件系统对象）来存储信息。这不仅能节省你的时间和金钱，还能避免一些ISP对web上数据库应用的限制。

想象一下这样一个场景：你在一个网页表单中要求用户填写他们的信息。下面是一个简单的HTML表单代码：

```html

```

在服务器端，使用formhandler.asp来处理这个表单。代码的主要部分如下：

```asp

<%

'获取表单信息

strName = Request.Form("username")

strHomePage = Request.Form("homepage")

strEmail = Request.Form("Email")

'创建FSO对象

Set fso = Server.CreateObject("Scripting.FileSystemObject")

'准备写入文件的信息

path = "c:\emp\test.txt"

Set file = fso.opentextfile(path, ForAppending, TRUE) '如果文件不存在则创建文件

file.write(strName & vbCRLF) '写入用户名并换行

file.write(strHomePage & vbCRLF) '写入主页并换行

file.write(strEmail & vbCRLF) '写入并换行

file.close '关闭文件流对象并清理资源

Set file = Nothing

Set fso = Nothing

%>

```

现在，关于这个过程的有趣部分来了。在VBScript中，OpenTextFile方法返回一个TextStream对象，这是FSO模型的核心部分。这个TextStream对象提供了操作文件内容的方法，比如写入文本、读取一行、跳过一行等。常量vbCRLF用于创建一个新的行符。在OpenTextFile方法的参数中设置TRUE，意味着如果文件不存在，系统将自动创建它。如果没有设置TRUE并且文件不存在，程序会报错。转到目录c:\emp并打开test.txt文件，你会看到类似这样的信息：用户名、用户主页、用户等，这些都是用户在表单中输入的内容。这些就是简单的留言簿功能的核心部分。至于其他细节和美化，可以根据你的需要进行调整和扩展。请注意保持内容的生动性和丰富性，以吸引用户的注意力和兴趣。