Hvis du vil have adgang til denne side, må du have en browser, som kan vise rammer, som f.eks. Netscape (mindst 2.0) eller Microsoft Explorer (mindst 2.0).
Har du Windows 3.1 eller højere, kan du hente Netscape eller Microsoft Explorer her!
Har du Windows 95 eller højere, kan du hente Netscape eller Microsoft Explorer her!
<%
Set fs = CreateObject("Scripting.FileSystemObject")
LogFile = Server.MapPath("count.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 %>