edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderungen Login System schreibtjetzt auch die einlogzeit in die Datenbank und die Kundennummer wurd durch die USerID ersetzt

Browse Source
This commit is contained in:
ja
2021-11-15 16:33:34 +01:00
parent 64c5207163
commit d434400a39
5 changed files with 46 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
login/ForgotPW.aspx.vb
View File

@@ -113,7 +113,7 @@ Partial Class ForgotPW
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 AND Email=@Email AND KundenNr=@CUSTOMERId")
Using cmd As New SqlCommand("SELECT Username,Password,Email,UserId FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Email=@Email AND UserId=@CUSTOMERId")
' cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Username", username)
cmd.Parameters.AddWithValue("@Email", email)
@@ -126,7 +126,7 @@ Partial Class ForgotPW
username = dr("Username").ToString()
password = dr("Password").ToString()
email = dr("Email").ToString()
customerID = dr("KundenNr").ToString()
customerID = dr("UserId").ToString()
Try
If txt_Username.Text = dr("Username").ToString() AndAlso String.IsNullOrEmpty(txt_Username_M.Text) = True And String.IsNullOrEmpty(customerID) = False Then
@@ -150,25 +150,25 @@ Partial Class ForgotPW
ElseIf String.IsNullOrEmpty(email) = True Then
lblMessage_M.ForeColor = Color.Red
isemailright = False
lblMessage_M.Text = "The given User does not exist in our database."
lblMessage_M.Text = "The given Email does not exist in our database."
Else
lblMessage_M.ForeColor = Color.Red
isemailright = False
lblMessage_M.Text = "The given e-mail does not exist in our database."
End If
If (txt_CustomerID.Text = dr("KundenNr").ToString() AndAlso String.IsNullOrEmpty(txt_CustomerID_M.Text) = True) And String.IsNullOrEmpty(customerID) = False Then
If (txt_CustomerID.Text = dr("UserId").ToString() AndAlso String.IsNullOrEmpty(txt_CustomerID_M.Text) = True) And String.IsNullOrEmpty(customerID) = False Then
email = txtEmail.Text
lblMessage.ForeColor = Color.Green
isCustomeridright = True
lblMessage.Text = "The given Customer-ID exists in our database."
lblMessage.Text = "The given UserId exists in our database."
ElseIf String.IsNullOrEmpty(customerID) = True Then
lblMessage_M.ForeColor = Color.Red
isCustomeridright = False
lblMessage_M.Text = "The given Customer-ID does not exist in our database."
lblMessage_M.Text = "The given User-ID does not exist in our database."
Else
lblMessage_M.ForeColor = Color.Red
isCustomeridright = False
lblMessage_M.Text = "The given Customer-ID does not exist in our database."
lblMessage_M.Text = "The given User-ID does not exist in our database."
End If
Catch ex As Exception
Dim Msg, Style, Title As String