index_main.asp 2.0 KB

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