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.

93 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. %>
  18. <!-- Windows NT Server with IIS -->
  19. <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "IIS") > 0 then%>
  20. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  21. <TR VALIGN=CENTER>
  22. <TD></TD>
  23. <TD WIDTH=20> </TD>
  24. <TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_IIS6_Text%><FONT></B></FONT></TD>
  25. </TR>
  26. </Table>
  27. <%end if%>
  28. <!-- Windows NT Workstation with PWS -->
  29. <%if Instr(1,Request.ServerVariables("SERVER_SOFTWARE"), "PWS") then%>
  30. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
  31. <TR VALIGN=CENTER>
  32. <TD></TD>
  33. <TD WIDTH=20> </TD>
  34. <TD><FONT SIZE=+3 COLOR=#000000><B><%=L_ISM_Text%><BR> <FONT SIZE=-1><%=L_PWS_Text%><FONT></B></FONT></TD>
  35. </TR>
  36. </Table>
  37. <%end if%>
  38. <p>
  39. <form method="POST" action="https://<%=Server.HTMLEncode(Request.ServerVariables("SERVER_NAME"))%>/iisadmpwd/achg.asp?<%=Server.HTMLEncode(Request.QueryString)%>">
  40. <table>
  41. <tr>
  42. <td><%=L_Domain_Text%></td><td><input type="text" name="domain" value="
  43. <%if Request.Form("domain") <> "" then %>
  44. <%=Server.HTMLEncode(Request.Form("domain"))%>
  45. <%else%>
  46. <%
  47. Set objNet = Server.CreateObject("WScript.Network")
  48. Response.Write objNet.UserDomain
  49. %>
  50. <%end if%>"></td>
  51. </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>