'示範VBScript在ASP開啟一般文字格式檔案並寫入資料的方式
'利用開啟檔案為可讀寫的方式更新瀏覽記錄值
 Set fs = Server.CreateObject("Scripting.FileSystemObject")
 file_Path = Server.MapPath("database/counter.txt")
 Set CounterFile = fs.OpenTextFile(file_Path)
 OldCounterValue = CounterFile.ReadLine
 NewCounterValue=OldCounterValue + 1
 CounterFile.Close

 '開啟檔並允許覆寫舊有資料
 Set CounterFile = fs.OpenTextFile(file_Path, 2)

 '利用WriteLine方法寫入資料
 CounterFile.WriteLine(NewCounterValue)
 CounterFile.Close