Jag inkluderar en fil med följande innehåll i början på varje asp sida.
If Session("UserID")<>"" Then
keepalive_SQL = "SELECT * FROM Members WHERE Id = "& session("UserID")&";"
keepalive_rs.Open keepalive_SQL, keepalive_db, adOpenStatic, adLockOptimistic
keepalive_rs("onlinetid") = Now()
keepalive_rs.Update
keepalive_rs.Close
End If
Nu har jag koll på när senaste aktiviteten skedde för respektive medlem.
Kan kanske vara till hjälp?
If Session("UserID")<>"" Then
keepalive_SQL = "UPDATE Members SET onlinetid=now() WHERE Id = "& session("UserID")
keepalive_db.Execute keepalive_SQL,,128
End If
'Längst upp på varje sida....
If Request.Cookies("USER_ID") <> "" Then
SQL = "UPDATE Familjen SET online = now() WHERE Id = " & Request.Cookies("USER_ID")
objConn.Execute(SQL),,128
End If
'Kontroll om användare är online...
If rs("online") > DateAdd("n", -10, Now()) Then
Response.Write("ONLINE")
Else
Response.Write("OFFLINE")
End if
'Koden kontrollerar alltså om användaren varit online de tio senaste minuterna...eller?
287 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25