Vis hvem som er online

Kan du ikke skrive helt hvad det skal kunne?

Bare så man kan glæde sig

jow..samt PS.
Jeg vil have at det skal vise, i listeform, hvem som er online, på min hjemmeeside, med login-navns nævnelse. Login foregår med ref. til en access 2K database.
Skal F.eks. se så´en ud :
Online nu : René
            Kaj
            Hanne

Når de logger ind, bliver deres navn gemt i en application, og når de logger ud, bliver det fjernet derfra...

Jeg kan sikkert godt lave det for dig...men kræver at jeg får login siden at se, for det er der det skal ske....

Her: http://www.asp101.com/articles/john/activeusers/active_users_2.asp

Tomsommer..gevaldigt, også brugbart, men vist ikke det jeg søger.

drean (o.a.)
www.capion.dk/db/default.asp
et forum, hvor login kræves for at få access til noget af forum, bl.a. et medlemssted, andetsteds på serveren.
Jeg vil have, at man kan se, hvem som er aktiv, lige nu (og selvfølgelig ikke vise når de er logget ud)

Det er givetvis mere end 410 point værd, men det r hvad jeg har, her og nu.

capion>> Du lavet et felt i din database, som hedder noget ligenden \"online\" og definerer, at : hvis der står \"0\" så er brugen offline, og hvis der står \"1\", så er han online.

Så laver du en side, hvor du kan se, hvem der er online, ved at finde alle de brugere i databasen, hvor der står \"1\" i online.

For, at der kommer til at stå \"1\", så skal du i din loginsekvens sørge for, at den opdaterer det felt! Det samme gælder, når du logger ud igen.

Så skulle den være i vinkel!

Ja, men hvad så hvis en bruger IKKE trykker på logud knappen?

jeg tester lige..(*skumle* 410 P og så skal man selv skrive koden..tsk tsk*)

Hvis man ikke trykker på logud, så har man i Session_OnEnd i global.asa sikret sig, at brugeren bliver logget ud efter 20 minutters inaktivitet.

*hmm* Hvordan \"registrerer\" jeg, at en bruger er logget på, så \"den\" opdaterer feltet \"isonline\" (har jeg kaldt det) type: sand/falsk (0/1) ?
Og hvad er det med global.asa ?

Du opretter bare \"ISONLINE\" som et almindeligt tekst felt!

Global.asa er en generel script som, som bliver kørt, når serveren bliver startet, og her er et eksempel på, hvordan du kunne lave den :

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart

Session.TimeOut = 10

End Sub

Sub Session_OnEnd

If Application(\"chatuser_\" & Session(\"chatuser\") & \"_\" & session(\"chatforum\") & \"\") <> \"\" Then
    For x = 1 To session(\"MaxPrivatMessages\")
        Application(\"privatmessage_\" & Request(\"chatname\") & \"_\" & x & \"_\" & session(\"chatforum\") & \"\") = \"\"
    Next
    For x = session(\"MaxPublicMessages\") To 2 Step -1
        Application(\"publicmessage_\" & x & \"_\" & session(\"chatforum\") & \"\") = Application(\"publicmessage_\" & x-1 & \"_\" & session(\"chatforum\") & \"\")
    Next
    Application(\"publicmessage_1_\" & session(\"chatforum\") & \"\") = \"<b><font color=\'\" & session(\"SystemColor\") & \"\'>[Chatten] \" & Session(\"chatname\") & \" glemte at logge ud og er logget af af chatten kl. \" & time & \"</font></b>\"
    Application(\"chatusers_\" & session(\"chatforum\") & \"\") = Application(\"chatusers_\" & session(\"chatforum\") & \"\") - 1
    Application(\"chatuser_\" & Session(\"chatuser\") & \"_\" & session(\"chatforum\") & \"\") = \"\"
End If

Set Conn = Server.CreateObject(\"ADODB.Connection\")
FilePath = \"d:\\home\\dir\\dir\\database.mdb\"
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & FilePath & \";\"

SQL = \"UPDATE Users SET IsOnline = 0 WHERE UserID = \" & Session(\"UserID\")
Conn.Execute(SQL)

Conn.Close

End Sub

</SCRIPT>

Hva´med :
Sæt Sessions on (default on)

Generer en \"global.asa\" fil med flg. indhold og læg det i root

----------- BEGIN ---------------
<SCRIPT LANGUAGE=\"VBScript\" RUNAT=Server>

Sub Application_OnStart
  Application(\"userNames\") = \"\"
  Application(\"userNumber\") = 0
End Sub

Sub Session_OnStart
  \'End Session after 10 min.
  Session.Timeout = 10
End Sub

Sub Session_OnEnd
  Application.Lock
  \'Slet Username fra listen
  replace(Application(\"userNames\"),\"|\"&Session(\"user\"),\"\")
  Application(\"userNumber\") = Application(\"userNumber\") - 1
End Sub
</SCRIPT>
---------------- END ----------------

Læg dette i din loginkode:
Session(\"user\") = strUsername

strUsername er den variabel som holder \"username\"
Put dit var.navn i.


Når du vil liste brugerene, brug denne kode :

dim users,i
users = split(Application(\"userNames\"),\"|\")
response.write \"<b>\"&ubound(users) & \" user online:</b><br>\"
for i=1 to ubound(users)
  Response.write mid(users(i),2) & \"<br>\"
next

Håber, at det klarer sagerne !

Er det OK ?

Nej - det er det ikke, for du ser slet ikke, om de er logget ind, men hvis du selv vil rode med det, så værsgo ...

Put dette i login koden:

Session(\"user\") = strUsername
Application(\"userNames\") = Application(\"userNames\") & \"|\" & strUsername

og så sku´den være der..
Jeg er ved at komme til \"installationen\" af koderne, begge bliver testet *S* (Dumt med tidspres og for meget at lave..men jeg er nu glad for hjælpen)

Lige en lille rettelse til global.asa filen.

replace(Application("userNames"),"|"&Session("user"),"")
skal ændres til:
Application("userNames") = replace(Application("userNames"),"|"&Session("user"),"")

Ellers virker det godt :o)