79 lines
2.4 KiB
VB.net
79 lines
2.4 KiB
VB.net
|
|
Partial Class login_ChangePW
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs)
|
|
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)
|
|
regexval_txt_Pw_WH.Validate()
|
|
confirmPasswordReq.Validate()
|
|
If confirmPasswordReq.IsValid Then
|
|
btn_submitpw.Enabled = True
|
|
Else
|
|
btn_submitpw.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
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(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
|
|
|
|
End Try
|
|
End If
|
|
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
|
|
End Class
|