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

Anpassungen css required validatoren

Browse Source
This commit is contained in:
ja
2021-10-19 10:22:34 +02:00
parent 5cc2a30fee
commit ce69b2e1ce
5 changed files with 104 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
login/login_FLEX.aspx.vb
View File

@@ -4,9 +4,7 @@ Imports System.Data
Partial Class login_FLEX
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As EventArgs)
If Page.IsPostBack Then
MsgBox("Debug")
End If
End Sub
Protected Sub ValidateUser(sender As Object, e As EventArgs)
Dim userId As Integer = 0
@@ -19,23 +17,61 @@ Partial Class login_FLEX
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
Dim tb As TextBox = form1.FindControl("UserID")
Dim tb_M As TextBox = form1.FindControl("UserID_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 reqfieldvaluserID As RequiredFieldValidator = Page.FindControl("CustomerIDrequired")
reqfieldvaluserID.Validate()
Dim user_ID As String
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 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 user_ID As String = String.Empty
Dim UserNaMe As String = String.Empty
Dim passw As String = String.Empty
If reqfieldvaluserID.IsValid Then
user_ID = tb.Text
Else
user_ID = String.Empty
regexuserID.Validate()
If regexuserID.IsValid Then
user_ID = tb.Text
End If
ElseIf reqfieldvaluserID_M.IsValid Then
regexusername_M.Validate()
If regexusername_M.IsValid Then
user_ID = tb_M.Text
End If
End If
If reqfieldvaluserName.IsValid Then
UserNaMe = tb2.Text
ElseIf reqfieldvaluserName_M.IsValid Then
UserNaMe = tb2_M.Text
End If
If reqfieldvalpassw.IsValid Then
passw = tb3.Text
ElseIf reqfieldvaluserName_M.IsValid Then
passw = tb2_M.Text
End If
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
Using con As New SqlConnection(ConnectionString)
' Using cmd As New SqlCommand("Validate_User")
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Password=@Password AND Kundennr=@UserID")
' cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@Username", Login1.UserName)
cmd.Parameters.AddWithValue("@Username", UserNaMe)
cmd.Parameters.AddWithValue("UserID", user_ID)
cmd.Parameters.AddWithValue("@Password", Login1.Password)
cmd.Parameters.AddWithValue("@Password", passw)
cmd.Connection = con
con.Open()
' userId = Convert.ToInt32(cmd.ExecuteScalar())
@@ -52,11 +88,11 @@ Partial Class login_FLEX
Exit Select
Case Else
Login1.FailureText = "Erfolgreich validiert."
Session.Add("test", Login1.UserName)
Session.Add("test", UserNaMe)
Session.Add("UserID", user_ID)
Session.Add("PW", passw)
Session.Add("PW", Login1.Password)
FormsAuthentication.RedirectFromLoginPage(Login1.UserName, True)
FormsAuthentication.RedirectFromLoginPage(UserNaMe, True)
'FormsAuthentication.SetAuthCookie(Login1.UserName, True)
'Response.Redirect("../Customers/CustomsAviso.aspx")