<%
If session("hitcount") = "" Then '
Const ForReading = 1, ForWriting = 2, ForAppending = 8 '
Dim hitcount, fso, f, filen '
filen = Server.MapPath("/jackzk1/db/hitcount.txt") '
Set fso = CreateObject("Scripting.FileSystemObject") '
Set f = fso.OpenTextFile(filen, ForReading) '
If f.AtEndOfStream Then '
hitcount = "0" '
Else
hitcount = f.readall '
End if '
f.close '
'
If hitcount = "0" Then '
hitcount = 1 '
Else
hitcount = Cint(hitcount) + 1 '
End if '
hitcount = Cstr(hitcount) '
Set f = fso.OpenTextFile(filen, ForWriting) '
f.writeline(hitcount) '
f.close '
Set f = nothing '
Set fso = nothing
Select Case Len(hitcount) '
Case 1 hitcount = "00000" & hitcount '
Case 2 hitcount = "0000" & hitcount '
Case 3 hitcount = "000" & hitcount '
Case 4 hitcount = "00" & hitcount '
Case 5 hitcount = "0" & hitcount '
'
End Select
session("hitcount") = hitcount '
End if '<-- session("hitcount") = ""
%>
Project:
Sadler Vampire - SV2
(The
Australian Sadler Vampire Files)
Aim:
Ensure the ongoing exposure of this aircraft and provide necessary information
to all interested persons.
Date
Created: 15 January 2003
Last Updated: 1 May, 2010
Best
Viewed with MS Internet Explorer
<%Response.Write (session ("hitcount"))%>
