<html>
<head>
<title>Hit Counter</title>
</head>
<body bgcolor="white" text="black">
<%
'Dimension variables
Dim fsoObject &nb sp; 'File System Object
Dim tsObject &nbs p; &nbs p; 'Text Stream Object
Dim filObject &nb sp; &nb sp; 'File Object
Dim lngVisitorNumber &n bsp; 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("site_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'Increment the visitor counter number by 1
'lngVisitorNumber = lngVisitorNumber + 1
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("site_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
'Display the hit count as text
'Response.Write(lngVisitorNumber)
Response.Write("There has been ")
'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
Response.Write("<b>" & Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & "</b>")
Next
Response.Write(" visitors.")
%>
</body>
</html>
Topic Options
Post Options
Thanks(0)
