Problemmer med global.asa

Dette sker automatisk... En Session() varer i 20 min. som default!

//>Rune

Ja men hvis nu brugeren kun er online i 2 min. så står han som online i 20 min. og det går jeg ikke :-)

Sådan her tilføjer jeg en bruger til Online Listen i global.asa når en bruger logger ind.

Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("brugernavn") & ","
    Application.UnLock
End Sub

Men hvordan fjerner jeg brugeren igen når han logger ud ?

Well, sådan er det, der er der vidst ik' andet du kan gøre ved der!

//>Rune

Jo der er en mulighed det ved jeg...
Hvis du kigger godt efter på:
http://activedeveloper.dk/julekalender/julegaver/whoson.asp
Så beskriver han en kode som kan gøre det. Men han har bare glemt at skrive koden...

Så vidt jeg kan se ud fra linket er der ikke noget han ikke viser koden for?

Hey eagleeye længe siden :-)

Mit problem er det at når en bruger logger ind vises han som online på onlinelisten og det bliver han ved med i 24 timer tror jeg...

Her kan du se min kode i global.asa så kan du se om du har nogle idé... Jeg har selv prøvet med "Sub DelOnlineUser()" men det virker ikke...

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

Sub Session_OnEnd

If Len(Session("brugernavn")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")
    Application.UnLock
End If

End Sub


' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("brugernavn") & ","
    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

Sub DelOnlineUser()
    Application.Lock
    Application("arrUsers") = Application("arrUsers") -1
    Application.UnLock
End Sub

</script>

Når en bruger logger ind kalder jeg "Sub AddOnlineUser()" den tilføjer brugerens brugernavn til online listen via global.asa så må man da også kunne fjerne brugeren brugernavn fra listen igen når han logger ud... Tror du ik ?

Hvis du vil slette online listen så skal DelOnlineUser() se sådan ud:

Sub DelOnlineUser()
    Application.Lock
    Application("Onlineusers") = ","
    Application.UnLock
End Sub

Jamen sletter jeg så ikke alle online bruger ? Den skal helst kun slette den bruger som logger ud altså: Session("brugernavn")

Session_OnEnd bliver kaldt når en bruger timer ud. Spørgsmålet er så om Session("brugernavn") er væk fordi session er timet ud.

Jo ;) den sletter alle brugerne.

Det er i denne del/function en brugers brugernavn fjernes:


Sub Session_OnEnd

If Len(Session("brugernavn")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")
    Application.UnLock
End If

End Sub

Hvis jeg logger ind nu... Så viser den mig som online... Hvis jeg logger ud og logger ind igen så viser den mig som online 2 gange osv... Det er det jeg helst vil ungå hvis man kan...

Hvis du vil lave en log-out function altså som den på eksperten som hedder "Log ud" så skal koden bland andet være, dette så brugernanvet fjernes.:


If Len(Session("brugernavn")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")
    Application.UnLock
End If

Så laver du bare din AddOnlineUser om til dette så den lige tjekke om brugernavnet findes:


Sub AddOnlineUser()
  if inStr(1,Application("OnlineUsers"),"," & Session("brugernavn") &",")=0 then
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("brugernavn") & ","
    Application.UnLock
  End if
End Sub

Ok ja det er da en løsning jeg syntes bare stadig det er ærligt at en bruger står som online selv om brugeren er logget ud...

Hvad med fx. Jubii Chat der viser den jo de bruger der er online og når de logger af så er de væk... Hvordan kan det være jeg ikke kan det ?

I hvor lang tid står brugeren online før han fjernes fra online listen ?

Og hvor lang tid virker et: Session("brugernavn") ?

eagleeye... Smider du ikke lige et svar ind ? Så kan du få dine point for du havde da en god løsning... Takker!

De står sikkert også at tjekker om brugeren stadig er online.


Der er faktisk en lille fejl i hans script. Hvor man sletter en bruger:

Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")


Hvis man har to brugere (tilfældige navne):
1  peter
2  hanspeter

Hvis de begge er online står der i listen ",peter,hanspeter,"
Så logger peter ud så fjerner den "peter," i strengen, ;) kan du så se hvem der er online?
Det er en helt nu bruger som hedder hans  og strengen indeholder ",hans,"

Så derfor ret det som slette til:

Application("OnlineUsers") = Replace(Application("OnlineUsers"), "," & Session("brugernavn") & ",", ",")

Jo et svar.

Det er en helt nu bruger som hedder hans  og strengen indeholder ",hans,"
ups det endag endnu være end det for den fjerner det sidste , så der står ",hans". Så hvis ole logger ind står der online brugere er ",hansole,"

Så jeg vil klart anbefale at ændre det som vist.

Hvor lang tid er brugerens vist som online på online listen ved du det ?

Jeg ville gætte på så lang tid som er sat i Session.TimeOut (default timeout er vist 15-20 minutter det kan jeg ikke helt huske). Men jeg er ikke helt sikker, for hvis denne  Session("brugernavn")  er blevet sat tom når Session_OnEnd kaldes vil en bruger forblive i onlinelisten indtil serveren restartes eller du laver en "Log Ud" knap om man kan trykke på.

Hvordan og hvor skal jeg sætte sådan en Session.TimeOut ?
Bliver brugeren så smit af efter de 15-20 min selv om han suffer rundt på min side ?

Nej session skulle ud hvis brugeren har være inaktiv i længere tid. Præsis som her på eksperten, man kan side flere time online går man ned og spiser aftens man og kommer tilbage er man logget ud. Det kan så ikke ses hvis man har har sat den til autologin ;)


Du kan ændre det ved at skrive:

Session.TimeOut 4  'I minutter.

med ligmed tegn imellem  Session.TimeOut = 4

Nu har jeg sat Session.Timeout = 20 i toppen af min global.asa så håber jeg det virker :-)

1000 Tak for dine svar !!