<p>ASP中FSO的神奇功能 - 写文件</p>
<p>作 者 : 甘冀平 ;</p>
<p><br />
假设你想创建一个简单的留言簿，你可以建立一个数据库，在其中存储用户的信息。然而，如果并不需要数据库的强大功能，使用FSO来存储信息将节省你的时间和金钱。并且，一些ISP也许限制了web上的数据库应用。</p>
<p> 假设你在一个表单中收集了一些用户信息，这里是一个简单表单HTML代码：</p>
<p>< html><br />
< body></p>
<p>< form action="formhandler.asp" method="post"><br />
< input type="text" size="10" name="username"><br />
< input type="text" size="10" name="homepage"><br />
< input type="text" size="10" name="Email"><br />
< /form><br />
< /body><br />
< /html></p>
<p> 再看看formhandler.asp中处理表单的代码：</p>
<p>< %<br />
' Get form info<br />
strName = Request.Form("username")<br />
strHomePage = Request.Form("homepage")<br />
strEmail = Request.Form("Email")</p>
<p>' create the fso object<br />
Set fso = Server.CreateObject("Scripting.FileSystemObject")</p>
<p> 迄今为止，还没有新鲜的东西，无非是获取表单域的值并且赋值到变量。下面出现了有趣的部分 － 写文件：</p>
<p>path = "c: emp est.txt"<br />
ForReading = 1, ForWriting = 2, ForAppending = 3</p>
<p>' open the file<br />
set file = fso.opentextfile(path, ForAppending, TRUE)</p>
<p>' write the info to the file<br />
file.write(strName) & vbcrlf<br />
file.write(strHomePage) & vbcrlf<br />
file.write(strEmail) & vbcrlf</p>
<p>' close and clean up<br />
file.close<br />
set file = nothing<br />
set fso = nothing</p>
<p><br />
回想一下，OpenTextFile方法返回一个TextStream对象，它是FSO模型中的另外一个对象。TextStream对象揭示了操作文件内容的方法，比如写、读一行、跳过一行。VB常量vbcrlf产生一个换行符。</p>
<p> 在OpentextFile的命令参数中定义了TRUE，这就告诉了系统，如果文件不存在，就创建它。如果文件不存在，并且没有定义TRUE参数，就会出错。</p>
<p> 现在转到目录c: emp，打开test.txt，你可以看到如下的信息：</p>
<p>User's name<br />
User's home page<br />
User's email</p>
<p> 当然，这些单词可以被输入在表单中的任何内容所替换。 <br />
</p>