Bruger online

Log tidspunktet for deres sidste login i databasen.

Herefter kan du lave dig en lille funktion, du kan kalde hver gang, du skal have listet en bruger.

Function Online(Login)
  If DateDiff("n", Login, Now) < 3 Then
      Online = True
  End If
End Function




If Online("04-02-2003 09:57:46") Then
  Response.Write "Personen er online!"
Else
  Response.Write "Personen er ikke online!"   
End If

Du kan også vælge at proppe noget mere op i funktionen:


Function Online(Login)
  If DateDiff("n", Login, Now) < 3 Then
      Online = "<img src='online.gif'>"
  Else
      Online = "<img src='offline.gif'>"
  End If
End Function


Response.Write Online("04-02-2003 09:57:46")

men så kommer hele siden jo til at køre langsommer

Check denne side:
http://activedeveloper.dk/julekalender/julegaver/whoson.asp

Hvad havde du forestillet dig? Selvfølgelig vil det gå langsommere, hvis du vil have flere funktioner på.
Men det er så lidt, at du aldrig vil bemærke det. Det svage led i den kæde er din Access-base.