怎么在ASP的SFO中实现读写文件本文件


 

下面是帝通科技小编整理的在ASPSFO中实现读写文件本文件的代码:

 

FSO(FileSystemObject)是微软ASP的一个对文件操作的控件,该控件可以对服务器进行读取、新建、修改、删除目录以及文件的操作。

 

1.AtEndOfStream

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

2.CreateTextFile

用来创建新的文本文件

3.OpenTextFile()方法中的参数

saucer(思归)所写的:

 代码如下

复制代码

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

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

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

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


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

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

 代码如下

复制代码

<%

response.Write("document.write(""<center>您是第<b>"&counter&"</b>位访客!</center>"");")

%>

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

 代码如下

复制代码

<script src="counter.asp"></script>

 

 

以上内容有帝通科技编辑整理,帝通科技拥有一支一流的专业运维团队与网络安全技术专业人才。公司主营业务有虚拟主机、云主机、服务器租用、服务器托管、超高防御、百度云加速、快速建站、域名注册等。如果您更感兴趣的话可以联系我们q800128301tel0371-53372100

 

编辑:帝通科技

 

服务器知识分享博客:

http://www.cnvps.cc/

http://virtual.ddv.cn/

http://vps.ddv.cn/

快速建站,虚拟机,云主机,主机租用和托管,域名中心,百度云加速。速来q我800128301