PW ändern Logik funktioniert. DB Anbindung fehlt noch,
This commit is contained in:
@@ -19,6 +19,11 @@
|
||||
border-color: forestgreen;
|
||||
color: black;
|
||||
}
|
||||
#txt_Pw:invalid + span::before {
|
||||
content: '✖';
|
||||
color: red;
|
||||
}
|
||||
|
||||
#txt_Pw:invalid {
|
||||
background-color: indianred;
|
||||
border-color: red;
|
||||
@@ -29,6 +34,10 @@
|
||||
border-color: forestgreen;
|
||||
color: black;
|
||||
}
|
||||
#txt_Pw:invalid + span::before {
|
||||
content: '✖';
|
||||
color: red;
|
||||
}
|
||||
#tbl_main {
|
||||
font-family: Arial;
|
||||
font-size: 11px;
|
||||
|
||||
@@ -85,6 +85,7 @@
|
||||
<tr style="color:#003680;height:36.67px;">
|
||||
<td colspan="4">
|
||||
<asp:TextBox id="txt_Pw" runat="server" TextMode="Password" Font-Names="Verdana" OnTextChanged="txt_Pw_TextChanged"></asp:TextBox>
|
||||
<span></span>
|
||||
</td>
|
||||
<tr style="color:#003680;height:38.67px;">
|
||||
<td colspan="4">
|
||||
@@ -104,7 +105,8 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:36.67px;">
|
||||
<td>
|
||||
<asp:TextBox id="txt_Pw_WH" OnTextChanged="txt_Pw_WH_TextChanged" AutoPostBack="true" runat="server" TextMode="Password" Font-Names="Verdana"></asp:TextBox>
|
||||
<asp:TextBox id="txt_Pw_WH" OnTextChanged="txt_Pw_WH_TextChanged" runat="server" TextMode="Password" Font-Names="Verdana"></asp:TextBox>
|
||||
<span></span>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:min-content;">
|
||||
|
||||
@@ -6,6 +6,10 @@ Partial Class login_ChangePW
|
||||
btn_submitpw.Enabled = False
|
||||
txt_Pw_WH.Enabled = False
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
If IsPostBack Then
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
||||
@@ -20,9 +24,41 @@ Partial Class login_ChangePW
|
||||
|
||||
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
|
||||
Dim tempstr As String = ""
|
||||
|
||||
Dim Msg, Style, Title, Help, Ctxt, MsgResponse, MyString
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
If confirmPasswordReq.IsValid = True Then
|
||||
tempstr = txt_Pw.Text
|
||||
Else
|
||||
tempstr = "Error01"
|
||||
End If
|
||||
If txt_Pw.Text = tempstr Then
|
||||
Msg = "PW erfolgreich geändert!"
|
||||
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
||||
Title = "Information"
|
||||
MsgBox(Msg, Style, Title)
|
||||
|
||||
If MsgBox(Msg, Style, Title).Ok Then
|
||||
Response.Redirect("login_FLEX.aspx")
|
||||
End If
|
||||
ElseIf tempstr = "Error01" Then
|
||||
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("ChangePW.aspx")
|
||||
ElseIf MsgBox(Msg, Style, Title).Abort Then
|
||||
Response.Redirect("../newPageJulius_Sidebar.aspx")
|
||||
ElseIf MsgBox(Msg, Style, Title).Ignore Then
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -31,14 +67,12 @@ Partial Class login_ChangePW
|
||||
|
||||
If regexval_txt_Pw.IsValid Then
|
||||
txt_Pw_WH.ReadOnly = False
|
||||
txt_Pw_WH.Enabled = True
|
||||
regexval_txt_Pw_WH.Enabled = True
|
||||
MsgBox("PW erfolgreich geändert!")
|
||||
|
||||
|
||||
Else
|
||||
txt_Pw_WH.ReadOnly = True
|
||||
txt_Pw_WH.Enabled = False
|
||||
regexval_txt_Pw_WH.Enabled = False
|
||||
MsgBox("PW nicht erfolgreich geändert!")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -173,4 +173,3 @@
|
||||
</script>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
||||
Reference in New Issue
Block a user