Login

mit login script er her:

<%
If Request.Form(\"Action\") = \"Login\" Then

strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

If Len(strUID) > 0 And Len(strPWD) > 0 Then

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"sleevs.mdb\")

strSQL = \"SELECT UserID FROM Users WHERE (Username = \'\" & strUID & \"\') AND (Password = \'\" & strPWD & \"\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

intUID = rs(\"UserID\")
Else

strERR = \"Ingen adgang\"
End If


myConn.Close
Set myConn = Nothing

If Len(intUID) Then
session(\"bruger\") = Request.Form(\"Brugernavn\")
Session(\"UserID\") = intUID
Response.Redirect(\"sleevs.asp\")
End If
Else

strErr = \"Du skal skrive både brugernavn og adgangskode\"
End If

If Len(strErr) > 0 Then

strErr = \"<font color=red>\" & strErr & \"\"

End If
End If
%>

Du bliver nød til at registrere hvormange gange han har logget forkert ind, dette kan gøres ved en session variabel

<%
If Request.Form(\"Action\") = \"Login\" Then

strUID = Trim(Replace(Request.Form(\"Brugernavn\"),\"\'\",\"\"))
strPWD = Trim(Replace(Request.Form(\"Adgangskode\"),\"\'\",\"\"))

If Len(strUID) > 0 And Len(strPWD) > 0 Then

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"sleevs.mdb\")

strSQL = \"SELECT UserID FROM Users WHERE (Username = \'\" & strUID & \"\') AND (Password = \'\" & strPWD & \"\')\"

Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

intUID = rs(\"UserID\")
Else

strERR = \"Ingen adgang\"
End If


myConn.Close
Set myConn = Nothing

If Len(intUID) Then
session(\"bruger\") = Request.Form(\"Brugernavn\")
Session(\"UserID\") = intUID
Response.Redirect(\"sleevs.asp\")
End If
Else
\' tæl antallet af fejl forsøg op.
Session(\"FejlForsoeg\") = Session(\"FejlForsoeg\") + 1
\' hvis over 4 fejl
if Session(\"FejlForsoeg\") > 4 then
\' send brugeren over til siden error.asp
  response.redirect(\"error.asp\")
end if
strErr = \"Du skal skrive både brugernavn og adgangskode\"
End If

If Len(strErr) > 0 Then

strErr = \"<font color=red>\" & strErr & \"\"

End If
End If
%>

cyb fedest det er perfekt !

Anytime :-)