使用数据库判断在线名单以及在线人数

电脑维修第一互动门户_www.PC106.com

为了方便您再次访问电脑维修站，请点击收藏本站！

设为首页

维修： CPU·主板·硬盘·内存·显卡·显示器·键盘鼠标·声卡音箱·软驱光驱·打印机·机箱电源·BIOS·网卡·局域网·浏览器

您现在的位置：电脑维修 >> 网站技术 >> ASP技术 >> ASP技巧 >> 网站技术正文

使用数据库判断在线名单以及在线人数

作者：佚名文章来源：不详点击数：更新时间：2007-2-14 14:57:56

'*********使用数据库判断在线名单以及在线人数
'*********系统支持：asp+Access,在Windows2000+iis5上测试通过

'*********login.asp*********

<％@LANGUAGE="VBSCRIPT"％>
<％'ON ERROR RESUME NEXT％>

.
.
.
'登录判断，略
.
.
'登录成功
session("Name")=rs("M_Name")
rs.Close
strSQL="Update B_MEMBER Set M_IsOnLine=yes,M_LastTime=now() Where M_Name='"+strName+"'"
rs.Open strSQL,myconn
response.redirect"xxx.asp"
SET RS=NOTHING
MYCONN.CLOSE
SET MYCONN=NOTHING
％>

'*********refresh.asp*******
<％@LANGUAGE="VBSCRIPT"％>
<％'ON ERROR RESUME NEXT％>

<html>
<head>
<meta http-equiv="refresh" content="60,url=refresh.asp">
</head>
.
.
.
'设置5分钟未动作的id为offline,rers1为前面打开的连接，读取id。
set rers2=Server.CreateObject("ADODB.RECORDSET")
For ipage= 1 to onlinenum
    if minute(now)-minute(rers1("M_LastTime"))>5 or minute(now)-minute(rers1("M_LastTime"))<0 then
        reSQL="Update B_MEMBER Set M_IsOnLine=no Where M_ID="&rers1("M_ID")
        rers2.Open reSQL,myconn
    end if
    rers1.MoveNext
if rers1.EOF then exit for
next
myconn.close
SET MYCONN=NOTHING
％>

'*************main.asp，主文件中判断关闭，防止直接关闭浏览器产生错误

<body ONUNLOAD="javascript:window.open ('close.asp', 'newwindow', 'height=20, width=20, top=0, left=0, toolbar=no, menubar=no, scrollbars=no,resizable=no,location=no, status=no')" >

'*************close.asp,同上**********

<％@LANGUAGE=VBSCRIPT％>

<％ON ERROR RESUME NEXT
SET RSCLO=SERVER.CreateObject("ADODB.RECORDSET")
STRCLO="UPDATE B_MEMBER SET M_ISONLINE=NO,M_ATAREA='不在线' WHERE M_NAME='"&SESSION("NAME")&"'"
RSCLO.Open STRCLO,MYCONN
RSCLO.Close
MYCONN.CLOSE
SET RSCLOSE=NOTHING
SET MYCONN=NOTHING
Response.Write err.description
％>
<script language="JavaScript">

window.close();

</script>

基本就是这样。

上网速度更快更爽、更安全下载使用Firefox火狐浏览器

网站技术录入：admin 责任编辑：admin

上一篇网站技术：一个用组件动态创建Excel文件的实例

下一篇网站技术：一篇关于客户端用ASP+rds+VBA参生报表的好东东（高级篇）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】