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

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

AtEndOfStream

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

CreateTextFile

用来创建新的文本文件

OpenTextFile()方法中的参数

saucer(思归)所写的

代码如下 Set f = fsoOpenTextFile("c:testfiletxt" ForWriting True)

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

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

实例

读文件

代码如下 <%
set myfileobject=servercreateobject("scriptingfilesystemobject")
set mytextfile=myfileobjectopentextfile("c:mydirtesttxt")
while not mytextfileatendofstream
responsewrite(mytextfilereadline)
wend
mytextfileclose
%>

写文件

代码如下 <%
set myfileobject=serverCreateObject("ScriptingFileSystemObject")
set mytextfile=myfileobjectCreateTextFile("c:mydirtesttxt")
mytextfileWriteLine
mytextfileclose
%>

实例

FSO打造最简单的访问计数器

代码如下

<%
set fs=ServerCreateObject("ScriptingFileSystemObject")
File = ServerMapPath("countertxt")
Set txtr = fsOpenTextFile(Filetrue)打开只读文件file如果不存在则新建
counter=将计数器归零
If Not txtratEndOfStream Then先确定还没有到达结尾的位置
Line = txtrReadLine 读取一行数据
else
line= 否则设置初始值为
End If
counter=line+ 计数加
set txtw = fsopentextfile(filetrue) 打开只写文件file
txtwwrite counter 写入计数
responseWrite("<center>您是第<b>"&counter&"</b>位访客！</center>")
输出计数
%>

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

代码如下

<!#include file="counterasp">

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

那么Counterasp则需要这么写了

代码如下

<%

responseWrite("documentwrite(""<center>您是第<b>"&counter&"</b>位访客！</center>"");")

%>

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

代码如下

<script src="counterasp"></script>