home.asp 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. <!--#include file="Inc/common.asp"-->
  2. <!--#include file="Inc/MD5.asp"-->
  3. <!--#include file="Inc/Function.asp"-->
  4. <!--#include file="Admin_Common.asp"-->
  5. <%
  6. Dim uid, rsRole, isAdmin
  7. uid = trim(request("uid"))
  8. if trim(Lcase(AdminName)) = "admin" then
  9. isAdmin = true
  10. else
  11. isAdmin = false
  12. end if
  13. %>
  14. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  15. <html xmlns="http://www.w3.org/1999/xhtml">
  16. <head>
  17. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  18. <title><%=systemPageTitle%></title>
  19. <link href="bs2010.css" rel="stylesheet" type="text/css" />
  20. <script type="text/javascript" src="js/share.js"></script>
  21. <script type="text/javascript" src="js/prototype.js"></script>
  22. <script language="javascript">
  23. function GetData()
  24. {
  25. url="alarm.asp";//调用页面
  26. var xmlhttp=null;
  27. if(window.XMLHttpRequest)
  28. {
  29. xmlhttp=new XMLHttpRequest();
  30. }
  31. if(!xmlhttp&&window.ActiveXObject)
  32. {
  33. try
  34. {
  35. xmlhttp=new ActiveXObject("Msxml2.XMLHTTP.5.0")
  36. }
  37. catch(e)
  38. {
  39. try
  40. {
  41. xmlhttp=new ActiveXObject("Msxml2.XMLHTTP.4.0")
  42. }
  43. catch(e){
  44. try
  45. {
  46. new ActiveXObject("Msxml2.XMLHTTP")
  47. }
  48. catch(e)
  49. {
  50. try{
  51. new ActiveXObject("Microsoft.XMLHTTP")
  52. }catch(e)
  53. {
  54. }
  55. }
  56. }
  57. }
  58. }
  59. if(!xmlhttp){alert("XMLHTTP不可用,请升级安装。");location="support/msxml.msi"}
  60. xmlhttp.open("GET",url,false);
  61. xmlhttp.send();
  62. var str = xmlhttp.responseText;
  63. document.getElementById("loadcontent").innerHTML=str;
  64. setTimeout("GetData()",<%=refreshRate%>);
  65. }
  66. </script>
  67. </head>
  68. <body onLoad="javascript:GetData();">
  69. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  70. <tr>
  71. <td class="mainbg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  72. <tr>
  73. <td valign="top">
  74. <div id="loadcontent">
  75. <p></p>
  76. 数据载入中……</div></td>
  77. </tr>
  78. </table></td>
  79. </tr>
  80. <tr>
  81. <td align="center"><p><img src="images/welcome.jpg" border="0" /></p>
  82. </td>
  83. </tr>
  84. <tr>
  85. <td>&nbsp;</td>
  86. </tr>
  87. </table>
  88. </body>
  89. </html>
  90. <%
  91. Call CloseConn
  92. %>