Änderungen GUI und Logik der Validierungen
This commit is contained in:
ja
@@ -169,7 +169,7 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:15.67px;">
|
||||
<td>
|
||||
<asp:Button ID="btn_submitpw" runat="server" Text="Change the password!" OnClick="btn_submitpw_Click" Width="250px" style="margin-left:46px;border:none"/>
|
||||
<asp:Button ID="btn_submitpw" runat="server" Text="Change the password!" Width="250px" style="margin-left:46px;border:none"/>
|
||||
</td>
|
||||
</tr>
|
||||
<tr style="color:#003680;height:10px;">
|
||||
@@ -197,7 +197,7 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:36.67px;">
|
||||
<td>
|
||||
<asp:TextBox id="txt_Pw_M" CssClass="bg-key-icon" runat="server" Font-Size="1.125em" ValidationGroup="TXT_val_M" TextMode="Password" Width="245px" Font-Names="Verdana" OnTextChanged="txt_Pw_TextChanged" AutoCompleteType="Disabled" style="margin-left:22px;color:#003680" Placeholder="Enter Password"></asp:TextBox>
|
||||
<asp:TextBox id="txt_Pw_M" CssClass="bg-key-icon" runat="server" Font-Size="1.125em" ValidationGroup="TXT_val_M" TextMode="Password" Width="245px" Font-Names="Verdana" OnTextChanged="txt_Pw_M_TextChanged" AutoCompleteType="Disabled" style="margin-left:22px;color:#003680" Placeholder="Enter Password"></asp:TextBox>
|
||||
<span></span></td>
|
||||
<td>
|
||||
<asp:ImageButton ID="Image1_M" runat="server" ImageUrl="~/images/Icons/service/hilfe.png" Height="22px" Width="19px" style="margin-left:12px"/>
|
||||
@@ -210,7 +210,7 @@
|
||||
</tr>
|
||||
<tr style="color:#003680;height:36.67px;">
|
||||
<td>
|
||||
<asp:TextBox id="txt_Pw_WH_M" CssClass="bg-key-icon" Width="245px" Font-Size="1.125em" ValidationGroup="TXT_val_WH_M" OnTextChanged="txt_Pw_WH_TextChanged" runat="server" TextMode="Password" Font-Names="Verdana" AutoCompleteType="Disabled" style="margin-left:22px;color:#003680;border-radius: 8px 8px 8px 8px;-webkit-border-radius: 8px;-moz-border-radius: 8px;" Placeholder="Repeat Password"></asp:TextBox>
|
||||
<asp:TextBox id="txt_Pw_WH_M" CssClass="bg-key-icon" Width="245px" Font-Size="1.125em" ValidationGroup="TXT_val_WH_M" OnTextChanged="txt_Pw_WH_M_TextChanged" runat="server" TextMode="Password" Font-Names="Verdana" AutoCompleteType="Disabled" style="margin-left:22px;color:#003680;border-radius: 8px 8px 8px 8px;-webkit-border-radius: 8px;-moz-border-radius: 8px;" Placeholder="Repeat Password"></asp:TextBox>
|
||||
<span></span></td>
|
||||
<td>
|
||||
<asp:ImageButton ID="Image2_M" runat="server" ImageUrl="~/images/Icons/service/hilfe.png" Height="22px" Width="19px" style="margin-left:12px;border:none;margin-top:15px" />
|
||||
|
||||
@@ -33,7 +33,7 @@ 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.cCryptography.Decrypt(Request.QueryString("Par2")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") = Not Nothing And VERAG_PROG_ALLGEMEIN.cCryptography2.Decrypt(Request.QueryString("Par2")) = Not Nothing) Then
|
||||
If VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par2")) = Not Nothing AndAlso VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par3") = Not Nothing) Then
|
||||
If getDateoftoken(VERAG_PROG_ALLGEMEIN.cCryptography.Decrypt(Request.QueryString("Par1"))) = True Then
|
||||
Try
|
||||
txt_Pw_WH.Enabled = True
|
||||
@@ -67,7 +67,6 @@ Partial Class login_Change_PW
|
||||
End Using
|
||||
con.Close()
|
||||
End Using
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_WH_TextChanged(sender As Object, e As EventArgs)
|
||||
@@ -76,131 +75,12 @@ Partial Class login_Change_PW
|
||||
If confirmPasswordReq.IsValid Then
|
||||
btn_submitpw.Enabled = True
|
||||
Else
|
||||
btn_submitpw.Enabled = False
|
||||
lbl_messagetext.ForeColor = Drawing.Color.Red
|
||||
lbl_messagetext.Text = "Passwort stimmt nicht überein."
|
||||
'btn_submitpw.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs) Handles btn_submitpw.Click
|
||||
Dim tempstr As String = ""
|
||||
Dim Msg, Style, Title As String
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
|
||||
If reqPasswtxt.IsValid And reqPassw1txt.IsValid Then
|
||||
tempstr = txt_Pw.Text
|
||||
End If
|
||||
ElseIf String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
reqPasswtxt.Enabled = False
|
||||
reqPassw1txt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = True
|
||||
reqPassw1txt_M.Enabled = True
|
||||
reqPasswtxt_M.Validate()
|
||||
reqPassw1txt_M.Validate()
|
||||
|
||||
If reqPasswtxt_M.IsValid And reqPassw1txt_M.IsValid Then
|
||||
tempstr = txt_Pw_M.Text
|
||||
End If
|
||||
Else
|
||||
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
|
||||
Try
|
||||
Dim 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 Password=@Password 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
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
Msg = "PW erfolgreich geändert!"
|
||||
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
||||
Title = "Information"
|
||||
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 txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso String.IsNullOrEmpty(txt_Pw.Text) = True And String.IsNullOrEmpty(txt_Pw_M.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 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 Password=@Password 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
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
|
||||
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)
|
||||
regexval_txt_Pw.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
|
||||
|
||||
' End Try
|
||||
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
|
||||
@@ -244,4 +124,146 @@ Partial Class login_Change_PW
|
||||
Protected Sub Image1_M_Click(sender As Object, e As ImageClickEventArgs)
|
||||
MsgBox("")
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_submitpw_Click(sender As Object, e As EventArgs)
|
||||
Dim tempstr As String = ""
|
||||
Dim Msg, Style, Title As String
|
||||
|
||||
If String.IsNullOrEmpty(txt_Pw.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = False
|
||||
reqPasswtxt.Enabled = True
|
||||
reqPassw1txt.Enabled = True
|
||||
reqPasswtxt.Validate()
|
||||
reqPassw1txt.Validate()
|
||||
|
||||
If reqPasswtxt.IsValid And reqPassw1txt.IsValid Then
|
||||
tempstr = txt_Pw.Text
|
||||
End If
|
||||
ElseIf String.IsNullOrEmpty(txt_Pw.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_WH.Text) = True AndAlso String.IsNullOrEmpty(txt_Pw_M.Text) = Not True AndAlso String.IsNullOrEmpty(txt_Pw_WH_M.Text) = Not True Then
|
||||
reqPasswtxt.Enabled = False
|
||||
reqPassw1txt_M.Enabled = False
|
||||
reqPasswtxt_M.Enabled = True
|
||||
reqPassw1txt_M.Enabled = True
|
||||
reqPasswtxt_M.Validate()
|
||||
reqPassw1txt_M.Validate()
|
||||
|
||||
If reqPasswtxt_M.IsValid And reqPassw1txt_M.IsValid Then
|
||||
tempstr = txt_Pw_M.Text
|
||||
End If
|
||||
Else
|
||||
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
|
||||
Try
|
||||
Dim 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()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
Msg = "PW erfolgreich geändert!"
|
||||
Style = vbOKOnly + vbInformation + vbDefaultButton1
|
||||
Title = "Information"
|
||||
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 txt_Pw_M.Text = tempstr And txt_Pw_WH_M.Text = tempstr AndAlso String.IsNullOrEmpty(txt_Pw.Text) = True And String.IsNullOrEmpty(txt_Pw_M.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 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()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
lbl_messagetext.Text = ex.Message
|
||||
End Try
|
||||
|
||||
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)
|
||||
regexval_txt_Pw.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
|
||||
|
||||
' End Try
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_M_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw_M.Validate()
|
||||
If regexval_txt_Pw_M.IsValid Then
|
||||
txt_Pw_WH_M.ReadOnly = False
|
||||
regexval_txt_Pw_WH_M.Enabled = True
|
||||
Else
|
||||
txt_Pw_WH_M.ReadOnly = True
|
||||
regexval_txt_Pw_WH_M.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub txt_Pw_WH_M_TextChanged(sender As Object, e As EventArgs)
|
||||
regexval_txt_Pw_WH_M.Validate()
|
||||
confirmPasswordReq_M.Validate()
|
||||
If confirmPasswordReq_M.IsValid Then
|
||||
btn_submitpw_M.Enabled = True
|
||||
Else
|
||||
lbl_messagetext_M.ForeColor = Drawing.Color.Red
|
||||
lbl_messagetext_M.Text = "Passwort stimmt nicht überein."
|
||||
'btn_submitpw.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user