Änderungen

This commit is contained in:
ja
2021-10-20 11:25:30 +02:00
parent 14e0830256
commit e0a7304225
4 changed files with 20 additions and 20 deletions

View File

@@ -18,8 +18,8 @@ Partial Class login_FLEX
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
Dim tb As TextBox = form1.FindControl("UserID")
Dim tb_M As TextBox = form1.FindControl("UserID_M")
Dim tb As TextBox = form1.FindControl("txt_CustomerID")
Dim tb_M As TextBox = form1.FindControl("txt_CustomerID_M")
Dim tb2 As TextBox = form1.FindControl("UserName")
Dim tb2_M As TextBox = form1.FindControl("UserName_M")
Dim tb3 As TextBox = form1.FindControl("Password")
@@ -37,19 +37,19 @@ Partial Class login_FLEX
Dim regexusername As RegularExpressionValidator = Page.FindControl("check_UserName_regex")
Dim regexusername_M As RegularExpressionValidator = Page.FindControl("check_UserName_M_regex")
Dim user_ID As String = String.Empty
Dim Customer_ID As String = String.Empty
Dim UserNaMe As String = String.Empty
Dim passw As String = String.Empty
If reqfieldvaluserID.IsValid Then
regexuserID.Validate()
If regexuserID.IsValid Then
user_ID = tb.Text
Customer_ID = tb.Text
End If
ElseIf reqfieldvaluserID_M.IsValid Then
regexusername_M.Validate()
If regexusername_M.IsValid Then
user_ID = tb_M.Text
Customer_ID = tb_M.Text
End If
End If
@@ -71,7 +71,7 @@ Partial Class login_FLEX
Using cmd As New SqlCommand("SELECT COUNT(*), UserId,Username, Password FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Password=@Password AND Kundennr=@Kundennr")
' cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Username", UserNaMe)
cmd.Parameters.AddWithValue("UserID", user_ID)
cmd.Parameters.AddWithValue("UserID", Customer_ID)
cmd.Parameters.AddWithValue("@Password", passw)
cmd.Connection = con
con.Open()
@@ -89,24 +89,24 @@ Partial Class login_FLEX
Exit Select
Case Else
If tb.Text = dr("UserId") Then
user_ID = dr("UserID")
Customer_ID = dr("UserId")
Else
Login1.FailureText = "ID cannot be found in the database!"
End If
If tb2.Text = dr("Username") Then
user_ID = dr("Username")
Customer_ID = dr("Username")
Else
Login1.FailureText = "Username is not in the database!"
End If
If tb3.Text = dr("Password") Then
user_ID = dr("Password")
Customer_ID = dr("Password")
Else
Login1.FailureText = "Password is not in the database!"
End If
Login1.FailureText = "Erfolgreich validiert."
Session.Add("test", UserNaMe)
Session.Add("UserID", user_ID)
Session.Add("UserID", Customer_ID)
Session.Add("PW", passw)
FormsAuthentication.RedirectFromLoginPage(UserNaMe, True)