无刷新随时取得当前服务器时间用户登陆时间，在线时间，空闲时间并自动退出的例子

 

最终显示是这样的：

用户： billy 权限： 管理员 时间[ 2004年1月21日 20:54:08] 停留[ 0小时0分钟] 空闲[ 0分钟12秒]

显示的BOTTOM.HTM文件

用户： 权限：  时间[] 停留[] 空闲[]

提供XML数据的ASP页面 LOGINXML.ASP

<%
username=session("userName")
qxdm=session("qxdm")
set rs = server.createobject("adodb.recordset")
    rs.source = "select * from userlogin  where username='"&username&"'"
    rs.open rs.source,conn,1,1
    logindate=rs("logindate")
    active=rs("active")
    rs.close
    stay=DateDIff("s",logindate,now())
    off=DateDIff("s",active,now())
    stay=stay/60
    stay=Int(stay/60)&"小时"&Int(stay mod 60)&"分钟"
    free=Int(off/60)&"分钟"&Int(off mod 60)&"秒"
    us=DatePart("yyyy",date)&"年"&DatePart("m",date)&"月"&DatePart("d",date)&"日 "&time
%>

       <%=username%>

       <%=us%>

       <%=stay%>

       <%=free%>
      
       <%call qx(qxdm)%>
      
       <%=off%>

本来觉得这样会占用很多的资源，但是实际应用时觉得一切正常