global.asa

Nej, det går inte, eftersom webbservern inte märker att man stänger av browsern.

[r]Det finns ohyggligt många inlägg här som handlar om utloggning. Sök lite på forumet så hittar du många diskussioner kring ämnet[/r]

[Redigerat av emission den 19 nov 2001]

Jomen visst måste det gå.....jag har sett väldigt många sidor som har så. Lunarstorm t ex
Jag har märkt att det går bra att bara dra av från en Application variabel men när man ska öppna en databas och skriva till nåt fält så verkar den inte vilja

------------------
Mikael Edebro
http://divx.edebro.net

Hej!

Om du använder kakor för att kontrollera om användaren är inloggad och utelämnar Expires, då sker i princip en utloggning om man stänger browsern.

Men du menade kanske att global.asa skulle ta bort användaren också eller?

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

jag asså loggar ut användaren s¨att han inte syns online på listan peachy.nu använder nått sånt snälla Martin kan du berätta hur du gjort det

------------------
ASP är bäst fuck the rest!!!

ops menar offline :-)

------------------
ASP är bäst fuck the rest!!!

nån som vet?????

------------------
ASP är bäst fuck the rest!!!

Du får ställa in i MMC att sessionerna bara skall vara i 60 sekunder (eller någonting sådand).

Har användaren inte skickat någon request till servern under den tiden, så stängs sessionen ned och proceduren Session_OnEnd i global.asa körs.
Där du kan lägga in kod som städar upp efter användaren.

går det inte och göra såhär ????

Sub Session_OnStart

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
On Error Resume Next
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("status") = "offline"

RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.Abandon

End Sub

Sub Session_OnEnd

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
On Error Resume Next
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("status") = "offline"

RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.Abandon

End Sub

------------------
ASP är bäst fuck the rest!!!

Det du gör i session_onEnd är väl ok, däremot så kommer det aldrig att fungera i sesion_onStart

Addera = "Select * From members where id="&Session("id")

då session("id") inte har något värde. Jag förstår inte heller varför du vill sätta status till offline i det läget.

------------------
essentitia preter non sans multiplicandum

Larsg hjälp mig med radera länken

------------------
ASP är bäst fuck the rest!!!

jo för att när man kommer in i sidan ska det också loggas ut
men det funkar ju inte när jag stänger browsern så blir man inte ju uttlogad

------------------
ASP är bäst fuck the rest!!!

När du kommer till session_onStart så är det när en ny session startas. Varför skall du då sätta någon offline?

------------------
essentitia preter non sans multiplicandum

okej men glöm det snälla hjälp mig med radera länken funkar ej :-(

<%Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

sql = "delete From gb Where ID=" &Request.QueryString("delID") 
sql = sql & " and (id = '" & session("id") & "' or tillid = " & session("id") & ")"

connect.execute sql,,128

Response.Redirect "read_gb.asp?tillid=" & session("id")

connect.close
Set Connect = nothing
%>

------------------
ASP är bäst fuck the rest!!!

varför funkar det inte man blir inte uttlogad när man stänger browsern!!

Sub Session_OnStart
End Sub

Sub Session_OnEnd

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
On Error Resume Next
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("status") = "offline"

RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.Abandon

End Sub