|
|
|
<%
current_ip = request.servervariables("REMOTE_HOST")
my_ip = "127.0.0.1"
my_ip2 = "127.0.0.2"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'open in brinksterHitsFile = Server.MapPath ("/rrasaq/database") & "\counter.txt"
HitsFile = Server.MapPath("./counter.txt")
Set InStream = FileObject.OpenTextFile (HitsFile, 1, false)
OldHits = Trim(InStream.ReadLine)
if ((current_ip <> my_ip) and (current_ip <> my_ip2)) then
NewHits = OldHits + 1
else
NewHits = OldHits
end if
Set OutStream = FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
InStream.close
OutStream.close
Set FileObject = Nothing
Set InStream = Nothing
Set OutStream = Nothing
%>
Welcome to the page, you are visitor number <%=NewHits%>
|
