Änderungen Validierungen und GUI-Anpassungen
This commit is contained in:
ja
@@ -151,7 +151,7 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:10px;">
|
||||
<td>
|
||||
<asp:RegularExpressionValidator ID="reqPassw1txt" style="margin-left:32px;" runat="server" ControlToValidate="txt_Pw" ValidationGroup="TXT_val" ForeColor="Red" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="reqPassw1txt" Enabled="false" style="margin-left:32px;" runat="server" ControlToValidate="txt_Pw" ValidationGroup="TXT_val" ForeColor="Red" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
@@ -164,19 +164,19 @@
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="4">
|
||||
<asp:RequiredFieldValidator ID="reqPasswtxt" style="margin-left:42px;" runat="server" ControlToValidate="txt_Pw_WH" ErrorMessage="Please repeat the password!" Display="Dynamic" ForeColor="Red"></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="reqPasswtxt" Enabled="false" style="margin-left:42px;" runat="server" ControlToValidate="txt_Pw_WH" ErrorMessage="Please repeat the password!" Display="Dynamic" ForeColor="Red"></asp:RequiredFieldValidator>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:15.67px;">
|
||||
<td>
|
||||
<asp:Button ID="btn_submitpw" runat="server" Text="Change the password!" Width="250px" style="margin-left:46px;border:none"/>
|
||||
<asp:Button ID="btn_submitpw" runat="server" OnClick="btn_submitpw_Click" Text="Change the password!" Width="250px" style="margin-left:46px;border:none"/>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:10px;">
|
||||
<td>
|
||||
<asp:CompareValidator ID="confirmPasswordReq" style="margin-left:32px;" runat="server" ControlToCompare="txt_Pw" ControlToValidate="txt_Pw_WH" ErrorMessage="Please try again! The passwords didn't match." Display="Dynamic" ForeColor="Red"></asp:CompareValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw" style="margin-left:32px;" runat="server" ControlToValidate="txt_Pw" ValidationGroup="TXT_val" ForeColor="Red" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw_WH" style="margin-left:32px;" runat="server" ControlToValidate="txt_Pw_WH" ValidationGroup="TXT_val" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ForeColor="Red" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:CompareValidator ID="confirmPasswordReq" style="margin-left:32px;" Enabled="false" runat="server" ControlToCompare="txt_Pw" ControlToValidate="txt_Pw_WH" ErrorMessage="Please try again! The passwords didn't match." Display="Dynamic" ForeColor="Red"></asp:CompareValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw" style="margin-left:32px;" Enabled="false" runat="server" ControlToValidate="txt_Pw" ValidationGroup="TXT_val" ForeColor="Red" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw_WH" style="margin-left:32px;" Enabled="false" runat="server" ControlToValidate="txt_Pw_WH" ValidationGroup="TXT_val" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ForeColor="Red" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
@@ -205,7 +205,7 @@
|
||||
</tr>
|
||||
<tr style="height:15px">
|
||||
<td>
|
||||
<asp:RequiredFieldValidator ID="reqPassw1txt_M" runat="server" ControlToValidate="txt_Pw_M" ErrorMessage="" ForeColor="Red" Font-Size="19" Display="Dynamic"></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="reqPassw1txt_M" runat="server" Enabled="false" ControlToValidate="txt_Pw_M" ErrorMessage="*" ForeColor="Red" Font-Size="19" Display="Dynamic"></asp:RequiredFieldValidator>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:36.67px;">
|
||||
@@ -218,7 +218,7 @@
|
||||
</tr>
|
||||
<tr style="height:15px">
|
||||
<td colspan="2">
|
||||
<asp:RequiredFieldValidator ID="reqPasswtxt_M" runat="server" ControlToValidate="txt_Pw_WH_M" ErrorMessage="" Font-Size="19" ForeColor="Red" Display="Dynamic"></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="reqPasswtxt_M" runat="server" Enabled="false" ControlToValidate="txt_Pw_WH_M" ErrorMessage="*" Font-Size="19" ForeColor="Red" Display="Dynamic"></asp:RequiredFieldValidator>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:26.67px;">
|
||||
@@ -228,9 +228,9 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:20px;">
|
||||
<td>
|
||||
<asp:CompareValidator ID="confirmPasswordReq_M" runat="server" ControlToCompare="txt_Pw_M" ControlToValidate="txt_Pw_WH_M" ValidationGroup="TXT_val_WH_M" Font-Size="19" ForeColor="Red" ErrorMessage="Please try again! The passwords didn't match." Display="Dynamic"></asp:CompareValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw_WH_M" runat="server" ControlToValidate="txt_Pw_WH_M" ValidationGroup="TXT_val_WH_M" ForeColor="Red" Font-Size="19" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Pw_M" runat="server" ID="regexval_txt_Pw_M" ValidationGroup="TXT_val_M" ForeColor="Red" Font-Size="19" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:CompareValidator ID="confirmPasswordReq_M" runat="server" ControlToCompare="txt_Pw_M" Enabled="false" ControlToValidate="txt_Pw_WH_M" ValidationGroup="TXT_val_WH_M" Font-Size="19" ForeColor="Red" ErrorMessage="Please try again! The passwords didn't match." Display="Dynamic"></asp:CompareValidator>
|
||||
<asp:RegularExpressionValidator ID="regexval_txt_Pw_WH_M" runat="server" Enabled="false" ControlToValidate="txt_Pw_WH_M" ValidationGroup="TXT_val_WH_M" ForeColor="Red" Font-Size="19" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txt_Pw_M" runat="server" Enabled="false" ID="regexval_txt_Pw_M" ValidationGroup="TXT_val_M" ForeColor="Red" Font-Size="19" ValidationExpression="^(?=.*[a-z])(?=.*[A-Z])(?=.*\d)(?=.*[^a-zA-Z\d]).{4,35}$" Display="Dynamic" ErrorMessage="The Password has to match the criterias of the info-button." SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:Label ID="lbl_messagetext_M" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
@@ -33,15 +33,34 @@ Partial Class login_Change_PW
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2")) = usrname AndAlso VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3") = UsrID) Then
|
||||
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing Then
|
||||
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True AndAlso VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2")) = dr("Username") AndAlso VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3")) = dr("KundenNr") Then
|
||||
Try
|
||||
txt_Pw_WH.Enabled = True
|
||||
txt_Pw.Enabled = True
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
|
||||
If IsPostBack Then
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = False Then
|
||||
txt_Pw_WH.Enabled = False
|
||||
reqPassw1txt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
If reqPasswtxt.IsValid = True Then
|
||||
txt_Pw_WH.Enabled = True
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
ElseIf String.IsNullOrEmpty(txt_Pw_M.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = False Then
|
||||
txt_Pw_WH_M.Enabled = False
|
||||
reqPasswtxt.Enabled = False
|
||||
reqPassw1txt.Enabled = False
|
||||
reqPassw1txt_M.Enabled = True
|
||||
reqPasswtxt_M.Enabled = True
|
||||
reqPasswtxt_M.Validate()
|
||||
If reqPasswtxt_M.IsValid = True Then
|
||||
txt_Pw_WH_M.Enabled = True
|
||||
reqPassw1txt_M.Validate()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Catch exc As Exception
|
||||
lbl_messagetext.Text = exc.Message
|
||||
@@ -69,29 +88,6 @@ Partial Class login_Change_PW
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw_WH.Validate()
|
||||
confirmPasswordReq.Validate()
|
||||
If confirmPasswordReq.IsValid Then
|
||||
' btn_submitpw.Enabled = True
|
||||
Else
|
||||
lbl_messagetext.ForeColor = Drawing.Color.Red
|
||||
lbl_messagetext.Text = "Passwort stimmt nicht überein."
|
||||
'btn_submitpw.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw.Validate()
|
||||
If regexval_txt_Pw.IsValid Then
|
||||
txt_Pw_WH.ReadOnly = False
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
Else
|
||||
txt_Pw_WH.ReadOnly = True
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function getDateoftoken(tokenname As String) As Boolean
|
||||
Dim data() As Byte = Convert.FromBase64String(VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(tokenname))
|
||||
Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
|
||||
@@ -130,12 +126,19 @@ Partial Class login_Change_PW
|
||||
Dim Msg, Style, Title As String
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = True Then
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = False Then
|
||||
txt_Pw_WH.Enabled = False
|
||||
reqPassw1txt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
If reqPasswtxt.IsValid = True Then
|
||||
txt_Pw_WH.Enabled = True
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
End If
|
||||
Dim ConnectionString = ""
|
||||
|
||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||
@@ -147,38 +150,54 @@ Partial Class login_Change_PW
|
||||
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)
|
||||
' Using cmd As New SqlCommand("Validate_User")
|
||||
Using cmd As New SqlCommand("SELECT KundenNr,Username, Passwort FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
con.Open()
|
||||
' userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If txt_Pw.Text = dr("Passwort") Or txt_Pw_WH.Text = dr("Passwort") Then
|
||||
If reqPasswtxt.IsValid And reqPassw1txt.IsValid Then
|
||||
If reqPassw1txt.IsValid = True Then
|
||||
Using con As New SqlConnection(ConnectionString)
|
||||
' Using cmd As New SqlCommand("Validate_User")
|
||||
Using cmd As New SqlCommand("SELECT KundenNr,Username,Password FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
con.Open()
|
||||
' userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If txt_Pw.Text = Not dr("Password") Or txt_Pw_WH.Text = Not dr("Password") Then
|
||||
tempstr = txt_Pw.Text
|
||||
Else
|
||||
lbl_messagetext.Text = "Die gewählten Passwörter dürfen nicht dem alten entsprechen!"
|
||||
End If
|
||||
Else
|
||||
lbl_messagetext.Text = "Die gewählten Passwörter dürfen nicht dem alten entsprechen!"
|
||||
End If
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
Else
|
||||
VERAG_VARIABLES.seterrorcount(22)
|
||||
lbl_messagetext.Text = VERAG_VARIABLES.geterrornumb + "Error in Passwort Validation."
|
||||
End If
|
||||
|
||||
Else
|
||||
tempstr = "Error01"
|
||||
tempstr = "Error01"
|
||||
End If
|
||||
|
||||
If txt_Pw.Text = tempstr And txt_Pw_WH.Text = tempstr AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = True And String.IsNullOrEmpty(txt_Pw_WH_M.Text) = True And tempstr = Not "Error01" Then
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = False Then
|
||||
txt_Pw_WH_M.Enabled = False
|
||||
reqPasswtxt.Enabled = False
|
||||
reqPassw1txt.Enabled = False
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
If reqPasswtxt.IsValid = True Then
|
||||
txt_Pw_WH.Enabled = True
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
Dim ConnectionString = ""
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
@@ -190,16 +209,21 @@ Partial Class login_Change_PW
|
||||
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)
|
||||
Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [Password]=@Password WHERE [Username]=@Username AND [KundenNr]=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@Password", tempstr)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
cmd.ExecuteNonQuery()
|
||||
If reqPassw1txt_M.IsValid = True Then
|
||||
Using con As New SqlConnection(ConnectionString)
|
||||
Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET [Password]=@Password WHERE [Username]=@Username AND [KundenNr]=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@Password", tempstr)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
cmd.ExecuteNonQuery()
|
||||
End Using
|
||||
End Using
|
||||
End Using
|
||||
Else
|
||||
VERAG_VARIABLES.seterrorcount(22)
|
||||
lbl_messagetext_M.Text = VERAG_VARIABLES.geterrornumb() + "Error mit der Validierung des Kennwortes."
|
||||
End If
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
@@ -209,11 +233,9 @@ Partial Class login_Change_PW
|
||||
regexval_txt_Pw.ForeColor = Drawing.Color.Green
|
||||
regexval_txt_Pw.Text = "Password has been changed successfully!"
|
||||
'MsgBox(Msg, Style, Title)
|
||||
|
||||
' If MsgBox(Msg, Style, Title).Ok Then
|
||||
'Response.Redirect("login_FLEX.aspx")
|
||||
'End If
|
||||
|
||||
ElseIf tempstr = "Error01" Then
|
||||
regexval_txt_Pw.ForeColor = Drawing.Color.MediumVioletRed
|
||||
VERAG_VARIABLES.seterrorcount(2)
|
||||
@@ -228,12 +250,32 @@ Partial Class login_Change_PW
|
||||
' Response.Redirect("../newPageJulius_Sidebar.aspx")
|
||||
'ElseIf MsgBox(Msg, Style, Title).Ignore Then
|
||||
' Try
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw_WH.Validate()
|
||||
confirmPasswordReq.Validate()
|
||||
If confirmPasswordReq.IsValid Then
|
||||
' btn_submitpw.Enabled = True
|
||||
Else
|
||||
lbl_messagetext.ForeColor = Drawing.Color.Red
|
||||
lbl_messagetext.Text = "Passwort stimmt nicht überein."
|
||||
'btn_submitpw.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw.Validate()
|
||||
If regexval_txt_Pw.IsValid Then
|
||||
txt_Pw_WH.ReadOnly = False
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
Else
|
||||
txt_Pw_WH.ReadOnly = True
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_M_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw_M.Validate()
|
||||
@@ -261,7 +303,7 @@ Partial Class login_Change_PW
|
||||
Protected Sub btn_submitpw_M_Click(sender As Object, e As EventArgs)
|
||||
Dim tempstr As String = ""
|
||||
Dim Msg, Style, Title As String
|
||||
|
||||
Dim ConnectionString = ""
|
||||
If String.IsNullOrEmpty(txt_Pw_M.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = False AndAlso String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True Then
|
||||
reqPasswtxt.Enabled = False
|
||||
reqPasswtxt.Enabled = False
|
||||
@@ -269,98 +311,97 @@ Partial Class login_Change_PW
|
||||
reqPassw1txt_M.Enabled = True
|
||||
reqPasswtxt_M.Validate()
|
||||
reqPassw1txt_M.Validate()
|
||||
Dim 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
|
||||
Using con As New SqlConnection(ConnectionString)
|
||||
' Using cmd As New SqlCommand("Validate_User")
|
||||
Using cmd As New SqlCommand("SELECT KundenNr,Username, Passwort FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
con.Open()
|
||||
' userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If txt_Pw_M.Text = dr("Passwort") Or txt_Pw_WH_M.Text = dr("Passwort") Then
|
||||
If reqPasswtxt_M.IsValid And reqPassw1txt_M.IsValid Then
|
||||
tempstr = txt_Pw_M.Text
|
||||
End If
|
||||
Else
|
||||
lbl_messagetext_M.Text = "Die gewählten Passwörter dürfen nicht dem alten entsprechen!"
|
||||
End If
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
Else
|
||||
tempstr = "Error01"
|
||||
End If
|
||||
If txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso String.IsNullOrEmpty(txt_Pw.Text) = True And String.IsNullOrEmpty(txt_Pw.Text) = True And tempstr = Not "Error01" Then
|
||||
Try
|
||||
Dim ConnectionString = ""
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
If reqPasswtxt_M.IsValid = True AndAlso reqPassw1txt_M.IsValid = 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)
|
||||
Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET Password=@Password WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' Using cmd As New SqlCommand("Validate_User")
|
||||
Using cmd As New SqlCommand("SELECT KundenNr,Username, Passwort FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@Password", tempstr)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
cmd.ExecuteNonQuery()
|
||||
regexval_txt_Pw_M.ForeColor = Drawing.Color.Green
|
||||
regexval_txt_Pw_M.Text = "Password has been changed successfully!"
|
||||
con.Open()
|
||||
' userId = Convert.ToInt32(cmd.ExecuteScalar())
|
||||
Dim dr As SqlDataReader = cmd.ExecuteReader()
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
If txt_Pw_M.Text = Not dr("Passwort") Or txt_Pw_WH_M.Text = Not dr("Passwort") Then
|
||||
tempstr = txt_Pw_M.Text
|
||||
Else
|
||||
lbl_messagetext_M.Text = "Die gewählten Passwörter dürfen nicht dem alten entsprechen!"
|
||||
End If
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
lbl_messagetext_M.Text = ex.Message
|
||||
End Try
|
||||
Else
|
||||
tempstr = "Error01"
|
||||
End If
|
||||
If txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso String.IsNullOrEmpty(txt_Pw.Text) = True And String.IsNullOrEmpty(txt_Pw_WH.Text) = True And tempstr = Not "Error01" Then
|
||||
Try
|
||||
ConnectionString = ""
|
||||
Dim usrname = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2"))
|
||||
Dim UsrID = VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par3"))
|
||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||
'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
|
||||
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)
|
||||
Using cmd As New SqlCommand("UPDATE [VERAG_HOMEPAGE].[dbo].[Users] SET Password=@Password WHERE Username=@Username AND KundenNr=@KundenNr")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
cmd.Parameters.AddWithValue("@Username", usrname)
|
||||
cmd.Parameters.AddWithValue("@Password", tempstr)
|
||||
cmd.Parameters.AddWithValue("@KundenNr", UsrID)
|
||||
cmd.Connection = con
|
||||
cmd.ExecuteNonQuery()
|
||||
regexval_txt_Pw_M.ForeColor = Drawing.Color.Green
|
||||
regexval_txt_Pw_M.Text = "Password has been changed successfully!"
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
lbl_messagetext_M.Text = ex.Message
|
||||
End Try
|
||||
|
||||
|
||||
'MsgBox(Msg, Style, Title)
|
||||
'MsgBox(Msg, Style, Title)
|
||||
|
||||
' If MsgBox(Msg, Style, Title).Ok Then
|
||||
'Response.Redirect("login_FLEX.aspx")
|
||||
'End If
|
||||
ElseIf tempstr = "Error01" Then
|
||||
regexval_txt_Pw_M.ForeColor = Drawing.Color.MediumVioletRed
|
||||
VERAG_VARIABLES.seterrorcount(2)
|
||||
regexval_txt_Pw_M.Text = VERAG_VARIABLES.geterrornumb + "Password has not been changed successfully!"
|
||||
' Msg = "PW nicht erfolgreich geändert!"
|
||||
' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1
|
||||
' Title = "Error"
|
||||
'MsgBox(Msg, Style, Title)
|
||||
'If MsgBox(Msg, Style, Title).Retry Then
|
||||
'Response.Redirect(Request.RawUrl)
|
||||
'ElseIf MsgBox(Msg, Style, Title).Abort Then
|
||||
' Response.Redirect("../newPageJulius_Sidebar.aspx")
|
||||
'ElseIf MsgBox(Msg, Style, Title).Ignore Then
|
||||
' Try
|
||||
' If MsgBox(Msg, Style, Title).Ok Then
|
||||
'Response.Redirect("login_FLEX.aspx")
|
||||
'End If
|
||||
ElseIf tempstr = "Error01" Then
|
||||
regexval_txt_Pw_M.ForeColor = Drawing.Color.MediumVioletRed
|
||||
VERAG_VARIABLES.seterrorcount(2)
|
||||
regexval_txt_Pw_M.Text = VERAG_VARIABLES.geterrornumb + "Password has not been changed successfully!"
|
||||
' Msg = "PW nicht erfolgreich geändert!"
|
||||
' Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton1
|
||||
' Title = "Error"
|
||||
'MsgBox(Msg, Style, Title)
|
||||
'If MsgBox(Msg, Style, Title).Retry Then
|
||||
'Response.Redirect(Request.RawUrl)
|
||||
'ElseIf MsgBox(Msg, Style, Title).Abort Then
|
||||
' Response.Redirect("../newPageJulius_Sidebar.aspx")
|
||||
'ElseIf MsgBox(Msg, Style, Title).Ignore Then
|
||||
' Try
|
||||
|
||||
' Catch ex As Exception
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
' End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -318,8 +318,8 @@
|
||||
<asp:Label ID="lblMessage" runat="server" />
|
||||
<asp:RegularExpressionValidator ID="valid_getNumberInput" ControlToValidate="txt_CustomerID" style="font-size:17px" ForeColor="Red" ValidationGroup="val-desk" runat="server" Display="Dynamic" SetFocusOnError="false" ErrorMessage="The Customer-ID is not valid." ValidationExpression="[0-9]{4,10}"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="check_UserName_regex" ErrorMessage="The Username don't meet the requirements. Try again." ControlToValidate="txt_Username" ValidationGroup="val-desk" runat="server" Display="Dynamic" SetFocusOnError="false" ForeColor="Red" ValidationExpression="([a-zA-Z1-9]{4,30})"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email_2" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ForeColor="Red" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@(\bverag.ag\b)" Display="Dynamic" SetFocusOnError="true" style="font-size:1em" ForeColor="Red"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email_2" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ForeColor="Red" ErrorMessage="Die Zeichenfolge stimmt nicht mit den Kriterien einer E-Mail überein" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail" runat="server" ID="regexval_txt_Email" ValidationGroup="val-desk" ValidationExpression="[\w\.]{0,2}\@(\bverag.ag\b)" Display="Dynamic" SetFocusOnError="true" style="font-size:1em" ErrorMessage="Die Zeichenfolge stimmt nicht mit den Kriterien der Domäne überein" ForeColor="Red"></asp:RegularExpressionValidator>
|
||||
</td></tr>
|
||||
</table>
|
||||
</div>
|
||||
@@ -338,23 +338,23 @@
|
||||
<tr style="color:#003680;height:40px;">
|
||||
<td align="left" colspan="2">
|
||||
<asp:TextBox ID="txt_CustomerID_M" CssClass="bg-UID-icon" runat="server" required="true" ValidationGroup="val-mobil" Width="325" Placeholder="Customer-ID" Font-Size="2.025em" style="margin:0 21px auto 22px;border-radius: 8px 8px 8px 8px;-webkit-border-radius: 8px;-moz-border-radius: 8px;"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="CustomerID_M_required" runat="server" ControlToValidate="txt_CustomerID_M" SetFocusOnError="true" ForeColor="Red" Font-Size="24px" style="margin-left:22px;" ValidationGroup="val-mobil" ErrorMessage=""></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="CustomerID_M_required" runat="server" ControlToValidate="txt_CustomerID_M" SetFocusOnError="true" ForeColor="Red" Font-Size="24px" style="margin-left:22px;" ValidationGroup="val-mobil" ErrorMessage="Die Kundenummer muss angegeben werden!"></asp:RequiredFieldValidator>
|
||||
</td></tr>
|
||||
<tr style="color:#003680; height:40px;">
|
||||
<td align="left" colspan="2">
|
||||
<asp:TextBox ID="txtEmail_M" runat="server" Width="325px" ValidationGroup="val-mobil" Font-Size="2.025em" Placeholder="E-Mail" CssClass="bg-email-icon" style="margin-left:25px;color:#003680;margin-bottom:60px;border-radius: 8px 8px 8px 8px;-webkit-border-radius: 8px;-moz-border-radius: 8px;"/>
|
||||
<asp:RequiredFieldValidator ID="valreqtxtEmail_M" SetFocusOnError="true" ControlToValidate="txtEmail_M" ValidationGroup="val-mobil" runat="server" Text="" ></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="valreqtxtEmail_M" SetFocusOnError="true" ControlToValidate="txtEmail_M" ValidationGroup="val-mobil" runat="server" Text="" ErrorMessage="Die E-mail muss angegeben werden!" ></asp:RequiredFieldValidator>
|
||||
</td></tr>
|
||||
<tr style="color:#003680; height:40px;">
|
||||
<td align="left" colspan="2">
|
||||
<asp:TextBox ID="txt_Username_M" runat="server" CssClass="bg-user-icon" ValidationGroup="val-mobil" Placeholder="Username" Font-Size="2.025em" Width="325px" style="margin-left:25px;color:#003680;border-radius: 8px 8px 8px 8px;-webkit-border-radius: 8px;-moz-border-radius: 8px;" OnClick="this.value='';" />
|
||||
<asp:RequiredFieldValidator ID="valreqtxtusername_M" ForeColor="Red" ControlToValidate="txt_Username_M" ValidationGroup="val-mobil" runat="server" Text="" ErrorMessage="" SetFocusOnError="true"></asp:RequiredFieldValidator>
|
||||
<asp:RequiredFieldValidator ID="valreqtxtusername_M" ForeColor="Red" ControlToValidate="txt_Username_M" ValidationGroup="val-mobil" runat="server" Text="" ErrorMessage="*" SetFocusOnError="true"></asp:RequiredFieldValidator>
|
||||
</td></tr>
|
||||
<tr style="color:#003680; height:50px;">
|
||||
<td align="right" colspan="2">
|
||||
<asp:Label ID="lblMessage_M" Font-Size="24px" runat="server" />
|
||||
<asp:RegularExpressionValidator ID="valid_getNumber_M_Input" ControlToValidate="txt_CustomerID_M" ValidationGroup="val-mobil" ForeColor="Red" Font-Size="24px" runat="server" style="margin-left:22px;" Display="Dynamic" SetFocusOnError="false" ValidationExpression="[0-9]{4,10}" ErrorMessage="The Customer-ID is not valid."></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail_M" ForeColor="Red" Font-Size="24px" runat="server" ID="regexval_2_txt_Email_M" ValidationGroup="val-mobil" ValidationExpression="[\w\.]+\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ErrorMessage="Plase enter an correct e-mail" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail_M" ForeColor="Red" Font-Size="24px" runat="server" ID="regexval_2_txt_Email_M" ValidationGroup="val-mobil" ValidationExpression="[\w\.]+\@[\w]+(?:\.[\w]{3}|\.[\w]{2}\.[\w]{2}|\.[\w]{2})\b" Display="Dynamic" ErrorMessage="Die Zeichenfolge stimmt nicht mit den Kriterien einer E-Mail überein" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ControlToValidate="txtEmail_M" ForeColor="Red" Font-Size="24px" runat="server" ID="regexval_txt_Email_M" ValidationGroup="val-mobil" ValidationExpression="[a-zA-Z]{2}\@(\bverag.ag\b)" Display="Dynamic" ErrorMessage="" SetFocusOnError="true"></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="check_UserName_regex_M" ForeColor="Red" Font-Size="24px" ErrorMessage="Try again. The Username don't meet the rquirements." ControlToValidate="txt_Username_M" ValidationGroup="val-mobil" runat="server" Display="Dynamic" SetFocusOnError="true" ValidationExpression="^([a-zA-Z1-9]{4,30})$"></asp:RegularExpressionValidator>
|
||||
</td></tr>
|
||||
|
||||
Reference in New Issue
Block a user