Hallo,
ich habe ein Problem, und zwar versuche ich schon seit Tagen den Code um eine Datenbank zu öffen und die Werte daraus zu entnehmen und für eine Passwortabfrage zu verwenden. In meinen Code der Vorgibt welche Werte gefragt sind einzufügen.
Hier die beiden Code´s
1.
<%@ LANGUAGE = "VBScript" %>
<%Response.Buffer = TRUE
Eing_User = Request.Form("username")
Eing_PW = Request.Form("passwort")
set dbConnection = Server.CreateObject("ADODB.Connection")
dbConnection.open "benutzer"
SQL = "SELECT * FROM login"
SQL = SQL+ " WHERE (((login.User)= '" + Eing_user + "')"
SQL = SQL+ " AND ((login.Passwort)= '" + Eing_PW + "'))"
Liste = dbConnection.Execute(SQL)
If Not Liste.EOF And Not Liste.BOF Then Response.Redirect(Liste("URL"))Else Response.Redirect("wrong.html")End If
dbConnection.Close()%>
2.
<%
Option Explicit
Response.Buffer = True
Const strThisRealm = "AspHeute Secure Area"
Dim strUName, strPwd, strTargetPage
GetAuthInfo strUName, strPwd
If "" = strUName And "" = strPwd Then
RequestAuthentication strThisRealm
Response.End
End If
If "administrator" = strUName And "passwort" = strPwd Then
Session("SecArea_LoginGranted") = True
strTargetPage = Session("IntendedTarget")
' check: no infinite loops please!
If ("" = strTargetPage Or _
LCase(strTargetPage) = LCase(Request.ServerVariables("SCRIPT_NAME"))) Then
strTargetPage = "default.asp"
End If
Response.Redirect strTargetPage
Response.End
Else
RequestAuthentication strThisRealm
Response.End
End If
%>
Und zwar möchte ich das 1. sich in 2. einfügt, damit ich nicht mehr die statischen Benutzernamen und Passwörter habe, sondern das diese nach der Eingabe von dem Benutzer über die Datenbank verglichen werden und der Benutzer nach erfolgreicher Eingabe zu den internen Seiten weitergeschleust wird.
Dies ist mir bisher nicht gelungen und ich finde auch keine Lösung auf dieses Problem, muss dazu gestehen das meine Programmierkenntnisse in diesem Bereich nicht besonders sind.
Bitte um Antwort da ich mit meinem eigenen Wissen nicht weiter komme.
Mfg
Skinner