知识大全 asp FSO 读写文件本文件实现代码

Posted 2022-07-17 文件

篇首语：笨人先起身，笨鸟早出林。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 asp FSO 读写文件本文件实现代码相关的知识，希望对你有一定的参考价值。

asp FSO 读写文件本文件实现代码 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

　　 AtEndOfStream

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

　　 CreateTextFile

　　用来创建新的文本文件

　　 OpenTextFile()方法中的参数

　　saucer(思归)所写的

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

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

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

　　实例

　　读文件

代码如下 <% 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 %>

　　实例

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

代码如下

　　<% set fs=Server CreateObject("Scripting FileSystemObject") File = Server MapPath("counter txt") Set txtr = fs OpenTextFile(File true) 打开只读文件file 如果不存在则新建 counter= 将计数器归零 If Not txtr atEndOfStream Then 先确定还没有到达结尾的位置 Line = txtr ReadLine 读取一行数据 else line= 否则设置初始值为 End If counter=line+ 计数加 set tx = fs opentextfile(file true) 打开只写文件file tx write counter 写入计数 response Write("<center>您是第<b>"&counter&"</b>位访客！</center>") 输出计数 %>

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

代码如下

　　<! #include file="counter asp" >

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

　　那么Counter asp则需要这么写了

代码如下

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

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

代码如下 cha138/Article/program/net/201311/14234