Online Users

www.luderbar.dk

http://www.solutions2all.dk/source_show.asp?id=45

kunne ikke tænke mig at lave det - men en model der så bare skal udbygges;

http://www.activeserverpages.dk/julekalender/julegaver/whoson.asp

Proboss>> Det link er jo kun UsersOnline og ikke mere. Man skulle kunne trykke sit alias ind!!!

Keysersoze>> Den link hjælper ikke meget. Det er kun std. programmeringen. Det er nemt nok!

hvis "std. programmeringen" er let nok, så burde det alias da være endnu lettere... desuden er det et skodeksempel på på luderbar.dk

Det var heller ikke sådan ment. Men man skriver et spørgsmål og folk svare nogle gange (heldigvis sjældent) i blinde...

Mit spørgsmål gik ud på at få en nøjagtig kopi af luderbar's version og ikke en der er simplere....

Når de indtaster alias:
<%
Brugernavn = Request.Form("Navn")
Application.Lock
Application("users") = Brugernavn & "," & Application("users")
Application.unlock
Session("bruger") = Brugernavn
%>

Når brugerne skal vises:
<%
Brugere = split(Application("users"), ",")
For Each User un Brugere
    Response.Write User & "<br>"
Next
%>

Når brugere slettes fra online listen (forlader siden)
<%
Ustring = Session("bruger") & ","
AppliContent = Replace(Application("users"), Ustring,"")
Application("users") = AppliContent
%>


%>

For Each User in istedet for un!

Ikke helt efter hensigten, men du får nogle point for ulejligheden!