global.asa

<script language=VBScript runat=Server>
Sub Application_OnStart()
  Application.Lock
  Application("OnlineUsers") = ","
  Application.UnLock
End Sub

Sub Session_OnEnd()
If Len(Session("UserName")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("Username") & ",", "")
    Application.UnLock
End If
End Sub
' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("Username") & ","
    Application.UnLock
End Sub
' --- funktion som retunerer antallet af online brugere ---
Function CountOnLineUsers()
    Dim arrUsers
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

' --- procedure til at udskrive online brugere ---
Sub WriteOnLineUsers()
    Dim arrUsers
    Dim n
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- udskriv liste ---
    For n = 1 To UBound(arrUsers) -1
        Response.Write(arrUsers(n) & "<br>")
    Next
End Sub

</script>

en lille fejl: fjern () fra Application_OnStart og Session_OnEnd

Hejsa... Takker... Men hvordan for jeg den til at vise antallet af online bruger på en af mine andre .asp sider ?

Hallo ?

Jeg har fundet ud af hvordan jeg viser det...

Ny problem:
Hvordan fjerner jeg brugeren fra online listen når personen logger af ?

Her er dine point men hvis du kan svar på mit andet spg så må du meget gerne det. Tak!

Vis antallet af brugere online:

<%=CountOnLineUsers%>


Når en bruger skal logge af, via et link, bruger du følgende:

<% Session.Abandon %>

Du kan ikke gøre noget ved en bruger som vælger at lukke browseren eller skifter til en anden side, uden først at logge sig af. Kun en time-out på typisk 20 minutter, vil fjerne brugeren herefter