personer der er online

sådan?

http://activedeveloper.dk/artikler/default.asp?articleid=173

http://activedeveloper.dk/artikler/default.asp?articleid=172

eller:

http://activedeveloper.dk/artikler/default.asp?articleid=132

Hvis jeg ellers kan læse rigtigt, så virker det sidste eksempel som det rigtige. Jeg er ikke interesseret i hvem der er logget ind. Det har jeg i min logfil, og gider iøvrigt ikke dele denne viden med alle andre :o)

Men det sidste script ser fornuftigt ud, jeg har imidlertidigt aldrig leget med global.asa hvor gemmer man den fil på serveren ? og denne :

Sub Application_OnEnd
  ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

gør jo ingenting og kan vel udelades ?

1) global.asa skal ligge i roden af dit site (ofte: wwwroot)

2) ja

oki tester og vender tilbage. Lig lige et svar så jeg kan give nogen point når det virker :o)

svar :o)

oki det virker. jeg har selvfølgelig ikke nået at teste hvordan det virker når sessions timer ud.

Dog er det en anelse misvisende idet jeg kan lukke IE ned, starte det op og vise siden, og gentage X gange for at få det til at se ud som om der er mange online. det kunne være at man kunne bygge et IP check ind. sådan at hvis der allerede er en session med den IP adresse jeg kommer med så ligges der ikke 1 til.

halvdelen er pointene er dine allerede. Hvis du kan knække den sidste her, får du også resten, for så fungere scriptet som jeg vil ha' det til. Ellers er der stadig 50 point at slås om for andre eksperter ;)

det er dette script i min global.asa der skal rettes til foresten for nykommere :o)

Sub Session_OnStart
  ' Forøger antallet af brugere med 1, når en session startes
  Application.Lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
  Application.UnLock
End Sub

er desværre ikke så stiv i VB, men prøv sådan:

Sub Application_OnStart
  Application("ActiveUsers")=0
  Application("ALLIP")=""
End Sub

Sub Session_OnStart
  Session("IP")=Request.ServerVariables("REMOTE_ADDR")
  If (Instr(Application("ALLIP"), Session("IP"))=0) Then
    Application.Lock
      Application("ActiveUsers")=Application("ActiveUsers")+1
      Application("ALLIP")=Application("ALLIP")&";"
    Application.UnLock
  End If
End Sub

Sub Session_OnEnd
  Application.Lock
    Application("ActiveUsers")=Application("ActiveUsers")-1
    Application("ALLIP")=Replace(Application("ALLIP"), Session("IP")&";", "")
  Application.UnLock
End Sub


ellers kan du jo bruge denne: http://activedeveloper.dk/artikler/default.asp?articleid=173 med IP i stedet for username og så teste på den ved Session_OnStart

tak for indsatsen. Jeg kan desværre ikke teste det lige nu, men det ser fornuftigt ud.

selv tak :o)