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>

From:http://tw.wingwit.com/Article/program/net/201311/14234.html