Updated: Monday, 20. January 2003
|
|
<%
Set fs = CreateObject("Scripting.FileSystemObject")
LogFile = Server.MapPath("log/Counter.log")
Set rf = fs.OpenTextFile(LogFile, 1, False)
LastCount = rf.ReadLine
Count = LastCount+1
Set wf = fs.OpenTextFile(LogFile, 2, True)
wf.WriteLine(Count)
wf.Close
rf.Close
Set wf = nothing
Set rf = nothing
Set fs = Nothing
%>
Updated: Monday, 20. January 2003 |
| HomeNet |