Wer ist online?

Website : Who's online? : Übersicht
15-May-2002/09-Jan-06

Übersicht

Wer ist gerade online und aktiv auf der Smoke-Subsite 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 "" 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 "" response.write "" response.write "" response.write "" response.write "" End If Next response.write "
Wer Wann Wo
" & iUsrCount & ". " & sUserName & " " & sLastActionTime & " " response.write "" & sLastPageViewed & "" response.write "
" %>

Das Script läuft im Testbetrieb (19-May-2002: URL Hotlinking gefixt -asb).

Weitere Infos: www.2enetworx.com/dev/samples/memwhoson.asp.

Anmerkungen

<% iMyForumID = 1 ShowForum iMyForumID %>

Wer ist online?

Nach oben

Wer ist online?:

Login | Logoff

<% VisitorName = request.cookies("name") If VisitorName ="" then %>Ihr Name: Besucher
Online: <%= Application("ActiveUsers") %> aktive User. <% End if If VisitorName <> "" then %> <% user = Request.Cookies("name") %>Ihr Name: <%=user%>!
Online: <%= Application("ActiveUsers") %> aktive User. <% End if %>