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.

147 lines
5.0 KiB

  1. <%@ Language=VBScript %>
  2. <% '==================================================
  3. ' Microsoft Server Appliance
  4. '
  5. ' Server Restarting Dialog
  6. '
  7. ' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.
  8. '================================================== %>
  9. <% Option Explicit %>
  10. <!-- #include file="sh_page.asp" -->
  11. <%
  12. Dim strServerName
  13. Dim strRsrcDLL
  14. Dim strMsgID
  15. Dim strInitWaitTime
  16. DIm strWaitTime
  17. On Error Resume Next
  18. Dim m_imageURL
  19. m_imageURL = "//"
  20. m_imageURL = m_imageURL & Request.ServerVariables("SERVER_NAME")
  21. m_imageURL = m_imageURL & m_VirtualRoot
  22. m_imageURL = m_imageURL & "images/back_button.gif?R="
  23. Dim m_adminPageURL
  24. m_adminPageURL = "//"
  25. m_adminPageURL = m_adminPageURL & Request.ServerVariables("SERVER_NAME")
  26. m_adminPageURL = m_adminPageURL & m_VirtualRoot
  27. m_adminPageURL = m_adminPageURL & "default.asp?R="
  28. strRsrcDLL = Request.QueryString("Resrc")
  29. strMsgID = "&H" & Request.QueryString("ID")
  30. strInitWaitTime = Request.QueryString("T1")
  31. strWaitTime = Request.QueryString("T2")
  32. Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
  33. strSourceName = "sakitmsg.dll"
  34. if Err.number <> 0 then
  35. Response.Write "Error in localizing the web content "
  36. Response.End
  37. end if
  38. '-----------------------------------------------------
  39. 'START of localization content
  40. Dim L_ALERTLBL_TEXT
  41. Dim L_ALERT_NOTREADY
  42. Dim L_ALERT_RESTARTING
  43. L_ALERTLBL_TEXT = objLocMgr.GetString(strSourceName, "&H40010019",varReplacementStrings)
  44. L_ALERT_NOTREADY = objLocMgr.GetString(strSourceName, "&H4001001A",varReplacementStrings)
  45. L_ALERT_RESTARTING = objLocMgr.GetString(strRsrcDLL, strMsgID, varReplacementStrings)
  46. 'End of localization content
  47. '-----------------------------------------------------
  48. strServerName = Request.ServerVariables("SERVER_NAME")
  49. %>
  50. <html>
  51. <head>
  52. <!-- Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved-->
  53. <meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
  54. <title>&nbsp;</title>
  55. <link rel="STYLESHEET" type="text/css" href="sh_page.css">
  56. <script language=JavaScript src="sh_page.js"></script>
  57. <SCRIPT LANGUAGE=javascript>
  58. var intTestCount = 0;
  59. var intFirstCheckDelay = <%=strInitWaitTime%>; // delays in milliseconds
  60. var intSubsequentCheckDelay = <%=strWaitTime%>;
  61. var imgTest;
  62. window.defaultStatus='';
  63. imgTest = new Image();
  64. function CheckServer()
  65. {
  66. // Tests state of a hidden image, imgTest
  67. // and reloads it if it's not loaded.
  68. // currently does this forever and doesn't check
  69. // the iteration count stored in intTestCount.
  70. intTestCount += 1;
  71. if (imgTest.complete == false)
  72. {
  73. GetImage();
  74. window.setTimeout("CheckServer()", intSubsequentCheckDelay);
  75. }
  76. else
  77. {
  78. //
  79. // Delay to allow backend framework to startup. Otherwise
  80. // alerts are not shown when admin page is first made visible
  81. //
  82. setTimeout("ShowAdminPage()", 60000)
  83. }
  84. }
  85. function ShowAdminPage()
  86. {
  87. window.location=top.location.protocol+"<%=m_adminPageURL%>" + Math.random();
  88. }
  89. function GetImage()
  90. {
  91. imgTest.src = top.location.protocol+"<%=m_imageURL%>" + Math.random();
  92. }
  93. </SCRIPT>
  94. </head>
  95. <body marginWidth="0" marginHeight="0" oncontextmenu="return false;" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" class="AREAPAGEBODY">
  96. <table border="0" width="100%" cellspacing="0" cellpadding=2>
  97. <TR><TD height=26 bgcolor=#000000>&nbsp;</TD></TR>
  98. <TR><TD height=8 bgcolor=#CCCCFF>&nbsp;</TD></TR>
  99. </table>
  100. <% ServeAreaLabelBar(L_ALERTLBL_TEXT) %>
  101. <SCRIPT LANGUAGE=javascript>
  102. window.setTimeout("CheckServer()",intFirstCheckDelay);
  103. </SCRIPT>
  104. <table border="0" height="80%" width="100%" cellspacing="0" cellpadding="2">
  105. <tr>
  106. <td width="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
  107. <td width="100%"><span class="AreaText">
  108. <P ID=ParaID_0><strong><%=L_ALERT_NOTREADY%></strong></P>
  109. <P ID=ParaID_1><%=L_ALERT_RESTARTING%></P></span>
  110. </td>
  111. </tr>
  112. <TR>
  113. <td width="35">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
  114. <td align=right><img src="<%=m_VirtualRoot%>util/images/critical_water.gif"></td>
  115. </tr>
  116. </table>
  117. <table width="100%">
  118. <TR><TD height=25 width=100% bgcolor=#000000><img src="<%=m_VirtualRoot%>images/oem_logo.gif"></TD></TR>
  119. </table>
  120. </body>
  121. </html>