📄 main_down.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:
💻 ASP
字号:
<%
RefreshTime = 20        

Dim Temp()

If Session("UserName") = "" Then
  Response.Write "User 参数没有设定 !!"
  Response.End
End If

NewUser = Session("UserName")

Application.Lock

If Application(NewUser & "LastAccess") = Empty Then
  If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
  Redim Temp(Application("TotalUsers") + 1)
  No = 0
  For I = 0 To Application("TotalUsers") - 1
    Item = Application("OnLineUser")(I)
    If Item <> Session("UserName1") And Item <> NewUser Then
      Temp(No) = Item
      No = No + 1
    Else
      Application(Item & "LastAccess") = Empty
    End If
  Next
  Session("UserName1") = NewUser
  Temp(No) = Session("UserName1")
  Application("TotalUsers") = No + 1
  Redim Preserve Temp(Application("TotalUsers"))
  Application("OnLineUser") = Temp
End If

Application(NewUser & "LastAccess") = Timer

If RefreshTime < 10 Then RefreshTime = 10
IdleTime = RefreshTime * 3

ReDim Temp(Application("TotalUsers"))
No = 0
For I = 0 To Application("TotalUsers") - 1
  Item = Application("OnLineUser")(I)
  If Abs(Application(Item & "LastAccess") - Timer) < IdleTime Then
    Temp(No) = Item
    No = No + 1
  Else
    Application(Item & "LastAccess") = Empty
  End If
Next

If No <> Application("TotalUsers") Then
  Redim Preserve Temp(No)
  Application("OnLineUser") = Temp
  Application("TotalUsers") = No
End If

OnLineUser = Application("OnLineUser")
TotalUsers = Application("TotalUsers")

Application.UnLock
%>
<html>
<head>
<base target="contents">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="Refresh" CONTENT="<%=RefreshTime%>, URL=<%=Request.ServerVariables("PATH_INFO")%>?User=<%=Request("User")%>">
<style fprolloverstyle>A:hover {color: #D06450}
.hr {
	border-top-width: 2px;
	border-top-style: solid;
	border-top-color: #666666;
	border-right-color: #666666;
	border-bottom-color: #666666;
	border-left-color: #666666;
}
</style>
<link rel="stylesheet" href="other/customer.css">
<script language="JavaScript" fptype="dynamicanimation">
<!--
function dynAnimation() {}
function clickSwapImg() {}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language="JavaScript1.2" fptype="dynamicanimation" src="animate.js">
</script>
<style type="text/css">
<!--
.td1000 {
	border-top-width: 1px;
	border-top-style: solid;
	border-top-color: #000000;
	border-right-color: #000000;
	border-bottom-color: #000000;
	border-left-color: #000000;
}
.help {
	cursor: help;
}
-->
</style>
</head>

<body bgcolor="#F3F3F3" link="#000000" vlink="#000000" alink="#000000" onload="dynAnimation();MM_preloadImages('images/zy1.gif')" onmouseover="self.status='晨景软体 创造辉煌！　[www.chenjing.com]';return true" >
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
  <tr> 
    <td width="25%" class="td1000">&nbsp;</td>
    <td width="23%" class="td1000"><font face="Arial, Helvetica, sans-serif"><strong> 　</strong><span class="small">现在共有&nbsp; 
      <%=TotalUsers%>&nbsp;人在线</span></font></td>
    <td width="11%" valign="middle" class="td1000"> <p align="right"><a href="zkbang/index.htm" target="_blank" class="small"><img src="images/help.gif" alt="" width="60" height="16" border="0" class="help"></a></td>
    <td width="11%" class="td1000"> <div align="right"><a href="main_calse.asp" target="_parent" class="small"><img src="images/loginout.gif" width="60" height="16" border="0"></a></div></td>
    <td width="13%" class="td1000"> <p align="right" class="small"><img src="images/system.gif" width="90" height="16"></td>
    <td width="2%" class="td1000">&nbsp;</td>
    <td class="td1000"><font size="2" face="Arial, Helvetica, sans-serif"  class="big"><%=session("username")%></font></td>  </tr>
</table>

</body>

</html>


<html><script language="JavaScript">                                                                  </script></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -