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

Linkbuttons statt normale Links in login form

Browse Source
This commit is contained in:
ja
2021-10-20 14:22:09 +02:00
parent 87e7968579
commit c300dd1918
2 changed files with 34 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
login/login_FLEX.aspx.vb
View File

@@ -18,24 +18,24 @@ 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("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")
Dim tb3_M As TextBox = form1.FindControl("Password_M")
Dim tb As TextBox = Login1.FindControl("txt_CustomerID")
Dim tb_M As TextBox = Login1.FindControl("txt_CustomerID_M")
Dim tb2 As TextBox = Login1.FindControl("UserName")
Dim tb2_M As TextBox = Login1.FindControl("UserName_M")
Dim tb3 As TextBox = Login1.FindControl("Password")
Dim tb3_M As TextBox = Login1.FindControl("Password_M")
Dim reqfieldvaluserID As RequiredFieldValidator = Page.FindControl("CustomerIDrequired")
Dim reqfieldvaluserID_M As RequiredFieldValidator = Page.FindControl("CustomerID_M_required")
Dim reqfieldvaluserName As RequiredFieldValidator = Page.FindControl("UserNamerequired")
Dim reqfieldvaluserName_M As RequiredFieldValidator = Page.FindControl("UserName_M_required")
Dim reqfieldvalpassw As RequiredFieldValidator = Page.FindControl("Passwordrequired")
Dim reqfieldvalpassw_M As RequiredFieldValidator = Page.FindControl("Passwordrequired_M")
Dim reqfieldvaluserID As RequiredFieldValidator = Login1.FindControl("CustomerIDrequired")
Dim reqfieldvaluserID_M As RequiredFieldValidator = Login1.FindControl("CustomerID_M_required")
Dim reqfieldvaluserName As RequiredFieldValidator = Login1.FindControl("UserNamerequired")
Dim reqfieldvaluserName_M As RequiredFieldValidator = Login1.FindControl("UserName_M_required")
Dim reqfieldvalpassw As RequiredFieldValidator = Login1.FindControl("Passwordrequired")
Dim reqfieldvalpassw_M As RequiredFieldValidator = Login1.FindControl("Passwordrequired_M")
Dim regexuserID As RegularExpressionValidator = Page.FindControl("valid_getNumberInput")
Dim regexuserID_M As RegularExpressionValidator = Page.FindControl("valid_getNumber_M_Input")
Dim regexusername As RegularExpressionValidator = Page.FindControl("check_UserName_regex")
Dim regexusername_M As RegularExpressionValidator = Page.FindControl("check_UserName_M_regex")
Dim regexuserID As RegularExpressionValidator = Login1.FindControl("valid_getNumberInput")
Dim regexuserID_M As RegularExpressionValidator = Login1.FindControl("valid_getNumber_M_Input")
Dim regexusername As RegularExpressionValidator = Login1.FindControl("check_UserName_regex")
Dim regexusername_M As RegularExpressionValidator = Login1.FindControl("check_UserName_M_regex")
Dim Customer_ID As String = String.Empty
Dim UserNaMe As String = String.Empty
@@ -50,10 +50,8 @@ Partial Class login_FLEX
If regexuserID.IsValid Then
Customer_ID = tb.Text
Else
regexuserID.ErrorMessage = ""
regexuserID.ErrorMessage = "Customer-ID has to be a number."
End If
Else
reqfieldvaluserID.ErrorMessage = ""
End If
End If
If String.IsNullOrEmpty(tb_M.Text) = False AndAlso String.IsNullOrEmpty(tb.Text) = True Then
@@ -64,10 +62,8 @@ Partial Class login_FLEX
If regexusername_M.IsValid Then
Customer_ID = tb_M.Text
Else
regexusername_M.ErrorMessage = ""
regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it."
End If
Else
reqfieldvaluserID_M.ErrorMessage = ""
End If
End If
If String.IsNullOrEmpty(tb2.Text) = False AndAlso String.IsNullOrEmpty(tb2_M.Text) = True Then
@@ -78,10 +74,10 @@ Partial Class login_FLEX
If regexusername.IsValid Then
UserNaMe = tb2.Text
Else
regexusername_M.ErrorMessage = ""
regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it."
End If
Else
reqfieldvaluserName.ErrorMessage = ""
reqfieldvaluserName.ErrorMessage = "Username has to be given."
End If
End If
If String.IsNullOrEmpty(tb2.Text) = False AndAlso String.IsNullOrEmpty(tb2_M.Text) = True Then
@@ -93,14 +89,13 @@ Partial Class login_FLEX
If regexusername.IsValid Then
UserNaMe = tb2_M.Text
Else
regexusername.ErrorMessage = ""
regexusername.ErrorMessage = "Password has to match the criterias of tge info button."
End If
Else
reqfieldvaluserName_M.ErrorMessage = ""
End If
If reqfieldvalpassw.IsValid AndAlso String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then
reqfieldvalpassw.Enabled = True
reqfieldvalpassw_M.Enabled = False
If String.IsNullOrEmpty(tb3_M.Text) = False AndAlso String.IsNullOrEmpty(tb3.Text) = True Then
reqfieldvalpassw.Enabled = True
reqfieldvalpassw_M.Enabled = False
reqfieldvalpassw.Validate()
If reqfieldvalpassw.IsValid = True Then
End If
@@ -114,7 +109,7 @@ Partial Class login_FLEX
If reqfieldvalpassw_M.IsValid = True Then
passw = tb3_M.Text
Else
reqfieldvalpassw_M.ErrorMessage = ""
reqfieldvalpassw_M.ErrorMessage = "Password has to be given."
End If
End If
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString