'VBScript程式碼
'示範利用CreateTextFile的方法直接建立一個新的檔案並且覆蓋舊有檔案的設計方式

    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.CreateTextFile(file_Path, True)
    CounterFile.WriteLine(NewCounterValue)
    CounterFile.Close