From e4a82f6bb40ac2c74310b47133465c00bbaf0b02 Mon Sep 17 00:00:00 2001 From: ja Date: Tue, 19 Oct 2021 16:28:05 +0200 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen=20Css=20und=20login=20logiken?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- css/login/ForgotPW.css | 2 +- css/login/loginFLEX.css | 4 +- login/ForgotPW.aspx.vb | 111 +++++++++++++++++++-------------------- login/login_FLEX.aspx | 11 ++-- login/login_FLEX.aspx.vb | 4 ++ 5 files changed, 67 insertions(+), 65 deletions(-) diff --git a/css/login/ForgotPW.css b/css/login/ForgotPW.css index 30d2493..4961ac8 100644 --- a/css/login/ForgotPW.css +++ b/css/login/ForgotPW.css @@ -23,7 +23,7 @@ width: 100%; height: 100%; margin: 0 auto; - margin-top: 0px; + margin-top: 250px; } .container-fluid { diff --git a/css/login/loginFLEX.css b/css/login/loginFLEX.css index c5c0770..038c7a1 100644 --- a/css/login/loginFLEX.css +++ b/css/login/loginFLEX.css @@ -19,7 +19,7 @@ } #content_container { position: absolute; - display: 690pc; + display: 690px; justify-content: center; align-items: center; width: 100%; @@ -35,7 +35,7 @@ bottom: auto; left: -20%; right: 520px; - margin: auto; + margin: 15% auto auto auto; } #tbl_main { font-family: Arial; diff --git a/login/ForgotPW.aspx.vb b/login/ForgotPW.aspx.vb index ca7bbd8..6699e86 100644 --- a/login/ForgotPW.aspx.vb +++ b/login/ForgotPW.aspx.vb @@ -51,11 +51,14 @@ Partial Class ForgotPW If Boolemail_desktop_notempty = True Then regexval_txt_Email.Validate() If regexval_txt_Email.IsValid = True Then - Boolemail_desktop_regex = True Boolemail_desktop_regexdomain = True - Boolemail_mobile_regex = False Boolemail_mobile_regexdomain = False End If + regexval_txt_Email_2.Validate() + If regexval_txt_Email_2.IsValid = True Then + Boolemail_desktop_regex = True + Boolemail_mobile_regex = False + End If If Boolemail_desktop_notempty = True AndAlso Boolemail_desktop_regexdomain = True AndAlso Boolemail_desktop_regex = True Then email = txtEmail.Text Else @@ -76,7 +79,7 @@ Partial Class ForgotPW email = txtEmail.Text End If End If - End If + End If valreqtxtusername.Validate() If valreqtxtusername.IsValid = True Then Booluser_desktop_notempty = True @@ -99,43 +102,49 @@ Partial Class ForgotPW If String.IsNullOrEmpty(txtEmail_M.Text) = False And String.IsNullOrEmpty(txt_Username_M.Text) = False And String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(txt_Username.Text) = True Then valreqtxtEmail_M.Enabled = True regexval_2_txt_Email_M.Enabled = True + valreqtxtusername_M.Enabled = True regexval_txt_Email.Enabled = False regexval_txt_Email_2.Enabled = False valreqtxtusername.Enabled = False - valreqtxtusername_M.Enabled = True + valreqtxtEmail_M.Validate() If valreqtxtEmail_M.IsValid = True Then Boolemail_mobile_notempty = True Boolemail_desktop_notempty = False - If Boolemail_mobile_regexdomain = True Then + If Boolemail_mobile_notempty = True Then regexval_2_txt_Email_M.Validate() - If regexval_2_txt_Email_M.IsValid = True Then + Boolemail_mobile_regexdomain = True + Boolemail_desktop_regexdomain = False + If Boolemail_mobile_regexdomain = True Then + regexval_2_txt_Email_M.Validate() + If regexval_2_txt_Email_M.IsValid = True Then + Boolemail_mobile_regex = True + Boolemail_desktop_regex = False + If Boolemail_mobile_notempty = True AndAlso Boolemail_mobile_regexdomain = True AndAlso Boolemail_mobile_regex = True Then + email = txtEmail_M.Text + Else + regexval_txt_Email_M.IsValid = True + Boolemail_mobile_regex = True + Boolemail_desktop_regex = False + If Boolemail_mobile_regexdomain = True Then + email = txtEmail_M.Text + End If + End If + End If + ElseIf valreqtxtEmail_M.IsValid = False Then + Boolemail_mobile_regexdomain = False + valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain." + regexval_txt_Email.Validate() Boolemail_mobile_regex = True - Boolemail_desktop_regex = False - End If - If Boolemail_mobile_notempty = True AndAlso Boolemail_mobile_regexdomain = True AndAlso Boolemail_mobile_regex = True Then - email = txtEmail.Text - Else - regexval_txt_Email_2.IsValid = True - Boolemail_mobile_regex = True - Boolemail_desktop_regex = False - If Boolemail_mobile_regexdomain = True Then + If Boolemail_mobile_regex = True AndAlso Boolemail_mobile_regexdomain = False Then + regexval_txt_Email_2.IsValid = True email = txtEmail_M.Text End If End If - ElseIf valreqtxtEmail_M.IsValid = False Then - Boolemail_mobile_regexdomain = False - valreqtxtEmail.ErrorMessage = "Annotation: The given Domain is not the company domain." - regexval_txt_Email.Validate() - Boolemail_mobile_regex = True - If Boolemail_mobile_regex = True AndAlso Boolemail_mobile_regexdomain = False Then - regexval_txt_Email_2.IsValid = True - email = txtEmail.Text - End If End If End If - valreqtxtusername_M.Validate() + valreqtxtusername_M.Validate() If valreqtxtusername_M.IsValid = True Then Booluser_mobile_notempty = True Booluser_desktop_notempty = False @@ -151,24 +160,24 @@ Partial Class ForgotPW End If End If End If - End If + 'Erweiterte Degub Msg-Box 'MsgBox("Userdaten in App" + Environment.NewLine + email + Environment.NewLine + username + Environment.NewLine + "Userdaten desktop" + txt_Username.Text + Environment.NewLine + txtEmail.Text + Environment.NewLine + "Userdaten Mobil:" + Environment.NewLine + txtEmail_M.Text + Environment.NewLine + txt_Username_M.Text) If String.IsNullOrEmpty(email) = False And String.IsNullOrEmpty(tokenname) = True And String.IsNullOrEmpty(password) = True And String.IsNullOrEmpty(username) = False And String.IsNullOrEmpty(userID) = True Then - If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True - 'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956" - ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" - Else - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" - 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" - End If - - Using con As New SqlConnection(ConnectionString) + If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + 'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956" + ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" + Else + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + ConnectionString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" + 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" + End If + End If + Using con As New SqlConnection(ConnectionString) ' Using cmd As New SqlCommand("Validate_User") - Using cmd As New SqlCommand("SELECT Username,Password,Email,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username") + Using cmd As New SqlCommand("SELECT Username,Password,Email,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Email=@Email") ' cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@Username", username) cmd.Connection = con @@ -182,34 +191,24 @@ Partial Class ForgotPW userID = VERAG_PROG_ALLGEMEIN.cCryptography2.Encrypt(dr("KundenNr").ToString()) Try If txt_Username.Text = dr("Username").ToString() AndAlso String.IsNullOrEmpty(txt_Username_M.Text) = True And String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(userID)) = False Then - check_UserName_regex_M.Enabled = False - check_UserName_regex.Enabled = True - check_UserName_regex.IsValid = True username = txt_Username.Text + ElseIf txt_Username_M.Text = dr("Username").ToString() AndAlso txt_Username.Text = String.Empty And String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(userID)) = False Then - check_UserName_regex.Enabled = False - check_UserName_regex_M.Enabled = True - If check_UserName_regex_M.IsValid = True Then - username = txt_Username_M.Text - End If + username = txt_Username_M.Text ElseIf String.IsNullOrEmpty(txt_Username_M.Text) = True AndAlso String.IsNullOrEmpty(txtEmail.Text) = True And String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(userID)) = False Then - check_UserName_regex_M.MatchTimeout = 3000 - check_UserName_regex_M.ErrorMessage = "No valid Username found in out database!" - check_UserName_regex_M.IsValid = False - ElseIf String.IsNullOrEmpty(txt_Username.Text) = False Then - check_UserName_regex.MatchTimeout = 3000 + check_UserName_regex_M.MatchTimeout = 3000 + check_UserName_regex_M.ErrorMessage = "No valid Username found in out database!" + check_UserName_regex_M.IsValid = False + ElseIf String.IsNullOrEmpty(txt_Username.Text) = False Then + check_UserName_regex.MatchTimeout = 3000 check_UserName_regex.ErrorMessage = "No valid Username found in out database!" check_UserName_regex.IsValid = False End If If (txtEmail.Text = dr("Email").ToString() AndAlso String.IsNullOrEmpty(txtEmail_M.Text) = True) And String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(userID)) = False Then - regexval_txt_Email_M.Enabled = False - regexval_txt_Email.Enabled = True - regexval_txt_Email.Validate() email = txtEmail.Text lblMessage.ForeColor = Color.Green lblMessage.Text = "The given e-mail exists in our database." ElseIf (txtEmail_M.Text = dr("Email").ToString() AndAlso String.IsNullOrEmpty(txtEmail.Text) = True) And String.IsNullOrEmpty(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(userID)) = False Then - regexval_txt_Email_M.Validate() email = txtEmail_M.Text lblMessage_M.ForeColor = Color.Green lblMessage_M.Text = "The given e-mail exists in our database." @@ -286,7 +285,7 @@ Partial Class ForgotPW lblMessage.Text = "The form has not been filled completeley." End If Catch Exc As Exception - lblMessage.Text = "Error08: No iput found." + lblMessage.Text = "Error08: No input found." End Try End Sub diff --git a/login/login_FLEX.aspx b/login/login_FLEX.aspx index 1401f05..b8a33cd 100644 --- a/login/login_FLEX.aspx +++ b/login/login_FLEX.aspx @@ -284,21 +284,21 @@ - - + + - + - + @@ -310,8 +310,7 @@ - - + I forgot my password diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb index 4e0e15c..af9be85 100644 --- a/login/login_FLEX.aspx.vb +++ b/login/login_FLEX.aspx.vb @@ -124,6 +124,7 @@ Partial Class login_FLEX Protected Sub LoginButton_Click(sender As Object, e As EventArgs) Validate("Login") If Page.IsValid() Then + MsgBox("Wow1") Dim cb As CheckBox = Page.FindControl("RememberMe") If cb.Checked = True Then FormsAuthentication.SetAuthCookie(Login1.UserName, True) @@ -132,12 +133,14 @@ Partial Class login_FLEX End If Response.Redirect("../Customers/CustomsAviso.aspx") Else + MsgBox("Error1") Response.Redirect("login_FLEX.aspx") End If End Sub Protected Sub LoginButton_M_Click(sender As Object, e As EventArgs) Validate("Login_M") If Page.IsValid() Then + MsgBox("Wow2") Dim cb As CheckBox = Page.FindControl("RememberMe_M") If cb.Checked = True Then FormsAuthentication.SetAuthCookie(Login1.UserName, True) @@ -146,6 +149,7 @@ Partial Class login_FLEX End If Response.Redirect("../Customers/CustomsAviso.aspx") Else + MsgBox("Error2") Response.Redirect("login_FLEX.aspx") End If End Sub