|
Hallo,
ich habe folgendes Problem wo ich nicht so richtig weiter komme.
Und zwar habe ich einen Login-Seite wo der Benutzer name und Passwort
eingibt und dieses dann mit den G�ltigen Daten aus einer Datenbank abgeglichen
wird.
Mein Problem ist , wenn der Benutzer eingeloggt wird kann ich zum beispiel
darstellen "Login korrekt" ich m�chte aber wenn es stimmt automatisch auf eine
neue Seite gelangen. Nur der Submitbutton im Formular (action="") muss ja das
Tempor�re Cookie (Server Variable) mitliefern und somit kann ich damit keine
andere Seite aufrufen lassen.
Kann mir bitte jemand bei dem Problem helfen? Den Code liefer ich am besten
gleich (siehe unten) mit
Danke schon mal
Gru� Swen
Code:
<%
db_dsn = "db_dremo" db_user = "root" db_password = "" ' Datenbank �ffnen
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
set db = Server.CreateObject("ADODB.Connection") db.Open "dsn=" & db_dsn & ";uid=" & db_user & ";pwd=" & db_password ' Daten erfragen Kontakperson sql = "SELECT * FROM kontaktperson ORDER BY name" ' Abfrageergebniss wird in der Variablen "rs_kontaktperson gespeichert set rs_kontaktperson = db.Execute(sql) %> <% ' Pruefen, ob der Benutzer das HTML-Formular abgesendet hat If Request.Form("Absenden") = "" Then ' HTML-Formular nicht abgesendet, daher Formular anzeigen %> <form action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="POST"> Benutzername: <input type="Text" name="Benutzername" size="20" maxlength="20"><br> Pa�wort: <input type="Password" name="Passwort" size="20" maxlength="20"><br> <input type="Submit" name="Absenden" value="Einloggen"> </form> <% Else strBenutzername = Trim(Request.Form("Benutzername")) strPasswort = Trim(Request.Form("Passwort")) ' Identifizierung des Users do until rs_kontaktperson.EOF If strBenutzername = rs_kontaktperson("name") And strPasswort = rs_kontaktperson("passwort") Then ' Benutzernamen und Passwort gueltig, daher User einloggen Session("Benutzername") = strBenutzername Response.Write "Login erfolgreich.<br><br>" Response.Write "<a href=""db_auflisten_stellen.asp"">Zur ersten Seite</a>" Else End If rs_kontaktperson.MoveNext loop If Session("Benutzername") = "" then Response.Write "Login nicht erfolgreich.<br><br>" else end if End If ' Datenbank schlie�en und Ressourcen freigeben db.Close set db=Nothing set rs=Nothing %> |
