'示範利用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