熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

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

2013-11-13 10:39:24  來源: .NET編程 

  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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.