Visa VILKA som är inloggade

6 svar · 182 visningar · startad av henrikjohansson 6 juni 2000

henrikjohanssonMedlem sedan maj 2000360 inlägg

Frågan6 juni 2000 15:16#1

Jag har gjort en sida där man loggar in och jag vill ha så att om man lämnar mina sidor skall man automatiskt loggas ut automatiskt. Går detta att göra och hur iså fall

Jag tänkte göra så att när man loggar in så blir ett fält i min access databas True och när man lämnar sidan skall fältet bli False!

Nån som kan något bra och enkelt sätt att lösa detta?

DavidBMedlem sedan jan. 20001 372 inlägg

6 juni 2000 16:41#2

Om du har en databas så blir personen som är inloggad inloggad ända till har trycker på logga ut. SÅ om har stänger webläsaren så är han fortfarande online.

Använd Session istället.

------------------
// David

henrikjohanssonMedlem sedan maj 2000360 inlägg

6 juni 2000 17:23#3

Då är det bara en liten fråga...
HUR?

SPiNMedlem sedan mars 20007 896 inlägg

6 juni 2000 18:29#4

Går det inte att lägga in i global.asa att ett värde i en databas ändras när en session stängs? Tror jag har hört nåt om det...
Kanske så här(?):

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

Sub Session_onStart 

set dbConn = Server.CreateObject("ADODB.Connection")
pth = "DBQ=" & Server.MapPath("till/databasen.mdb")
dbConn.Open "Driver={microsoft access driver (*.mdb)}; " & pth & ";"
set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT inloggad FROM anvandare"
RecSet.Open SQL, dbConn, 3, 3

RecSet("inloggad") = "True"

RecSet.Update
RecSet.Close

End Sub 

Sub Session_onEnd 

set dbConn = Server.CreateObject("ADODB.Connection")
pth = "DBQ=" & Server.MapPath("till/databasen.mdb")
dbConn.Open "Driver={microsoft access driver (*.mdb)}; " & pth & ";"
set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT inloggad FROM anvandare"
RecSet.Open SQL, dbConn, 3, 3

RecSet("inloggad") = "False"

RecSet.Update
RecSet.Close

End Sub 

</SCRIPT>

Sen kollar man bara vilka som är "True" med vanlig koppling... Vet inte om det här fungerar, skrev direkt ur huvet... Du får gärna berätta omdet funkar :)

------------------
SPiN, bjowik99@it-gymnasiet.nu

henrikjohanssonMedlem sedan maj 2000360 inlägg

6 juni 2000 20:25#5

Jag fick det inte att fungera men det kan lika gärna vara mig det är fel på som att det är koden som är fel!
Tack ändå!
Något annat förslag?!?

AGMedlem sedan mars 20001 266 inlägg

6 juni 2000 20:35#6

Några rader ner ligger denna tråd http://cgi.webforum.nu/wf/Forum11/HTML/000548.html

Med lite mindre modifieringar skall du nog kunna fixa den väldigt lätt.

Andreas

henrikjohanssonMedlem sedan maj 2000360 inlägg

7 juni 2000 09:07#7

Jag testade att skriva så här i global.asa men det händer inget. Måste man anropa global.asa på något speciellt sätt?!?


<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"> 
Sub Session_onStart 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databas.mdb"
namn = "Auto"
till = "Henrik Johansson"
meddelande ="Startad"
sql="INSERT INTO msgtabel(till,fran,meddelande) VALUES ('"&till&"','"&namn&"','"&meddelande&"');"
Set hamta=conn.Execute(sql)
End Sub 
Sub Session_onEnd 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databas.mdb"
namn = "Auto"
till = "Henrik Johansson"
meddelande ="Avslutad"
sql="INSERT INTO msgtabel(till,fran,meddelande) VALUES ('"&till&"','"&namn&"','"&meddelande&"');"
Set hamta=conn.Execute(sql)
End Sub 
</SCRIPT>