Leaked source code of windows server 2003
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

  1. <%@Language="VBScript"%>
  2. <HTML>
  3. <!--#include file = "text.asp"-->
  4. <title><%=L_Title_Text%></title>
  5. <FONT COLOR=FFFFFF>
  6. <STYLE>
  7. </STYLE>
  8. </FONT>
  9. <head>
  10. <META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
  11. </head>
  12. <BODY BGCOLOR=#FFFFFF LINK=000000 VLINK=000000>
  13. <%On Error goto 0%>
  14. <%if Request.Form("cancel") <> "" then
  15. Response.Redirect(Request.QueryString)
  16. end if
  17. Response.End
  18. %>
  19. <!-- Windows NT Server with IIS -->
  20. <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
  21. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  22. <TR VALIGN=CENTER>
  23. <TD></TD>
  24. <TD WIDTH=20> </TD>
  25. <TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
  26. </TR>
  27. </Table>
  28. <%end if%>
  29. <!-- Windows NT Workstation with PWS -->
  30. <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
  31. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  32. <TR VALIGN=CENTER>
  33. <TD></TD>
  34. <TD WIDTH=20> </TD>
  35. <TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
  36. </TR>
  37. </Table>
  38. <%end if%>
  39. <p>
  40. <form method="POST" action="http://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
  41. <table>
  42. <tr>
  43. <td><%=L_Domain_Text%></td><td><input type="text" name="domain" value="
  44. <%if Request.Form("domain") <> "" then %>
  45. <%=Server.HTMLEncode(Request.Form("domain"))%>
  46. <%else%>
  47. <%
  48. Set objNet = Server.CreateObject("WScript.Network")
  49. Response.Write objNet.UserDomain
  50. %>
  51. <%end if%>"></td></tr>
  52. <tr>
  53. <td><%=L_Account_Text%></td><td><input type="text" name="acct" value="
  54. <%if Request.Form("acct") <> "" then%>
  55. <%=Server.HTMLEncode(Request.Form("acct"))%>
  56. <%else%>
  57. <%=Server.HTMLEncode(Right(Request.ServerVariables("REMOTE_USER"),len(Request.ServerVariables("REMOTE_USER")) - Instr(1,Request.ServerVariables("REMOTE_USER"),"")))%>
  58. <%end if%>"></td>
  59. </tr>
  60. <tr>
  61. <td><%=L_OldPassword_Text%></td><td><input type="password" name="old" value=""></td>
  62. </tr>
  63. <tr>
  64. <td><%=L_NewPassword_Text%></td><td><input type="password" name="new" value=""></td>
  65. </tr>
  66. <tr>
  67. <td><%=L_Confirm_Text%></td><td><input type="password" name="new2" value=""></td>
  68. </tr>
  69. </table>
  70. <p>
  71. <input type="submit" value="<%=L_OK_Text%>">
  72. <input type="submit" name="cancel" value="<%=L_Cancel_Text%>">
  73. <input type="reset" value="<%=L_Reset_Text%>">
  74. </form>
  75. </body>
  76. </html>