asp FSO 讀寫文件本文件實現代碼

 asp己經過時有一段時間了，我來講述一下利用asp fso來實現文件讀寫操作，有需要學習的朋友可參考參考。

 

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