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-11 15:56:13 +02:00
parent 7ab4ac218d
commit 60e09f77ec
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
login/ForgotPW.aspx
View File

@@ -108,13 +108,13 @@
<asp:Label ID="lbl_Email" runat="server" Text="Email Address:" CssClass="txt_design2"></asp:Label>
</td>
<td align="left" colspan="2">
<asp:TextBox ID="txtEmail" runat="server" Width = "207" Font-Size="1.125em" OnTextChanged="txtEmail_TextChanged" style="margin-left:-4px"/>
<asp:TextBox ID="txtEmail" runat="server" Width = "207" Font-Size="1.125em" OnTextChanged="txtEmail_TextChanged" style="margin-left:-4px"/>
<asp:RegularExpressionValidator ID="regexval_txt_Email" ControlToValidate="txtEmail" runat="server" ValidationExpression="<%=regexemail %>" Display="Dynamic"></asp:RegularExpressionValidator>
</td></tr>
<tr style="color:#003680; height:30px;">
<td align="left" colspan="2">
<asp:Label ID="lbl_Username" runat="server" Text="Username:" CssClass="txt_design2"></asp:Label>
</td>
<asp:Label ID="lbl_Username" runat="server" Text="Username:" CssClass="txt_design2"></asp:Label>
</td>
<td align="left" colspan="2">
<asp:TextBox ID="txt_Username" runat="server" Width = "207" Font-Size="1.125em" style="margin-left:-4px" />
</td></tr>

4
login/ForgotPW.aspx.vb
View File

@@ -115,7 +115,7 @@ Partial Class login_ForgotPW
Dim ServPort As String = ""
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
ServPort = Request.ServerVariables("SERVER_PORT")
ServPort = ":" + Request.ServerVariables("SERVER_PORT")
pagename = Request.ServerVariables("SCRIPT_NAME")
ElseIf HttpContext.Current.Request.ServerVariables("SERVER_NAME") = Not "localhost" Then
getdomianenvironment = HttpContext.Current.Request.ServerVariables("SERVER_NAME")
@@ -126,7 +126,7 @@ Partial Class login_ForgotPW
MsgBox("/" + ServPort + Request.ServerVariables("URL"))
Dim mailto As String = email
Dim Betreff As String = "Passwort reset"
Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Bitte dem Link zum Zurücksetzen des Passwortes folgen:<br /><br /><br />.<br />" + Environment.NewLine + "<a runat=" + "server" + " href=http://" + getdomianenvironment + ":" + ServPort + "/login/ChangePW.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(tokenname) + ">Link</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
Dim htmlbody = String.Format("Sehr geehrte/r {0},<br /><br /> Bitte dem Link zum Zurücksetzen des Passwortes folgen:<br /><br /><br />.<br />" + Environment.NewLine + "<a runat=" + "server" + " href=http://" + getdomianenvironment + ServPort + "/login/ChangePW.aspx?Par1=" + VERAG_PROG_ALLGEMEIN.cCryptography.Encrypt(tokenname) + ">Link</a>" + Environment.NewLine + "<br />Mit freundlichen Grüßen,", username, password)
Try
Dim tokennametemp = genToken(username, password, email)
'Dim Strtemp = Session.Keys.Item("urltochangepw")