64 lines
1.9 KiB
Plaintext
64 lines
1.9 KiB
Plaintext
<%@Language="VBScript"%>
|
|
<!--#include file = "text.asp"-->
|
|
<!--#include file = "ui.asp"-->
|
|
<%
|
|
On Error goto 0
|
|
If Request.Form("cancel") <> "" Then
|
|
Response.Redirect(Request.QueryString)
|
|
Response.End
|
|
End If
|
|
|
|
Dim domain, username, posbs, posat
|
|
username = Request.Form("acct")
|
|
If username <> "" Then
|
|
username = Server.HTMLEncode(username)
|
|
Else
|
|
username = Server.HTMLEncode(Request.ServerVariables("REMOTE_USER"))
|
|
End If
|
|
|
|
domain = Request.Form("domain")
|
|
If domain <> "" Then
|
|
domain = Server.HTMLEncode(domain)
|
|
Else
|
|
posbs = Instr(1, username, "\\")
|
|
posat = Instr(1, username, "@")
|
|
If posbs > 0 Then
|
|
domain = Left(username, posbs - 1)
|
|
username = Right(username, len(username) - posbs)
|
|
ElseIf posat > 0 Then
|
|
domain = Right(username, len(username) - posat)
|
|
username = Left(username, posat - 1)
|
|
Else
|
|
Set nw = Server.CreateObject("WScript.Network")
|
|
domain = nw.UserDomain
|
|
End If
|
|
End If
|
|
|
|
Call RenderPageStart("Kennwort aendern", "Bitte gib dein aktuelles Kennwort und das neue Kennwort ein.")
|
|
%>
|
|
<form method="POST" action="/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
|
<div class="grid">
|
|
<label for="domain"><%=L_Domain_Text%></label>
|
|
<input id="domain" type="text" name="domain" value="<%=domain%>">
|
|
|
|
<label for="acct"><%=L_Account_Text%></label>
|
|
<input id="acct" type="text" name="acct" value="<%=username%>">
|
|
|
|
<label for="old"><%=L_OldPassword_Text%></label>
|
|
<input id="old" type="password" name="old" value="">
|
|
|
|
<label for="new"><%=L_NewPassword_Text%></label>
|
|
<input id="new" type="password" name="new" value="">
|
|
|
|
<label for="new2"><%=L_Confirm_Text%></label>
|
|
<input id="new2" type="password" name="new2" value="">
|
|
</div>
|
|
|
|
<div class="actions">
|
|
<input type="submit" value="<%=L_OK_Text%>">
|
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
|
<input type="reset" value="<%=L_Reset_Text%>">
|
|
</div>
|
|
</form>
|
|
<% Call RenderPageEnd() %>
|