<% \' 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_2000.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 %> <html><head> <title>Login script</title> </head><body> <form method=\"POST\" action=\"login.asp\"> <p><font size=\"4\">Angiv brugernavn og adgangskode</font></p><%=strErr%> <table border=\"0\"> <tr> <td width=\"50%\">Brugernavn:</td> <td width=\"50%\"><input type=\"text\" name=\"Brugernavn\" size=\"20\"> (test)</td> </tr> <tr> <td width=\"50%\">Adgangskode:</td> <td width=\"50%\"><input type=\"password\" name=\"Adgangskode\" size=\"20\"> (test)</td> </tr> </table> <p><input type=\"submit\" value=\"Login\" name=\"Action\"></p> </form> </body></html>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.