% 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) CounterFile.WriteLine(NewCounterValue) CounterFile.Close %>
|
|
|||||||||
| ||