Create Version 1.0

aexp4b.asp

@@ -0,0 +1,63 @@
+<%@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() %>