Hej alle sammen
Jeg her lige nogle spørgsmål.
Jeg har lavet en login side efter
www.activedeveloper.dk
brugeren præsenteres for to felter "Brugernavn" og "Adgangskode" samt en
"Login" knap. Skriver brugeren et rigtigt brugernavn og adgangskode sættes
sessionen "LoginID" til brugerens nummer i databasen - og han/hun bliver
sendt videre til filen "beskyttet.asp", samt en #include fil som jeg kalder
"protect.inc".
Det virker bare fint, men nu er det jeg spørger,
Hvor længe er man logget på?
Jeg kan ikke finde nogen Session.Timeout, det skal der måske heller ikke
være?
Men aller helst kunne jeg godt tænke mig en log ud ting,
her er det jeg kommer ud på glat is!!! ??? hvordan??
Jeg er ny i asp, håber at jeg givet oplysninger nok.
her er lidt (meget kode)
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Action") = "Login" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' DSNLess forbindelse til databasen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("login.mdb")
' Opbygning af SQL streng
strSQL = "SELECT UserID FROM Users"&_
" WHERE (Username = '" & strUID & "')"&_
" AND (Password = '" & strPWD & "')"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("UserID")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
' Rydder op i vores connection objekt
myConn.Close
Set myConn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes denne i sessionen
"UserID" og brugeren bliver sendt videre
Session("UserID") = intUID
Response.Redirect("beskyttet.asp")
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive både brugernavn og adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
%>
--
På forhånd Tak
Michael N.
Meget ny i asp