jag har gjort en inloggnings sida som fungerar ganska bra och skulle vilja ha en logga ut knapp. hur gör man en sån? <input type="submit" Value="Logga ut"> Kolla pelles kurs den är bra!Logga ut, hur gör man!
/SimonSv: Logga ut, hur gör man!
hehe.. ;)
(använder du sessions bör du lägga till Session.Abandon på sidan du kommer till)Sv: Logga ut, hur gör man!
Så här ser mimn ut, fungerar ganska bra!
Efter Head taggen:
<%
' förbereder för en omdirigering
response.buffer = true
' ansluter till min datakälla
set con = server.createObject("ADODB.Connection")
conStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/logindb.mdb")
con.open conStr
' vill användaren logga in?
action = Lcase(Request("action"))
Select Case Action
case "login"
strUser = Request("txtanvnamn")
strPass = Request("txtlosen")
SQL = "SELECT anvnamn, Kod, id FROM tblloggin WHERE anvnamn = '" & strUser & "' AND Kod = '" & strPass & "';"
Set Rst = con.Execute(SQL)
' fick vi någon träff?
If not(Rst.EOF or Rst.BOF) Then
' träff
LoginFlag = True
Else
' inga träffar
LoginFlag = False
End If
End Select
Set rst = Nothing
Set con = Nothing
%>
Kolla om användaren vill logga in:
If action = "login" And LoginFlag = True Then
' korrekt inloggning, gå till startsidan
Session("Inloggad") = True
Response.Redirect "default.asp"
Och högst upp i default.asp
<%
If Not Session("Inloggad") Then Response.Redirect "login.asp"
%>
För att kolla om man har loggat in i login.asp
Och om man då vill logga ut så är det bara att skriva i login.asp
Session.Abandon
i en funktion
eller?
/Simon