Online Ziyaretçi

Arkadaşlar bana onlineziyaretçi sayısını gösteren bir asp yada flash lazım yanlız dbsiz olmasını istiyorum. Elinizde ücretsiz bir tane varsa lütfen paylaşın.

<%
Sub LogActiveUser
dim strActiveUserList, intUserStart, intUserEnd, strUser, strDate
strActiveUserList = Application("ActiveUserList")
If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, "|")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now())
Application("ActiveUserList") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1
Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|"
Application.UnLock
End If
End Sub
Sub ActiveUserCleanup
Dim ix, intUsers, strActiveUserList, aActiveUsers, intActiveUserCleanupTime, intActiveUserTimeout
intActiveUserCleanupTime = 90
intActiveUserTimeout = 180
If Application("ActiveUserList") = "" Then Exit Sub
If DateDiff("s", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then
Application.Lock
Application("ActiveUsersLastCleanup") = Now()
Application.Unlock
intUsers = 0
strActiveUserList = Application("ActiveUserList")
strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)
aActiveUsers = Split(strActiveUserList, "|")
For ix = 0 To UBound(aActiveUsers)
If DateDiff("s", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
aActiveUsers(ix) = "XXXX"
Else
intUsers = intUsers + 1
End If
Next
strActiveUserList = Join(aActiveUsers, "|") & "|"
strActiveUserList = Replace(strActiveUserList, "XXXX|", "")
Application.Lock
Application("ActiveUserList") = strActiveUserList
Application("ActiveUsers") = intUsers
Application.UnLock
End If
End Sub
Call LogActiveUser()
Call ActiveUserCleanup()
online=Application("ActiveUsers")% ' online değişkenine atıyoruz
%>

<%=online%> böylede istediğin yere yazdırırsın

ben bu kodu çalıştıramadım koddamı sorun var bende mi

o kod çalışıyormu ben test etmedim ama dilersen aşağıdaki sayfadan scripti indirebilir ve kullanabilirsin.

http://www.aspindir.com/Goster/3133

teşekkürler, +rep

http://www.myonlineusers.com/index-tr.php
bu adreste işine yarayabilir