Hvem er online!

I din global.asa kan du kode din sletning i databasen under Session_OnEnd som en ganske normal sletning fra databasen
Du skal dog være opmærksom på at Session_OnEnd først bliver kørt når sessionen dør!
Dvs som standard efter tyve minutter
Men så kører den også uanset om brugeren har lukket vinduet eller bare er inaktiv
Desværre må du finde dig i at din top 15 vil vise brugere som online i de tyve minutter selvom de måske ikke er det

Din global.asa ser som standard sådan her ud
---
<script language=”VBScript” runat=”server”>
Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd
// kode som køres når sessionen slutter
End Sub
</script>

Mit foreslag vil være at du laver en log ud funktion som sletter sessionen
Din Session_OnEnd vil da promte fange alle som logger ud. Tilbage hænger kun dem som lukker browseren

du skal have fat i global.asa (mener jeg den hedder i asp3.0), i session_start smider du bruger ID'et i databasen, samt smider true i online, eller hvordan du nu har tænkt dig at lave det, kan ikke helt se ideen med en online og en offline kolonne, jeg ville hellere have et ID, brugerID, online, LastSeen <- men det er op til dig..

I session_end smider du så koden der skal ske når brugeren forlader sitet, eller smider session objektet (logger ud)..

Du skulle så med en simpel select hente de online brugere, jeg har erfaret at med .Net 1.1 kan jeg ikke skrive til databasen i Session_end .. noget med nogle rettigheder, hvis det er gældende i asp også, så lav et array, og slet alle i arrayet i session_start...

jokkejensen >> Man kan sagtens tilgå databasen i global.asa i asp.. i alt fald hos mig :o)

ja men jeg kan ikke i session_end.. kun session_start, men jeg blander mig lige uden om :)... havde ikke lige set at der var kommet 3 besvarelser da jeg skrev min :) arbejder ikke så meget i asp længere..

NU har jeg lavet min tabel lidt om:

onlinestatus:
user_id (tal)
status (Ja/Nej)

Men skal stadig bruge lidt hjælp her. Smider user_id ind i databasen via session. Men hvordan laver jeg så en 'true' når de logger på, og hvordan får jeg feltet status til at opdatere sig til false, når de logger af???


<script language=”VBScript” runat=”server”>
<!--#include file="temp/includes/functions.asp" -->
<!--#include file="temp/includes/pageloader.asp" -->
Sub Application_OnStart
<%
SQL = "INSERT INTO status(user_id, status) VALUES("
SQL = SQL & RSfound("id") & ",'"   
set RSinsert = conn.Execute(SQL)
%>

SQL = "INSERT INTO user_id, status"
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd

End Sub
</script>

busschou burde nok svare, men jeg tror ikke SSI (dine includes) virker server side, endvidere benytter du ikke <% %> når du allerede har erklaret det er vbscript..

kig eventuelt her : http://activedeveloper.dk/artikler/default.asp?articleid=131

Der er det skåret lidt ud i pap.. erstat så :

' Skriv kode som skal køres når en session starter
Med et SQL kald til databasen om brugeren er online

og erstat :

' Skriv kode som skal køres når en session afsluttes
Med et SQL kald til databasen om brugeren er offline..


Inden include file... lav dine db connections i global.asa

men du vil få SQL fejl, da du bruger userid som primary key, folk kan jo godt besøge siden flere gange, derfor.. lav et ID og et BRUGERID.. sæt eventuelt et tidpunkt på så du kan se hvornår de sidst har været online..

Jeg er i tvivl om man kan bruge SSI .. men jeg tror det ikke
Måden jeg ville gøre det på er følgende
På din login side når de logger ind ville jeg oprette en session("id") med det userid de har i databasen.
Derefter trigger din Session_OnStart
--
Session_OnStart
//din database forbindelse
sql = "insert into status (user_id,status) values ("&session("id")&",true)
conn.execute sql
set conn = nothing
End Sub
---
tilsvarende i end
Session_OnEnd
//din database forbindelse
sql = "update status set status = false where user_id = "&session("id")
conn.execute sql
set conn = nothing
End Sub

Vælger at følge den sidste kommentar af Busschou.
Er applaction_OnEnd det man bruger når browseren lukkes? I så fald, burde jeg da så flytte mit indhold fra Session_OnEnd op til Applaction_OnEnd, eller hvad?!

Bruger nu følgende kode, men får fejl:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

    'Opkald til databasen
    Function opendb()
        Set conn = Server.CreateObject("ADODB.Connection")
        DNS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("../temp/db/hmf.mdb")
        conn.Open(DNS)
        set opendb = conn
    End function

    Function closedb ()
        conn.close
        Set conn = nothing
    End Function
   
    set conn = opendb()

Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Session_OnStart
sql = "insert into status (user_id,status) values ("&session("id")&",true)
conn.execute sql
set conn = nothing
End Sub

Session_OnEnd

sql = "update status set status = false where user_id = "&session("id")
conn.execute sql
set conn = nothing
End Sub

closedb()

</script>



Fejlen:
Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

//global.asa, line 25

sql = "insert into status (user_id,status) values ("&session("id")&",true)
--------------------------------------------------------------------------^

applikation end er når din applikation ikke køre, altså ingen brugere...

prøv med:

sql = "insert into status (user_id, status) values ('"&session("id")&"','true')

access er glad for ' tegnene :)... husk at "skjule" din database streng..

Application onstart køres når du uploader en ny global.asa eller når din server genstartes
Application onend kører tilsvarende når serveren lukkes - mig bekendt

sql = "insert into status (user_id, status) values ("&session("id")&",'true'")

Jeg er ikke sikker på om der skal "plinger" ' omkring sandhedsværdier.
Men der manglede en " til sidst :o)

Din databasse forbindelse skal nok åbnes hver gang og lukkes hver gang.
Jeg er ikke sikker på det går godt når den "bare" står "udenfor"

Nu får jeg denne fejl:
Microsoft VBScript compilation  error '800a0401'

Expected end of statement

//global.asa, line 25

sql = "insert into status (user_id, status) values ("&session("id")&",'true'")
-----------------------------------------------------------------------------^

argh pis..  sådan her.. sorry
sql = "insert into status (user_id, status) values ("&session("id")&",'true')"

Så får jeg denne fejl :)
Microsoft VBScript compilation  error '800a0400'

Expected statement

//global.asa, line 28

End Sub
^

mangler du ikke også :

Session_OnStart
opendb()
closedb()
End Sub

Det vil jeg ikke mene. Min kode ser sådan her ud:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

    'Opkald til databasen
    Function opendb()
        Set conn = Server.CreateObject("ADODB.Connection")
        DNS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("../temp/db/hmf.mdb")
        conn.Open(DNS)
        set opendb = conn
    End function

    Function closedb ()
        conn.close
        Set conn = nothing
    End Function
   
   

Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Session_OnStart
set conn = opendb()
sql = "insert into status (user_id, status) values ("&session("id")&",'true')"
set RSinsert = conn.Execute(SQL)
set conn = nothing
closedb()
End Sub


Session_OnEnd
set conn = opendb()
sql = "update status set status = false where user_id = "&session("id")
set RS = conn.execute(SQL)
closedb()
End Sub



</script>

Du bliver nød til at putte din database forbindelse ind i såvel session_onstart som session_onend ... den kan ikke ligge i det fri :o)

AHH
Sub Session_OnStart og Sub Session_OnEnd
og ikke Session_OnStart og Session_OnEnd

Jeg kan vel godt have den til at flyde i det fri, så længe jeg kalder den med en funktion, eller hvad?

Nu får jeg i hvert fald følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

//global.asa, line 27

bum bumelum... tænke tænke
Det kan være fordi der ikke skal ' omkring true
prøv
sql = "insert into status (user_id, status) values ("&session("id")&",true)"

Samme fejl :)

hmm kan du udskrive den?
sql = "insert into status (user_id, status) values ("&session("id")&",true)"
response.write sql
...
har du sat session("id") ?

Havde godt nok glemt at sætte min session til memberid, men jeg får stadig fejl.
Min kode ser nu sådan her ud:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

    'Opkald til databasen
    Function opendb()
        Set conn = Server.CreateObject("ADODB.Connection")
        DNS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("../temp/db/hmf.mdb")
        conn.Open(DNS)
        set opendb = conn
    End function

    Function closedb ()
        conn.close
        Set conn = nothing
    End Function
   
   

Sub Application_OnStart
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
set conn = opendb()
sql = "insert into status (user_id, status) values ("&session("id")&",true)"
set RSinsert = conn.Execute(SQL)
set conn = nothing
closedb()
End Sub


Sub Session_OnEnd
set conn = opendb()
sql = "update status set status = false where user_id = "&session("id")
set RS = conn.execute(SQL)
closedb()
End Sub



</script>

er fejlen den samme.. stadig i sql ?
Prøv udskrive den

Jeg er lidt.... dum. Så skær det lige ud i pap for mig!

Altså dvs. at efter min execute skal jeg skrive 'Response.write sql' ?

ja

Okay - har lavet lidt om det nu. Istedet for at oprette en tabel i databasen, har jeg bare oprettet et felt i members, hvor datatypen bliver sat til Ja/Nej. Når jeg så logger ind sætter jeg følgende script op, men feltet online bliver ikke opdateret. hvorfor?

SQL = "UPDATE members SET lastlogin = '" & now() & "' , online = false  WHERE id = " & RSfound("id")

Lukker. Fandt en artikel på active developer der kunne hjælpe mig!

Tak for jeres tid anyway!