Wer ist gerade online und aktiv auf den Fotografie-Seiten des
Kefk Network?
Diese Übersicht zeigt in Echtzeit die gerade aktiven Benutzer und die
von ihnen besuchten Seiten; am <% = now %> waren beispielsweise
<%= Application("ActiveUsers") %> User online und aktiv.
User, die sich nicht registriert haben, werden als 'Guest' gezählt.
Das detaillierte Tracking einzelner Seiten ist z.Zt. ausschliesslich auf
der Peer-to-Peer-Subsite
aktiviert (siehe dort:
Who's online?).
<%
On Error Resume Next
response.write "
"
response.write " | Wer | Wann | Wo |
"
aSessions = dOnlineUsers.Keys
For iUser = 0 To dOnlineUsers.Count - 1
sKey = aSessions(iUser)
sUserInfo = dOnlineUsers.Item(sKey)
aUserInfo = Split(sUserInfo, "<|>")
sUserName = aUserInfo(0)
sLastActionTime = aUserInfo(1)
sLastPageViewed = aUserInfo(2)
If sUserInfo <> "" Then
iUsrCount = iUsrCount + 1
response.write ""
response.write "| " & iUsrCount & ". | "
response.write "" & sUserName & " | "
response.write "" & sLastActionTime & " | "
response.write ""
response.write "" & sLastPageViewed & ""
response.write " | "
response.write "
"
End If
Next
response.write "
"
%>
Das Script läuft im Testbetrieb (19-May-2002: URL Hotlinking gefixt
-asb).
Weitere Infos:
www.2enetworx.com/dev/samples/memwhoson.asp.
