|
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
strLogfilePath = "D:\Web\D\B\36\~db\"
strLogfile = "count.txt"
strText = "init"
Dim objFso, objLogfile
set objFso = CreateObject("Scripting.FileSystemObject")
set objLogfile = objFso.OpenTextFile(strLogfilePath & strLogfile, ForReading)
intCount = Int(objLogfile.ReadLine)
objLogfile.Close
set objLogfile = Nothing
set objFso = Nothing
Response.Write("-Besucherzähler: " & intCount & "-")
%>
|
