|
<% 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%><%=Count%> |