Inloggad eller inte

5 svar · 208 visningar · startad av WebbisNet 7 apr. 2004

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan7 apr. 2004 12:09#1

Jag har problem med att få en användares status uppdaterad i databasen. När man loggar in ska satusen vara 1 och när man loggar ut ska statusen vara 0 för att markera att man är offline.

jag har

Dim strAnvNamn, strLosen, conn, RS, SQL

'Uppgifter hämtas från formulären
strAnvNamn = Trim(Request.Form("txtUsername"))
strAnvNamn = Replace(strAnvNamn, Chr(39), Chr(34)) ' <== Byter ' mot "
strLosen = Trim(Request.Form("txtPassword"))
strLosen = Replace(strLosen, Chr(39), Chr(34)) ' <== Byter ' mot "

'Kopplingen sätts och sqlsatsen instansieras
Set conn=System_Main()
SQL = "SELECT * FROM tblCommunity WHERE username = '" & strAnvNamn _
& "' AND password = '" & strLosen & "'"

'RecordSetet instansieras och öppnas
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open SQL, conn, 3, 3

'Om data finns i tabellen och inloggningen är rätt så uppdateras databasen och användaren skickas vidare
If Not RS.EOF THEN 
Session("inloggad") = True
Session("username") = RS("username")
Session("epost") = RS("epost")
Session("inloggningar") = RS("inloggningar")

strAnvNamn = Request.Querystring("strAnvNamn")
conn.Execute("Update tblCommunity SET inloggad=1 WHERE username='" & strAnvnamn & "'")
Response.Redirect "/community/index.asp" 
Else 
'Response.Redirect " "& Request.ServerVariables("SERVER_NAME") &" "
response.redirect "/community/loginform.asp"
End If

Om man får det här rätt så att statusen är 1 när man är inloggad, hur gör jag då sen för att sätta den till 0 när man loggar ut?

m_soderlundMedlem sedan sep. 20026 425 inlägg

7 apr. 2004 12:12#2

Du använder dig av följande SQL-fråga:

conn.Execute("Update tblCommunity SET inloggad=0 WHERE username='" & strAnvnamn & "'")

strAnvnamn plockar du med via Request.Querystring. :)

/r :r
/r2 :r :r (tack @)

WebbisNetMedlem sedan feb. 20032 027 inlägg

7 apr. 2004 12:32#3

med din sträng så får jag

Microsoft JET Database Engine (0x80040E14)
Syntaxfel i sträng i frågeuttrycket 'username=''.
/community/login.asp, line 29

@ndersMedlem sedan juni 200032 967 inlägg

7 apr. 2004 12:34#4

 ... username='" & strAnvnamn & "'")

har man påbörjat en sträng i sql kan det vara bra att avsluta den.

m_soderlundMedlem sedan sep. 20026 425 inlägg

7 apr. 2004 12:35#5

Du får skicka med ett värde i querystringen. Precis så här:

strAnvNamn = Request.Querystring("strAnvNamn")

Exempelvis kan länken för att logga ut se ut så här:

loggaut.asp?strAnvnamn=<%=Request.Querystring("anvnamn")%>

/r @... :r :)

jawbreakerMedlem sedan jan. 2003296 inlägg

8 apr. 2004 11:33#6

Det kanske inte är så lämpligt att skicka med användarnamnet i querystringen iofs. Det är ju trots allt inte speciellt svårt att logga ut andra användare än sig själv i så fall.