| |
<%
Dim strHitCount
Dim intDigit
strHitCount = CStr(GetHitCount())
%>
|
| You
are visitor Number |
<%
For I = 1 to Len(strHitCount)
intDigit = CLng(Right(Left(strHitCount,I),1))
%>
|
<%
Next
%>
<%
Private Function GetHitCount()
Dim objFS
Dim strHitCount
Dim intHitCount
Const strInitialCount = "1"
On Error Resume Next
strFileName = Server.MapPath("HitCount.txt")
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If Not Session("HitCountUpdated") Then
If objFS.FileExists(strFileName) = False Then
Set objFS = objFS.CreateTextFile(strFileName)
objFS.Write strInitialCount
intHitCount = 1
Else
Set objFS = objFS.OpenTextFile(strFileName)
intHitCount = CLng(Trim(objFS.ReadAll))
objFS.Close
Set objFS = Nothing
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set objFS = objFS.CreateTextFile(strFileName)
intHitCount = intHitCount + 1
strHitCount = CStr(intHitCount)
objFS.Write strHitCount
End If
objFS.Close
Set objFS = Nothing
Session("HitCountUpdated") = True
Else
Set objFS = objFS.OpenTextFile(strFileName)
intHitCount = CLng(Trim(objFS.ReadAll))
objFS.Close
Set objFS = Nothing
End If
GetHitCount = intHitCount
Err.Clear
End Function
%>
|
|
|
Site powered by ikf.co.in |
|
