阿博的筆記本

'利用VbScript在ASP程式段中開啟一般文字格式檔案

Set fs = Server.CreateObject("Scripting.FileSystemObject")
file_Path = Server.MapPath("database/counter.txt")
Set CounterFile = fs.OpenTextFile( file_Path )

'利用ReadLine方法讀取檔案中的一行資料
OldCounterValue = CounterFile.ReadLine
NewCounterValue=OldCounterValue + 1
CounterFile.Close

'利用打開檔案寫入資料的方式累加計數版

Set fs = Server.CreateObject("Scripting.FileSystemObject") '新增檔案物件
file_Path = Server.MapPath("database/CmEC-Counter.txt") '取得檔案路徑
set CounterFile = fs.OpenTextFile(file_Path , 1 ,False , 0 ) '讀取檔案
OldCounterValue = CounterFile.ReadLine '讀取檔案第一行檔案
NewCounterValue = OldCounterValue + 1 '更新
set CounterFile = fs.OpenTextFile(file_Path ,2) '打開檔案
CounterFile.WriteLine(NewCounterValue) 寫入數字
CounterFile.Close '關閉