asp FSO 读写文件本文件实现代码

时间：2022-06-30 11:41:15 编辑：袖梨来源：一聚教程网

1.AtEndOfStream

该属性表明是否已到达整个文本文件末尾。其值为"TRUE"或"FALSE"

2.CreateTextFile

用来创建新的文本文件

3.OpenTextFile()方法中的参数

saucer(思归)所写的：

代码如下	复制代码
Set f = fso.OpenTextFile("c:testfile.txt", ForWriting, True)

ForWriting值为2,表示打开一个可写的文本文件
为1,表示打开一个可读的文本文件
为8，表示要附加数据

True是表示如果没有这个文件，将新建一个
这个参数可选True或False,表明文件不存在时是否创建

实例1

读文件：

代码如下	复制代码
<% set myfileobject=server.createobject("scripting.filesystemobject") set mytextfile=myfileobject.opentextfile("c:mydirtest.txt") while not mytextfile.atendofstream response.write(mytextfile.readline) wend mytextfile.close %>

写文件：

代码如下	复制代码
<% set myfileobject=server.CreateObject("Scripting.FileSystemObject") set mytextfile=myfileobject.CreateTextFile("c:mydirtest.txt") mytextfile.WriteLine mytextfile.close %>

实例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("

您是第"&counter&"位访客！")
'输出计数
%>

在需要统计和显示计数的地方可以用include的方式引入这个文档。

代码如下	复制代码

但是如果是html之类静态页面，则可以通过script脚本的方式来使用这个简单的计数器。

那么Counter.asp则需要这么写了

代码如下

复制代码

response.Write("document.write(""

您是第"&counter&"位访客！"");")

需要引用的html静态页里可以通过Script脚本来使用计数器：

代码如下	复制代码

推荐专题

最新下载

热门教程

asp FSO 读写文件本文件实现代码

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程