na eigentlich so wie unten in dieser mail.
----- Original Message -----
From: "Dietmar Stuck" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]>
Sent: Monday, October 01, 2001 12:33 PM
Subject: [aspdebeginners] AW: Re: 2ter Versuch
Hey Leute!
Also es ist jetzt so ich habe bei einer anderen Page nachgesehen und
dort steht das es so funktionieren sollte wenn ich folgendes eingebe!
gruppenkennzeichen=rs("gruppenkennzeichen") und danch
<%=gruppenkennzeichen%> dann sollte es ausgegeben werden. Jetzt wollte
ich wissen wie definiere ich rs bei einer Access2000 DB da es auf einem
SQL Beispiel aufgebaut war.
mfG diddy
-----Urspr�ngliche Nachricht-----
Von: Guido Nikolai [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 01. Oktober 2001 09:44
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Re: 2ter Versuch
sql = "SELECT * FROM Anwender WHERE Anwenderkennzeichen = '" &
Anwenderkennzeichen & "' and Kennwort = '" & Kennwort & "';"
Also es sieht so aus das wenn Du dieses SQl Statement absetzten m�chtest
darf der Anwenderkennzeichen keine leerer String sein und das Kennwort
auch nicht. Also auf der Eingabeseite �berpr�fen ob der Benutzter etwas
eingegeben hat.
dann wenn Du einen Zeilenumbruch machst. Solltest Du ihn mit & _
weiterf�hren in der n�chsten Zeile. Vielleicht solltest Du die Reqests
mit Trim() von Leerzeichen am Anfang und Ende befreien auch beim eintrag
in der DB.
beispiel: Anwenderkennzeichen =
Trim(Request.Form("Anwenderkennzeichen"))
aber ansonsten konnte ich keinen Fehler finden.
Guido
----- Original Message -----
From: "Dietmar Stuck" <[EMAIL PROTECTED]>
To: "ASP Diskussionsliste fuer Anfaenger"
<[EMAIL PROTECTED]>
Sent: Monday, October 01, 2001 11:27 AM
Subject: [aspdebeginners] 2ter Versuch
Hallo Leute!
Dies ist jetzt mein 2. Versuch rauszugriegen wie man Daten aus einer
Datenbank ausliest. Hab eine Benutzeranmeldung und wenn man sich
Ordnungsgem�� angemeldet hat sollten die Daten des Benutzers angezeigt
werden. Sollten! Leider wird nur dar Anwenderkennzeichen angezeigt. Ich
wollte jetzt fragen ob sich jemand mein Skript durchsehen k�nnte und mir
einen Tipp geben k�nnte was man noch ver�ndern muss um das
Gruppenkennzeichen anzuzeigen. Der Fehler liegt meiner Meinung darin das
ich das Gruppenkennzeichen definieren muss. Wenn ich es aber nach
"SELECT * FROM Anwender WHERE.......... angebe dann kann ich mich
�berhaupt nicht mehr anmelden. Hat vielleicht irgendjemand einen Tipp
auf Lager!? Bin f�r jedem dankbar.
Gr��e diddy
Hier das Skript:
<%
Option Explicit
Dim
sql,rsUser,Anwenderkennzeichen,Kennwort,Gruppenkennzeichen,page,staylogg
edin,LConnectString,lconn,sqlflag
'erfasst die eingegebenen Variablen (Seite ist Seite, von der Sie
kommen, einstellen der versteckten Variable am Logon kasten)
Anwenderkennzeichen = Request.Form("Anwenderkennzeichen")
Kennwort = Request.Form("Kennwort")
Gruppenkennzeichen = Request.Form("Gruppenkennzeichen")
page = Request.Form("page")
stayloggedin = Request.Form("stayloggedin")
'�berpr�ft ob ein s**t versucht wurde, wenn Sie SQL verwenden dann... if
InStr(Anwenderkennzeichen, "'") or InStr(Anwenderkennzeichen, """") or
InStr(Anwenderkennzeichen, "=") or InStr(Kennwort, "'") or
InStr(Kennwort, """") or InStr(Kennwort, "=") then sqlflag = True end if
if sqlflag <> true then
'Open connection
%>
<!--#include file="conn.asp"-->
<%
'erhalten Sie ein Recordset, das entspricht den eingegebenen Username
und dem Kennwort sql = "SELECT * FROM Anwender WHERE Anwenderkennzeichen
= '" & Anwenderkennzeichen & "' and Kennwort = '" & Kennwort & "'" Set
rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
'wenn dort ein g�ltiges recordset gegeben ist, z�r�cksenden zu der Seite
von der Sie gekommen sind mit eingestellten cookie If (not rsUser.BOF)
and (not rsUser.EOF) and sqlflag <> True then
Response.Cookies("Anwenderkennzeichen") =
rsUser("Anwenderkennzeichen")
'If the user wants to stay logged in all the time, then we'll set the
cookie with a far-away expiry date
if stayloggedin = "yes" then
Response.Cookies("Anwenderkennzeichen").expires = #1/1/2010#
end if
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.Redirect(page)
end if
'Ansonsten wird ein unzul�ssiger Eintrag angezeigt
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
else%>
<%end if%>
<html>
<head>
<title>Invalid entry</title>
</head>
<body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000">
<h3>
<font face="arial,helvetica" size=2>
Invalid username/password
</font>
</h3>
<p><a href="javascript:self.history.go(-1)"><b>
<font face="arial,helvetica" size=2>
Please try again
</font>
</b></a></p>
<p><b><font face="arial,helvetica" size="2">Melden sie sich nocheinmal
an!</font></b></p>
</body>
</html>
das war jetzt das signin Skript im Indexskript sollte dann das
<%=Gruppenkennzeichen%> wie das <%=Anwenderzeichen%> ausgegeben werden.
| 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
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
| 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
