Online Brugere på chat!

http://activedeveloper.dk/julekalender/julegaver/whoson.asp

Den har jeg læst, ind og ud! Det vil ikke virke du kan evt, code den så den virker? brugernavn et kalder jeg session("brugernavn")!

50 points for et link nej!

Drip er min ven's bruger jeg er lige hjemme ved ham!

jeg kan godt kode det så det virker, men det er ikke noget jeg vil gøre for point. den jeg har givet link til har jeg engang selv benyttet men måtte dog lave et par rettelser før den var som jeg ville have - den kode har jeg dog ikke mere

en anden mulighed kunne måske være http://activedeveloper.dk/aspdigital/2001060701.asp men det er noget sværere at gå til.

så log ud og log ind som dig selv - kan meget let opfattes som snyd

Har prøvet den, kan jeg heller ikke få til at virke!

så er der vist ikke så meget andet at gøre end at vente på at en anden kommer forbi - eller selv lære lidt mere asp :)

Jeg har ikke lige set hvad de 2 links går ud på, men jeg ville lægge alle brugere der er logget ind, i en sessionsvariabel på applikationsniveau i global.asa.

Sub Session_OnStart
  Application.Lock
  application("Taeller")=application("Taeller")+1
  application("brugere")=application("brugere")& chr(9) & session("brugernavn")
  Application.Unlock
End Sub

Sub Session_OnEnd
  Application.Lock
  application("Taeller")=application("Taeller")+1
  application("brugere")=replace(application("brugere"), chr(9) & session("brugernavn"), "")
  Application.Unlock
End Sub

og så er der oven i købet en tæller med ;-)

Tjekker den lige men hvordan henter jeg den ind i mit dockment?

Den skal ikke hentes ind, global.asa skal ligge for sig selv i roden.
Du kan hente variablerne fra global.asa på alle sider, som globale variable.

F.eks.

der er <%=application("Taeller")%> brugere online lige nu!

For mig ser det ud som om de 2 koder er ens? Jeg har et lille problem? Når jeg logger af på chatten og på igen så counter den bare en mere?

Det her tæller fra du åbner siden til du forlader den eller lukker din browser. Session start og slut.

Hvis du flytter tælleren til logind og ud siderne så vil der kun tælles dem der er logget ind. Det skal dog stadig være applikationsvariabler der bruges, ellers er der ikke adgang til dem for alle.

får jeg en ny kode? hmm der er heller ikke profil liste over alle online ..

Læg disse i global.asa i stedet for det andet.

Sub Session_OnStart
  Application.Lock
  application("Taeller")=application("Taeller")+1
  Application.Unlock
End Sub

Sub Session_OnEnd
  Application.Lock
  application("Taeller")=application("Taeller")-1
  Application.Unlock
End Sub

Sub Application_OnStart
  application("brugere")=""
End Sub

Sub Application_OnEnd
End Sub

På siden hvor folk logger ind skal du tilføje deres brugernavn til application("brugere") og fjerne det igen når de logger ud

Dette vil give en overordnet tæller for hvor mange der er på siden og så har du jo alle brugere i den anden, som du så kan tælle op.

Hvis deres internet går ned, hvordan kan man så sikre de kommer væk for online listen?

Jeg faldt lige over denne chat. Den er færdig og du kan selv kode den i dit eget design
http://www.theill.com/asp/conquerchat.asp

jeg har prøvet nogle global.asa såden her ser min fil ud:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart

Application.Lock
Application("OnlineUsers") = ","
Application.UnLock
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
    Session.Timeout = 1
End Sub

Sub Session_OnEnd

If Session("chat_brugernavn") = "" Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("chat_brugernavn") & ",", "")
    Application.UnLock
End If

End Sub
</SCRIPT>

ogsåden har filen som henter det:
<%
Sub AddOnlineUser()
If InStr(Application("Onlineusers"),Session("chat_brugernavn")) = 0 Then
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("chat_brugernavn") & ","
    Application.UnLock
End If
End Sub

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

Call AddOnlineUser()

Call  WriteOnlineUsers()
%>

Fejlen er at den ikke logger brugere af, også skal jeg have id på!

Det er bedre med en Asp/Access Chat.
Chat i Global asa er dårlig.