首页 > 网站 > 建站经验 > 正文

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

2019-11-02 14:41:43
字体:
来源:转载
供稿:网友

 asp己经过时有一段时间了,我来讲述一下利用asp fso来实现文件读写操作,有需要学习的朋友可参考参考。

 

1.AtEndOfStream

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

2.CreateTextFile

用来创建新的文本文件

3.OpenTextFile()方法中的参数

saucer(思归)所写的:

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

ForWriting值为2,表示打开一个可写的文本文件
为1,表示打开一个可读的文本文件

中国历史故事[www.9-39.com/html/china/]

为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("<center>您是第<b>"&counter&"</b>位访客!</center>") 
'输出计数 
%>

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

 代码如下  

<!--#include file="counter.asp"-->

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表