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

Änderungen

Browse Source
This commit is contained in:
ja
2021-10-13 09:05:54 +02:00
parent e757e71702
commit ac10d449dc
2 changed files with 12 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
login/ForgotPW.aspx
View File

@@ -105,8 +105,9 @@
</td></tr> --> </td></tr> -->
<tr style="color:#003680; height:30px;"> <tr style="color:#003680; height:30px;">
<td align="left" colspan="2"> <td align="left" colspan="2">
<asp:TextBox ID="txtEmail" runat="server" Width="250px" Font-Size="1.125em" OnTextChanged="txtEmail_TextChanged" Text="E-Mail" CssClass="bg-email-icon" style="margin-left:22px;color:#003680" OnClick="this.value='';"/> <asp:TextBox ID="txtEmail" runat="server" Width="250px" ValidationGroup="Valtxtemail" Font-Size="1.125em" Text="E-Mail" CssClass="bg-email-icon" style="margin-left:22px;color:#003680" OnClick="this.value='';"/>
<asp:RegularExpressionValidator ID="regexval_txt_Email" ControlToValidate="txtEmail" runat="server" ValidationExpression="<%=regexemail %>" Display="Dynamic"></asp:RegularExpressionValidator> <asp:RegularExpressionValidator ID="regexval_txt_Email" ControlToValidate="txtEmail" runat="server" ValidationExpression="<%=regexemail %>" Display="Dynamic"></asp:RegularExpressionValidator>
<asp:RequiredFieldValidator ID="valreqtxtEmail" ControlToValidate="txtEmail" ValidationGroup="Valtxtemail" runat="server" Text="Require E-Mail Address" ></asp:RequiredFieldValidator>
</td></tr> </td></tr>
<tr style="color:#003680; height:30px;"> <tr style="color:#003680; height:30px;">
<td align="left" colspan="2"> <td align="left" colspan="2">

23
login/ForgotPW.aspx.vb
View File

@@ -14,16 +14,16 @@ Partial Class login_ForgotPW
Protected Sub btn_Send_Click(sender As Object, e As EventArgs) Protected Sub btn_Send_Click(sender As Object, e As EventArgs)
Dim username As String Dim username As String
Dim password As String = String.Empty Dim password As String
Dim email As String Dim email As String
Dim tokenname As String = String.Empty Dim tokenname As String
Try valreqtxtEmail.Validate()
If valreqtxtEmail.IsValid() = True Then
username = txt_Username.Text username = txt_Username.Text
password = String.Empty
email = txtEmail.Text email = txtEmail.Text
Catch Excep As Exception tokenname = String.Empty
MsgBox("Error05: " + Excep.Message) End If
End Try
'cDBFunctions.GetNewOpenConnection() 'cDBFunctions.GetNewOpenConnection()
Dim ConnectionString = String.Empty Dim ConnectionString = String.Empty
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
@@ -47,7 +47,7 @@ Partial Class login_ForgotPW
username = dr("Username").ToString() username = dr("Username").ToString()
password = dr("Password").ToString() password = dr("Password").ToString()
Try Try
email = txtEmail.Text regexval_txt_Email.Validate()
Catch ex As Exception Catch ex As Exception
Dim Msg, Style, Title As String Dim Msg, Style, Title As String
Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!" Msg = "E-mail Prüfung fehlgeschlagen!" & vbCrLf + "Bitte erneut versuchen!"
@@ -69,7 +69,8 @@ Partial Class login_ForgotPW
'password = RandomString(New Random, 10) 'password = RandomString(New Random, 10)
If (getDateoftoken(tokenname) = True) Then If (getDateoftoken(tokenname) = True) Then
Dim msgboxstyle = vbDefaultButton1 + vbOK Dim msgboxstyle = vbDefaultButton1 + vbOK
MsgBox(tokenname, msgboxstyle) 'MsgBox(tokenname, msgboxstyle)
MsgBox("Token erfolgreich generiert.")
Else Else
MsgBox("token nicht mehr Gültig! Neuer wird generiert!") MsgBox("token nicht mehr Gültig! Neuer wird generiert!")
tokenname = genToken(username, password, email) tokenname = genToken(username, password, email)
@@ -186,8 +187,4 @@ Partial Class login_ForgotPW
Return True Return True
End If End If
End Function End Function
Protected Sub txtEmail_TextChanged(sender As Object, e As EventArgs)
regexval_txt_Email.ValidateRequestMode = UI.ValidateRequestMode.Enabled
End Sub
End Class End Class