Link til nyhed forbi login

Hvad med at lave en løsning med auto-login?

Altså en hel generelt løsning hvor dine "kunder" kan bede sitet om at huske dem. Så behøver de slet ikke at gå igennem login proceduren hver gang de vil ind på siden. Og så selvfølgelig heller ikke hvis de kommer fra via linket fra en mail.

Normalt laves autologin vha. cookies.

ja det var en ide.... kan du beskrive hvordan det gøres?
Har ikke arbejde med cookies før

Du kan jo starte med at læse denne her:

http://www.w3schools.com/asp/asp_cookies.asp

Så kan vi tage den derfra bagefter. :^)

Du kunne overføre et uigennemskueligt ID i dit link, som du så i dit login tester for.

/Kurt

nielle> Kom til at tænke på ... hvad nu hvis en af mine bruger logger på fra en skole eller arbejdesplads. Så vil andre der logger på derfra jo også have direkte adgang ik?

kurt-ss> Som både indeholder det rigtige id og et uigennemskueligt ID til at teste på?

En auto login feature skal altid have en "husk mig" option som folk kan vælge at hakke af eller ej. På denne måde har dine brugere mulighed for at lokke på uden at der bliver gemt en husk-mig cookie på den specifikke maskine.

Okay...jeg prøver med en autologin. Det lyder fornuftigt når jeg nu lige har tænkt det igennem :)

Det jeg gemmer i deres cookie, det skal vel være samme oplysninger som de skal logge ind med ikke?

Lige nu tjekker jeg således når de logger ind:

<%
Option Explicit

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

dim strBrugernavn, strKodeord
dim rs, strSQL, Conn, DSN

strBrugernavn = replace(request.form("brugernavn"), "'", "")
strKodeord = replace(request.form("kodeord"), "'", "")

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../../databaser/familiesiden/bruger.mdb")
Conn.Open DSN

strSQL = "Select * from brugerdata where brugernavn = '" & strBrugernavn & "' and kodeord = '" & strKodeord & "'"

set rs = conn.execute(strSQL)

  if (not rs.bof) or (not rs.eof) then
    session("userID") = strBrugernavn
    session("email") = rs("email")
    if rs("admin") = true then
      session("admin") = "ja"
    End if
    response.redirect "../../admin/setdato.asp"

  else
    Response.Redirect "logadmin.asp?msg=" & Server.URLEncode ("Kodeord forkert!")
  end if

Conn.Close
Set Conn = Nothing
end if

%>

Jeg skal vel på en eller anden måde finde ud af om autologin er sat inden ik..
Hmm kan ikke lige gennemskue det

Noget i denne stil:

<%
Option Explicit

Sub CheckLogin(strBrugernavn, strKodeord)
    Dim Conn, DSN, strSQL, rs

    strBrugernavn = Replace(strBrugernavn, "'", "")
    strKodeord = Replace(strKodeord, "'", "")

    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("../../../databaser/familiesiden/bruger.mdb")
    Conn.Open DSN

    strSQL = "SELECT * FROM brugerdata WHERE brugernavn = '" & strBrugernavn & "' AND kodeord = '" & strKodeord & "'"

    Set rs = Conn.Execute(strSQL)

    If Not rs.eof Then
        Session("userID") = strBrugernavn
        Session("email") = rs("email")
        If rs("admin") = True Then
            Session("admin") = "ja"
        End if
        Response.Redirect "../../admin/setdato.asp"
    Else
        Response.Redirect "logadmin.asp?msg=" & Server.URLEncode("Kodeord forkert!")
    End If

    Conn.Close
    Set Conn = Nothing
End Sub

Dim strBrugernavn, strKodeord

strBrugernavn = "" & Request.Cookies("brugernavn")
strKodeord = "" & Request.Cookies("kodeord")

If strBrugernavn <> "" And strKodeord <> "" Then
    CheckLogin(strBrugernavn, strKodeord)
Else
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        strBrugernavn = Request.Form("brugernavn")
        strKodeord = Request.Form("kodeord")

        CheckLogin(strBrugernavn, strKodeord)
    End If
End If
%>

Ja ok
Jeg tror jeg er med nu.
Smid et svar og så går jeg igen.
Hvis der går noget galt smider jeg et nyt spgm!

Svar :^)

(du er nu velkommen til at smide yderligere spørgmål om det her)

Ok...det finder jeg lige ud af! Takker