| Request.Form |
|
|
| <% @ Language=VBScript %> 'VB-Script ist Standardsprache |
| <% Response.Buffer=true %> 'Ausgabe einer ASP-Seite puffern |
| <% Session.Timeout=5 %> 'nach 5 Minuten läuft die Session ab |
|
| <% |
|
| 'Prüfen, ob der Benutzer das HTML-Formular abgesendet hat |
| If Request.Form("Absenden") = "" Then |
|
| 'HTML-Formular nicht abgesendet, daher Formular anzeigen |
 %> |
|
| <html><head> |
| <title>Login-Bereich</title> |
|
| <link rel='stylesheet' type='text/css' href='style.css'> |
|
| </head> |
|
| <body onload=document.loginForm.uname.focus()> |
|
| <table cellSpacing='0' cellPadding='0' width='400' border='0'> |
| <tbody> |
| <tr> |
| <td> |
| <fieldset><legend><b>Bitte einloggen</b></legend> |
| <table cellSpacing='0' cellPadding='5' width='100%' align='center' border='0'> |
| <form name='loginForm' action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="POST"> |
| <tbody> |
| <tr> |
| <td colSpan='2'><p>Geben Sie Ihren Namen und Ihr Passwort ein und klicken Sie dann auf ''Einloggen'': </td> |
| </tr> |
| <tr> |
| <td align='right' width='20%'><p><b>Loginname:</b></td> |
| <td width='80%'> |
| <input type='Text' maxlength='15' name='uname'> |
| </td> |
| </tr> |
| <tr> |
| <td align='right' width='20%'><p><b>Passwort:</b></td> |
| <td width='80%'> |
| <input type='Password' maxLength='12' name='passw'> |
| </td> |
| </tr> |
| <tr> |
| <td align='right' colSpan='2'> |
| <table cellSpacing='0' cellPadding='0' border='0'> |
| <tbody> |
| <tr> |
| <td><input name='Absenden' type='Submit' value='Einloggen'></td> |
| </tr> |
| </tbody> |
| </table> |
| </td> |
| </tr> |
| </form> |
| </tbody> |
| </table> |
| </fieldset> |
| </td> |
| </tr> |
|
| <tr> |
| <td> |
| <fieldset><legend><b>Haben Sie Ihr Passwort vergessen?</b></legend> |
| <table cellSpacing='0' cellPadding='5' width='100%' align='center' border='0'> |
| <tbody> |
| <tr> |
| <td><p>Wenn Sie Ihr Passwort vergessen haben, fordern Sie bitte hier per e-mail ein neues an:</td> |
| </tr> |
| <tr> |
| <td align='right'> |
| <table cellSpacing='0' cellPadding='0' border='0'> |
| <tbody> |
| <tr> |
| <td><a href='mailto:deinname@deinkonto.com?subject=Passwortanforderung'><p> |
| <b>Passwort anfordern</b></a></td> |
| </tr> |
| </tbody> |
| </table> |
| </td></tr> |
| </tbody></table> |
| </fieldset> |
| </td></tr> |
| <tr></tr> |
| </tbody> |
| </table> |
|
| </body> |
| </html> |
|
| <% |
|
| Else |
|
| 'Datenbank öffnen |
| Set Conn = Server.CreateObject("ADODB.Connection") |
| dbPath = "\\root\site\database\database.mdb" |
| Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath |
|
| strUser = Trim(Request.Form("uname")) |
| strPass = Trim(Request.Form("passw")) |
|
| strSQL="SELECT * FROM benutzer WHERE benutzer.Name = '" & strUser & "' " |
|
| 'Ausführen des Selects |
| Set User = Conn.Execute(strSQL) |
|
| If Not User.EOF And Not User.BOF Then |
|
| 'Identifizierung des Users auf Name und Passwort |
| If LCase(strUser) = LCase(User("Name")) And LCase(strPass) = LCase(User("Passwort")) Then |
| 'Benutzername und Passwort gültig |
| Session("uname") = User("Name") |
|
| 'User als 'eingeloggt' kennzeichnen |
| Set Conn = Server.CreateObject("ADODB.Connection") |
| dbPath = "\\root\site\database\database.mdb" |
| Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath |
| SQLLOG = "UPDATE benutzer SET Online=True " |
| SQLLOG = SQLLOG & "WHERE benutzer.Name = '" & strUser & "' " |
| Conn.Execute(SQLLOG) |
|
| 'Weiterleitung zur nächsten Webseite erlaubt |
| Response.Redirect(User("Notizen")) |
|
| User.Close |
| Conn.Close |
| Set User = Nothing |
| Set Conn = Nothing |
| Response.End |
| Else |
| 'User bekannt - Benutzername und Passwort nicht gültig |
| User.Close |
| Set User = Nothing |
| Set Conn = Nothing |
| Response.Redirect("error.asp") 'Weiterleitung - User soll neues Passwort anfordern |
| Response.End |
| End If |
|
| Else |
| 'User ist unbekannt |
| User.Close |
| Set User = Nothing |
| Set Conn = Nothing |
| Response.Redirect("abweisen.asp") 'Weiterleitung - User wird abgewiesen |
| Response.End |
| End If |
|
| End If |
|
| %> |
|
zurück