global.asa <> Online users

Hvad er det du vil have den til at gøre ?

Skal den bare \"slette\" den application du lige har lavet, eller ksal der ændres i den ?

Ellers skal det være

Sub Session_OnEnd
Application(\"User\" & Application(\"ActiveUsers\") & \"\") = \"\"
End Sub

Den skal gerne slettet !

Min global.asa ser sådan her ud:

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

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

Sub Session_OnStart
    Session.Timeout = 20
    Session(\"Start\") = Now
    Application.Lock
    Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1
    Application(\"User\" & Application(\"ActiveUsers\") & \"\") = \"ip=\" & request.servervariables(\"remote_addr\") & \"tid=\" & time & \"dato=\" & date & \"\"
    Application.UnLock
End Sub

Sub Session_OnEnd
    Application.Lock
    Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1
    Application.UnLock
End Sub

</script>

Hvad er det, du forsøger at opnå?

Det skal bruges til en statistik side, hvor man kan se hvilke brugere der er online på ens side !

Det skal fungere på samme måde, som på denne side:

http://stat.digiweb.dk/ss?form=statsredir&ID=thezone.dk&x=72&y=9

brugernavn: test
kodeord: test

Er der ikke nogen der kan hjælpe ?

Du støder naturligvis ind i et problem, når brugeren \"går af\" siden igen, da du ikke ved hvilken bruger det er.

Jeg har tidligere lavet noget lignende; dér registrerede jeg dog brugerne i en database samme med deres session.id samt de øvrige oplysninger såsom ip m.v.

Når brugeren så logger af igen, kan vedkommendes forekomst i databasen slettes vha. session.id nummeret.

sa >> Kan du ikke komme med et eksempel, for jeg kan sku ikke lige regne ud, hvordan du for stettet at en bruger ikke er online mere ( i databasen )!

Jeg har desværre ikke det system, som jeg lavede, liggende længere, men jeg kan da hurtigt lave en prøve, hvis det skulle være nødvendigt...

Men du skal bare have en tabel (i eks. kaldet \"online\"), hvori brugere registreres når de går online - dvs. Sub session_onstart i global.asa. - Du sørger for at registrere session.sessionid i et felt i tabellen (i eks. kaldet \"id\") samt de øvrige oplysninger såsom brugernavn, ip m.v.

Når brugeren ikke længere er aktiv (altså i Sub session_onend i global.asa) sletter du forekomste i tabellen, hvor det berørte session.sessionid er registreret - altså noget i retning af:

Sub Session_OnEnd
Set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=base.mdb\"
Sql = \"DELETE * FROM online WHERE id = \" & session.sessionid
conn.Execute(Sql)
conn.Close
Set conn = Nothing
End Sub

Ok, jeg prøver !

Ok, nu har jeg fået det til at virke, når en bruger kommer online !

Jeg er lavet et True/False felt i min database, og når et bruger kommer til siden, bliver feltet til True, men når han går af igen, så kan jeg ikke få den til at blive False igen !

--------------------------- global.asa ---------------------------

<script language=\"vbscript\" runat=\"server\">

Set myConn = Server.CreateObject(\"ADODB.connection\")
myConn.open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=(er ikke vist pga. sikkerhed)\"

sub application_OnStart
    application(\"activeusers\") = 0
end sub

sub session_onstart
    session.timeout = 20
    session(\"start\") = now()

    strSQL = \"SELECT * FROM Users\"
        Set rs = myConn.Execute(strSQL)
   
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
        rs.Open strSQL, myConn, 3, 3

    rs.addnew
        rs(\"Ip\") = request.servervariables(\"REMOTE_ADDR\")
        rs(\"Country\") = request.servervariables(\"HTTP_ACCEPT_LANGUAGE\")
        rs(\"RefUrl\") = request.servervariables(\"HTTP_REFERER\")
        rs(\"Browser\") = request.servervariables(\"HTTP_USER_AGENT\")
        rs(\"Tid\") = time()
        rs(\"Dato\") = date()
        rs(\"Online\") = \"true\"
    rs.update
   
    session(\"id\") = rs(\"id\")
    session(\"User\") = \"IP=\" & request.servervariables(\"REMOTE_ADDR\") & \"&Tid=\" & Time() & \"&Dato=\" & date() & \"\"

    application.lock
    application(\"activeusers\") = application(\"activeusers\") + 1
    application.unlock
end sub

sub session_onend
    sqlOnline = \"UPDATE users SET Online = \'false\' WHERE id = \" & session(\"id\")
        set rsOnline = myConn.execute(sqlOnline)
    application.lock
    application(\"activeusers\") = application(\"activeusers\") - 1
    application.unlock
end sub

</script>

Hvorfor vil den ikke det ?

På forhånd tak !

Jeg mener ikke, at der skal være \' omkring false i din sql-sætning.

Hvis det ikke er det, der er problemet, må du lige sige til..

sa >> Tak for hjælpen !

Du for lidt flere point, for din gode hjælp over ICQ !

tue: jeg har rodet lidt med samme ting...

Hvordan fik du din db til false ved session_onend?