Home

/

ASP Hit Counter

Hit Counter

<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("hitcounter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close

fcount=fcount+1

Set RS=FS.OpenTextFile(Server.MapPath("hitcounter.txt"), 2, False)
RS.Write fcount
RS.Close

Set RS=Nothing
Set FS=Nothing

%>
<html>
<body>
<p>
This page has been visited <%=fcount%>  times.
</p>
</body>
</html>