[ASP] Login bringe ich nicht fertig!!

[Hubert Daubmeier]

In der Zeile 
 
     If NOT len(Seite) > 0 Then

sehe ich nirgends dass die Variable seite irgendwo gefüllt worden =
wäre. Also

  Länge eines leeren Strings = 0
  0 > 0 = falsch
  Not false = true  '  und das immer  ;-) 
 
Klar warum der immer das gleiche macht. 
 
 
> Kann das Problem ein Datentyp-Fehler sein??
>
> in der SQL Datenbank habe ich in der Tabelle bei Feld Kd_nr Datentyp
"Zahl" 
> Feld Benutzername hat Datentyp "Text"
 
Ja ja, der Gedanke führt schon in die richtige Richtung  ;-)
 
 
>   strSQL = "Select * from Benutzer Where Kd_Nr='" & user_id &_
>       "' AND password='" & password & "'"

 
Dass das nicht mehr der neueste Schrei in Sachen Sicherheit ist, =
dürfte klar
sein. Oder ?

-- 

Viele Grüße 
Hubert Daubmeier 

 

________________________________

From: activeserverpages-admin@glengamoi.com
[mailto:activeserverpages-admin@glengamoi.com] On Behalf Of Marco Velo
Sent: Thursday, December 02, 2004 11:22 PM
To: activeserverpages@glengamoi.com
Subject: AW: [ASP] Login bringe ich nicht fertig!!


hallo 
 
Danke für den Tip

Nun ist es so, dass egal was ich für ein Benutzer oder Passwort =
ausprobiere
(richtiges od. falsches). Ich werde nachher auf default.asp redirected.
 
Habe zum testen mal beide varianten getesten mit LoginOK. 
Das heisst, mit falschem Login sollte es den Call LoginMaske() =
ausführen.
Sollte Login richtig sein, dann default.asp ausführen. Hier teste ich
eigentlich nur, ob if then else richtig funzt mit dem rest. Das geht!!
 
Problem liegt also nun weiter oben.....
 
Kann das Problem ein Datentyp-Fehler sein??
 
in der SQL Datenbank habe ich in der Tabelle bei Feld Kd_nr Datentyp =
"Zahl" 
Feld Benutzername hat Datentyp "Text"
 
 
was meint ihr???
 
DANKE

________________________________

Von: activeserverpages-admin@glengamoi.com im Auftrag von Herbert Hahn
Gesendet: Do 02.12.2004 22:22
An: activeserverpages@glengamoi.com
Betreff: AW: [ASP] Login bringe ich nicht fertig!!



Probiers mal so:

 Private Sub Schritt2()
   Dim rs, Conn, strSQL, LoginOK
  
  Set Conn = CreateObject("ADODB.Connection")
  Conn.open = "Provider=SQLOLEDB.1; " &_
  "Data Source=Tritis; Initial Catalog=Hof_Design; User
 id=800000; Password=gaga"
  set rs = Server.CreateObject("ADODB.Recordset")
    
   strSQL = "Select * from Benutzer Where Kd_Nr='" & user_id &_
       "' AND password='" & password & "'"
  
   rs.Open strSQL, Conn, 0, 1

If rs.EOF then
        LoginOK = False
Else
        LoginOK = True
end if


  ' LoginOK = rs.EOF 'Wenn EOF dann Benutzer nicht vorhanden
   rs.Close
   set rs = nothing
  
     Response.write(loginok) 'Zeige mir boolean wert NUR ZUR KONTROLLE!
   If LoginOK Then
     Fehler = true
     Call LoginMaske()
   Else
     Session("Login") = "OK"
     If NOT len(Seite) > 0 Then
       Seite = "Default.asp"
     End if
     Response.Redirect(Seite)
   end if
 End Sub
%>

Mit freundlichen Grüßen

HH

_______________________________________________
ActiveServerPages Mailingliste, Postings senden an:
ActiveServerPages@glengamoi.com
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/activeserverpages