20. juli 2001 - 22:18Der er
2 kommentarer og 1 løsning
Online users ting
Davs, jeg er ved og lave sådan en online brugere ting.
Den ser sådan ud:
if session(\"navn\") <> \"\" then application(\"onlinenavn_\" & session.sessionID) = Session(\"navn\") application(\"onlineip_\" & session.sessionID) = Request.ServerVariables(\"REMOTE_HOST\") application(\"onlinetime_\" & Session.SessionID) = Now
end if
for each item in Application.Contents Response.Write item & \"=\" & Application.Contents(item) & \"<br>\" if left(item,11) = \"ONLINETIME_\" then last_hit = Application.Contents(item) end if
if left(item,11) = \"ONLINENAVN_\" then navn = Application.Contents(item) strOnlineUsers = strOnlineUsers & navn & \",\" end if next
nu kommer problemet bare og få siet de brugere fra der har været inaktive i mere end 5 minutter, nogen der kan løse den ? Kan ikke helt knække den selv
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
if session(\"navn\") <> \"\" then application(\"onlinenavn_\" & session.sessionID) = Session(\"navn\") application(\"onlineip_\" & session.sessionID) = Request.ServerVariables(\"REMOTE_HOST\") application(\"onlinetime_\" & Session.SessionID) = Now
end if
for each item in Application.Contents Response.Write item & \"=\" & Application.Contents(item) & \"<br>\"
if left(item,11) = \"ONLINETIME_\" then if Application.Contents(item) <> \"\" then if datediff(\"n\",Application.Contents(item),Now) > 5 then session_id = Right(item,len(item)-11) Application(\"ONLINENAVN_\" & Session_id) = \"\" Application(\"ONLINEIP_\" & Session_id) = \"\" Application(\"ONLINETIME_\" & Session_id) = \"\" end if end if end if
if application.Contents(item) <> \"\" then if left(item,11) = \"ONLINENAVN_\" then navn = Application.Contents(item) strOnlineUsers = strOnlineUsers & navn & \",\" end if end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
