asp己经过时有一段时间了,我来讲述一下利用asp fso来实现文件读写操作,有需要学习的朋友可参考参考。
1.AtEndOfStream
该属性表明是否已到达整个文本文件末尾。其值为"TRUE"或"FALSE"
2.CreateTextFile
用来创建新的文本文件
3.OpenTextFile()方法中的参数
saucer(思归)所写的:
代码如下 Set f = fso.OpenTextFile("c:testfile.txt", ForWriting, True)ForWriting值为2,表示打开一个可写的文本文件
为1,表示打开一个可读的文本文件
True是表示如果没有这个文件,将新建一个
这个参数可选True或False,表明文件不存在时是否创建
实例1
读文件:
代码如下 <%
写文件:
实例2
FSO打造最简单的访问计数器
代码如下<%
set fs=Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("counter.txt")
Set txtr = fs.OpenTextFile(File,1,true)'打开只读文件file,如果不存在则新建
counter=0'将计数器归零
If Not txtr.atEndOfStream Then'先确定还没有到达结尾的位置
Line = txtr.ReadLine '读取一行数据
else
line=0 '否则设置初始值为0
End If
counter=line+1 '计数加1
set txtw = fs.opentextfile(file,2,true) '打开只写文件file
txtw.write counter '写入计数
response.Write("<center>您是第<b>"&counter&"</b>位访客!</center>")
'输出计数
%>
在需要统计和显示计数的地方可以用include的方式引入这个文档。
代码如下<!--#include file="counter.asp"-->
新闻热点
疑难解答