ASP: Login-Bereich mit Prüfung des Benutzers und Passwort

ASP: Login-Bereich mit Prüfung des Benutzers und Passwort via 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
Login-Bereich Benutzer%>
<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
%>
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt