You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
2.5 KiB
90 lines
2.5 KiB
<%@Language="VBScript"%>
|
|
<HTML>
|
|
<!--#include file = "text.asp"-->
|
|
|
|
<title><%=L_Title_Text%></title>
|
|
|
|
<FONT COLOR=FFFFFF>
|
|
<STYLE>
|
|
</STYLE>
|
|
</FONT>
|
|
|
|
<head>
|
|
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
|
|
</head>
|
|
|
|
|
|
<BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
|
|
|
|
<%On Error goto 0%>
|
|
<%if Request.Form("cancel") <> "" then
|
|
Response.Redirect(Request.QueryString)
|
|
end if
|
|
Response.End
|
|
%>
|
|
|
|
<!-- Windows NT Server with IIS -->
|
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
|
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
|
<TR VALIGN=CENTER>
|
|
<TD></TD>
|
|
<TD WIDTH=20> </TD>
|
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
|
|
</TR>
|
|
</Table>
|
|
<%end if%>
|
|
|
|
<!-- Windows NT Workstation with PWS -->
|
|
<%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
|
|
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
|
|
<TR VALIGN=CENTER>
|
|
<TD></TD>
|
|
<TD WIDTH=20> </TD>
|
|
<TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
|
|
</TR>
|
|
</Table>
|
|
<%end if%>
|
|
|
|
<p>
|
|
|
|
<form method="POST" action="http://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
|
|
|
|
<table>
|
|
<tr>
|
|
<td><%=L_Domain_Text%></td><td><input type="text" name="domain" value="
|
|
<%if Request.Form("domain") <> "" then %>
|
|
<%=Server.HTMLEncode(Request.Form("domain"))%>
|
|
<%else%>
|
|
<%
|
|
Set objNet = Server.CreateObject("WScript.Network")
|
|
Response.Write objNet.UserDomain
|
|
%>
|
|
<%end if%>"></td></tr>
|
|
<tr>
|
|
<td><%=L_Account_Text%></td><td><input type="text" name="acct" value="
|
|
<%if Request.Form("acct") <> "" then%>
|
|
<%=Server.HTMLEncode(Request.Form("acct"))%>
|
|
<%else%>
|
|
<%=Server.HTMLEncode(Right(Request.ServerVariables("REMOTE_USER"),len(Request.ServerVariables("REMOTE_USER")) - Instr(1,Request.ServerVariables("REMOTE_USER"),"")))%>
|
|
<%end if%>"></td>
|
|
</tr>
|
|
<tr>
|
|
<td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
|
|
</tr>
|
|
<tr>
|
|
<td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
|
|
</tr>
|
|
<tr>
|
|
<td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
|
|
</tr>
|
|
</table>
|
|
|
|
<p>
|
|
|
|
<input type="submit" value="<%=L_OK_Text%>">
|
|
<input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
|
|
<input type="reset" value="<%=L_Reset_Text%>">
|
|
|
|
</form>
|
|
</body>
|
|
</html>
|