程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp FSO 讀寫文件本文件實現代碼

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

編輯:關於ASP編程

     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>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved