tjekke om bruger stadig er på siden

global.asa - Session_OnEnd

Når en session udløber kan du "fange" den her og så lade global.asa logge brugeren ud.

http://activedeveloper.dk/aspdigital/kapitel1/globalasa.asp

du lægger Session_OnEnd i din global.asa fil som logger brugeren af:

http://www.devguru.com/Technologies/asp/quickref/session_onend.html

/nute

hehe ... reload kan nogle gange betale sig efter en telefonsamtale :-]

skal jeg så bare include globas.asa på alle sider?

global.asa skal ligge i roden af dit web. den bliver kørt automatisk ... ingen inklude er nødvændig

Nej - global.asa skal ligge i roden af ens website og det "eneste" global.asa gør er at du kan afvikle nogle scripts ud fra 4 eventshandlers... men du har ikke nødvendigvis adgang til at kunne benytte global.asa

ok. kan jeg så bare skrive mine database funktioner inde i den her:

Sub Session_OnEnd
    ' Skriv kode som skal køres når en session afsluttes
End Sub

ja

Jeg har prøvet forskellige ting... Fx. et script der automatisk logger personen af, hvis han lukker siden ned uden selv at logge af... Det virkede ikke optimalt. Min nye løsning virker perfekt. En keep-a-live-fil som er blevet nævnt herinde på Eksperten... Det er et script der hele tiden holder brugeren "i live" hvis han er på din side. Ellers ses han som offline/logget af

kan jeg også skrive db connections i den fil?

ch007 -> hvordan ser den fil ud...??

<% Response.Expires = 0 %>
<meta http-equiv="refresh" content="120">

If Session("Id") <> "" Then

  dag = Day(Date)
  mdr = Month(Date)
  aar = Year(Date)
  time = Hour(Time)
  min = Minute(Time)

TIDNU = aar & mdr & dag & time & min & sek

Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={mySQL}; Server=localhost; Option=16834; Database=xxx; UID=xxx; PWD=xxx;"
myConn.Open DSN

    myConn.Execute("UPDATE Users SET Sidstelog = '" & TIDNU & "' WHERE Id = '" & Session("Id") & "'")

End if

%>

Hov... mangler lige et start <%

Når mine brugere logger ind får de en online-værdi = 1 (2 når de logger ud)

Når jeg så tjekker om personen er online, tjekker jeg de brugere hvor online = 1 og Sidstelog er indenfor de sidste 2 minutter

dag = Day(Date)
  mdr = Month(Date)
  aar = Year(Date)
  time = Hour(Time)
  min = Minute(Time)
  sek = Second(Now)

TIDNU = aar & mdr & dag & time & min & sek

'Trækker 2minutter fra tiden lige nu... 
LogTjek = TIDNU - 200

Set RS = myConn.Execute("SELECT Id, Brugernavn  FROM Users Where Online = '1' And Sidstelog > '" & LogTjek & "' Order by Brugernavn")


Manglede:  sek = Second(Now)    i sidste kode...

Ovenstående er min online-liste...


Første fil, altså keepalive-filen ligger i en skjult frame eller iframe

er der en eller to filer..??

kan du ikke lige poste det sammenhængende...

Keepalive.asp:

<% Response.Expires = 0 %>
<!-- Næste line: Refresh/reloader sig selv hver 2. minut -->
<meta http-equiv="refresh" content="120">
<%
If Session("Id") <> "" Then

  dag = Day(Date)
  mdr = Month(Date)
  aar = Year(Date)
  time = Hour(Time)
  min = Minute(Time)
  sek = Second(Now)

TIDNU = aar & mdr & dag & time & min & sek

Set myConn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={mySQL}; Server=localhost; Option=16834; Database=xxx; UID=xxx; PWD=xxx;"
myConn.Open DSN

    myConn.Execute("UPDATE Users SET Sidstelog = '" & TIDNU & "' WHERE Id = '" & Session("Id") & "'")

End if

%>

DENNE FIL LIGGER I EN SKJULT IFRAME - SØGER FOR AT BRUGEREN HELE TIDEN HOLDES I LIVE



Onlineliste.asp:


dag = Day(Date)
  mdr = Month(Date)
  aar = Year(Date)
  time = Hour(Time)
  min = Minute(Time)
  sek = Second(Now)

TIDNU = aar & mdr & dag & time & min & sek

'Trækker 2minutter fra tiden lige nu... 
LogTjek = TIDNU - 200

Set RS = myConn.Execute("SELECT Id, Brugernavn  FROM Users Where Online = '1' And Sidstelog > '" & LogTjek & "' Order by Brugernavn")

DENNE SIDE HENTER DE DER ER ONLINE. Tjekker altså om online = 1 og om de er blevet holdt i live (fra keepalive.asp) indenfor de sidste to minutter

takker. læg lige et svar..

:-)

Tak!