当前位置: 首页 > 图文教程 > 网络编程 > ASP > 无刷新随时取得用户当前活动信息

ASP
asp生成三维饼图的函数
ASP下的简洁的多重查询的方法与函数 真不错
发一个ASP的ADODB类代码
A利用ASP小偷和Google实现在线翻译功能的代码
ASP类型网站结合动网论坛会员的方法
Asp下实现多表单域无组件文件上传的实例
asp制作中常用到的函数库集合
易心asp分页类 v1.0
asp中xmlhttp组件发包
检测是否为数字类型的asp代码
可以获得文件的文件名的asp函数
用asp实现访问远程计算机上MDB access数据库文件的方法
用ASP实现写IIS日志的代码
asp在IE浏览器中下载服务端上的各类文件的实现方法
asp汉字中文图片验证码的实现代码
asp WAP获取手机终端信息的一段代码
asp取得数组中的最大值的方法
用asp实现的截取指定格式字符串的代码
asp jmail发邮件 详细解析
ASP编程中连接数据库和数据库操作的常用代码

ASP 中的 无刷新随时取得用户当前活动信息


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 213 ::
收藏到网摘: n/a

 

最终显示是这样的:

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

显示的BOTTOM.HTM文件

<SCRIPT language=JavaScript>
<!--
function bar()
{

    var oXMLDoc = new ActiveXObject('MSXML');             //创建'MSXML'对象

    sURL = "loginxml.asp"      //获取登陆状态数据的地址

    oXMLDoc.url = sURL;     //load数据

    var oRoot=oXMLDoc.root;     //获取返回xml数据的根节点
    if(oRoot.children != null) 

    {    

                    
              //根据返回的数据在客户端显示

              user.innerHTML=oRoot.children.item(0).text;       //用户

              myclock.innerHTML=oRoot.children.item(1).text;       //时间

              stay.innerHTML=oRoot.children.item(2).text;    //停留

              free.innerHTML=oRoot.children.item(3).text;    //空闲

              qx.innerHTML=oRoot.children.item(4).text; //权限
             

    }
       if (oRoot.children.item(5).text>1800)  //空闲时间超过30分钟则自动转到退出登陆页面
         window.parent.location="/user/logoff.asp?id=1";


              timeoutid = setTimeout("bar()",1000)      //没1秒取得一次数据,}
//-->
</SCRIPT>

用户:<font color="#FF0000"><span id=user></span></font> 权限:<font color="#FF0000"><span id=qx></span></font>  时间[<span id=myclock></span>] 停留[<span id=stay></span>] 空闲[<span id=free></span>]


提供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
%>
<?xml version="1.0" encoding="gb2312" ?>

<plan>

       <user><%=username%></user>

       <date><%=us%></date>

       <active><%=stay%></active>

       <free><%=free%></free>
      
       <qx><%call qx(qxdm)%></qx>
    &nbs