|
|
|
|
<%
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
%>
|
RAJ
SYSTEMS PVT. LTD.
C-102, Nyati Millennium,Viman Nagar, Pune-411014.(India)
Tel: 91-20-6630061 / 86 Fax: 91-20-6631246.
E-mail : rajsystems@vsnl.com
Visit us : www.rajsystem.com
|
