Online ziyaretçi

[ibryas]

Arkadaşlar sitemin üst satırına eklemek istediğim online ziyaretçi sayısını göstercek sağlıklı çalışan bir kod varmı elinizde. araştırdım çok var ama sadece online ziyaretçiyi gösterecek kısacık ve sorunsuz bi asp bulamadım. Teşekkür ederim...

[lovemove]

<%
behindProxy = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
proxy = Request.ServerVariables("REMOTE_ADDR")
if behindProxy = "" then
IPNO= proxy
else
IPNO=behindProxy&""&"("&proxy&")"
end If


Online = Application("NumSession")
%>

<font face="Tahoma" style="font-size: 11px; font-weight:700" color="#587EA4">Şuanda </font>
<font face="Tahoma" style="font-size: 11px">&nbsp;<%=Online%></font>
<font face="Tahoma" style="font-size: 11px; color="#587EA4">&nbsp; Kişi online</font>

Global.asa desteği ile çalışır.. görüntülenmesini istediğin sayfalara ekle.

[BLooD_NiGhT]

birde bunu dene.

<font face="Arial"><b>
Şu Anda Sitemizde
<%
Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim 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
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout

intActiveUserCleanupTime = 0.5 
intActiveUserTimeout = 0.5  

If Application("ActiveUserList") = "" Then Exit Sub

If DateDiff("n", 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("n", 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()

Response.Write ""  &  Application("ActiveUsers") &  ""

%> Aktif Ziyaretçi Bulunmaktadır</font>

[bLoo]

global.asa herzaman için asp de daha iyidir
yalnız her sayfada görünmesini sağlamalısın
ani include etmen gerek.eğer her sayfaya kodu tek tek yerleştirirsen diyelim oyun sitesine koydun , /mario.html diyelim ; sadece mario sayfasını sayaçlamış olursun.mario yu o an oynayanları gösterirsin.

iyi çalışmalar