提供了编程的基础技术教程

zl程序教程

您现在的位置是：首页 >  其他

当前栏目

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

文件ASP 功能 神奇 FSO
2023-06-13 09:13:46 时间
作者:甘冀平;


　　假设你想创建一个简单的留言簿，你可以建立一个数据库，在其中存储用户的信息。然而，如果并不需要数据库的强大功能，使用FSO来存储信息将节省你的时间和金钱。并且，一些ISP也许限制了web上的数据库应用。

　　假设你在一个表单中收集了一些用户信息，这里是一个简单表单HTML代码：

<html>
<body>

<formaction="formhandler.asp"method="post">
<inputtype="text"size="10"name="username">
<inputtype="text"size="10"name="homepage">
<inputtype="text"size="10"name="Email">
</form>
</body>
</html>

　　再看看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

　　当然，这些单词可以被输入在表单中的任何内容所替换。

相关文章