Hallo Leute,
ich habe mit einem Tutorial ein Login-System gemacht, dass über PHP und MySQL läuft. Jetzt wollte Ich, dass wenn der Login fehlgeschlagen ist sich nicht das nächste Fenster öffnet (in dem Fall das Hauptmenü), denn immer wenn man auf Login klickt, öffnet er das Hauptmenü auch wenn der Login fehlgeschlagen ist. Es sollte so funktionieren ---> User loggt sich ein -> Login erfolgreich -> Weiterleitung zum Hauptmenü || Und so funktioniert es gerade ---> User loggt sich ein -> Login fehlgeschlagen -> Weiterleitung zum Hauptmenü. Es kommt zwar eine MessageBox mit Login fehlgeschlagen aber er leitet trotzdem zum Hauptmenü.
Was muss ich ändern? Vielen Dank im voraus.
ich habe mit einem Tutorial ein Login-System gemacht, dass über PHP und MySQL läuft. Jetzt wollte Ich, dass wenn der Login fehlgeschlagen ist sich nicht das nächste Fenster öffnet (in dem Fall das Hauptmenü), denn immer wenn man auf Login klickt, öffnet er das Hauptmenü auch wenn der Login fehlgeschlagen ist. Es sollte so funktionieren ---> User loggt sich ein -> Login erfolgreich -> Weiterleitung zum Hauptmenü || Und so funktioniert es gerade ---> User loggt sich ein -> Login fehlgeschlagen -> Weiterleitung zum Hauptmenü. Es kommt zwar eine MessageBox mit Login fehlgeschlagen aber er leitet trotzdem zum Hauptmenü.
PHP-Quellcode
- <?php
- @mysql_connect('localhost', 'name', 'pw') or die (mysql_error());
- @mysql_select_db('db') or die (sqlerror(mysql_errno(), mysql_error()));
- $userpw = mysql_real_escape_string($_POST['pw']);
- $userid = mysql_real_escape_string($_POST['u']);
- $query = "SELECT * FROM `user` WHERE `user`='$userid' AND `passwd`='$userpw'";
- $result = mysql_query($query);
- $resultcount = mysql_num_rows($result);
- if ($resultcount == 0)
- echo 'Login fehlgeschlagen';
- }else {
- echo 'Erfolgreich eingeloggt';
- }
- ?>
Visual Basic-Quellcode
-
- Private Sub btn_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_login.Click
- nv.Clear()
- nv.Add("u", log_usr.Text)
- nv.Add("pw", MD5StringHash(log_pw.Text))
- Dim result() As Byte = wc.UploadValues("webspace/login.php", "POST", nv)
- Dim resultstring As String = System.Text.Encoding.ASCII.GetString(result)
- MessageBox.Show(resultstring)
- Form2.Show()
- End Sub
Was muss ich ändern? Vielen Dank im voraus.