Online brugere...

Lytter...

HEy fed side du har...

Her er en asp-kode fra min chat... lidt samme system
<%
Dim Userlist, Datelist, i, num, users, refresh

\' Retrieve application arrays
users = Application(\"users\")
refresh = Application(\"refresh\")

\' Find current user and update his refresh time
For i = 1 To 50
  If users(i) = Session(\"name\") Then
      refresh(i) = Time
      Exit For
  End If
Next

\' Has ANYONE been gone more than 20 seconds?
For i = 1 To 50
  If users(i) <> \"\" Then
      If DateDiff(\"s\",refresh(i), Time) > 20 Then
        Application(\"conversation\") = \"<b><i>\" & users(i) & _
            \" Leaves The Room</b></i><br>\" & Application(\"conversation\")
        users(i) = \"\"
        Application(\"NumUsers\") = Application(\"NumUsers\") - 1
      End If
  End If
Next
Application.Lock
Application(\"users\") = users
Application(\"refresh\") = refresh
Application.Unlock
%>
<b>Der er <%=Application(\"NumUsers\")%> på chatten og det er:</b>
<%
For i = 1 To 50
  If users(i)<> \"\" Then
      Response.Write users(i) & \"<br>\"
  End If
Next
%>

tarantula hvad med din global.asa ??  der har du dine Application Variabler

Application(\"users\")
Application(\"refresh\")

... der mangler vist noget..!

kan man så ikke tage loginet og skrive en kode der... her er min kode fra Loginet...

<% If trim(Request.Form(\"name\")) = \"\" Then %>

<%
Else
  Dim users, refresh
  Session(\"name\") = Request.Form(\"name\")

  If Application(\"NumUsers\") = 0 Then
      \' Initialize (or re-initialize) the user list
      \' and the conversation
      ReDim temp1(50)
      ReDim temp2(50)
      Application(\"users\") = temp1
      Application(\"refresh\") = temp2
  End If

  \' Retrieve the application arrays
  users = Application(\"users\")
  refresh = Application(\"refresh\")

  \' Find an empty spot and add the new user
  Dim i
  For i = 1 To 50
      If users(i) = \"\" Then
          users(i) = Session(\"name\")
          refresh(i) = time
          Application.Lock
          Application(\"NumUsers\") = Application(\"NumUsers\") + 1
          Application.Unlock
          Exit For
      End If
  Next
  If i = 51 Then Response.Redirect \"toomany.asp\"

  \' Put the arrays back in the application vars
  Application.Lock
  Application(\"users\") = users
  Application(\"refresh\") = refresh
  Application.Unlock

  If not IsEmpty(Application(\"conversation\")) Then
      Application.Lock
      Application(\"conversation\") = \"<b><i>\" & Session(\"name\") & _
        \" Enters The Room</b></i><br>\" & Application(\"conversation\")
      Application.Unlock
  End If

  Response.Redirect \"cafe.asp\"
End If
%>

... jeg må vel godt være lidt newbie her, fatter ikke det store af det applicatoin show.! Kan du skære det ud i pap ??

Jeg samler mine \"online\" brugere i session(\"Bruger\") = HansNavn

Hvordan laver jeg det så ?? Hvis jeg får noget der virker, så er der dobbelt op i point..  :-)

dna

WOW!!! 30 point... det er da bare at skrive de 2 koder i hver sin asp fil... den ene logger man ind på og den anden er en eller anden side frame f.eks.
Rene

hmm! ok.. troede at jeg skulle bruge noget i asa´en ?? Den bruger jeg jo til at tælle online brugere ??

dna

OK! Jeg erkender at jeg fatter NADA af dette...! Vil du ikke være en kammerat og skærer det hamrende ud i pap ?? Jeg har allerede lavet det login-system, og gemmer de online brugere i en session, hvor jeg har deres navne, men hvordan \"udskriver\" man disse ??

dna

FUCK DET... fandt noget på activeserverpages.dk

Det er sq en kewl side...

dna