如何显示在线人数?(送分)

chinalinx 2003-12-14 07:08:55

老江湖们帮刚出道的小弟我一个忙吧,给个代码?

在此谢过!

...全文

127 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

purpleyl 2003-12-15

打赏
举报

去论坛里找了

redstorm11 2003-12-15

打赏
举报

楼上ok

swich 2003-12-15

打赏
举报

可以用session实现

troopers 2003-12-15

打赏
举报

<HTML><HEAD><TITLE>Untitled Document</TITLE>
<meta HTTP-EQUIV=REFRESH CONTENT=60;URL=list.asp>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="oa.css" rel=stylesheet>

<SCRIPT language=javascript>
function OpenSmallWindows(strURL)
{
window.open (strURL,"_blank",
"status=no,resizable=0,toolbar=no,menubar=no,scrollbars=no,top=20,left=60,width=400,height=350");
}
</SCRIPT>
<% nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)+right("0"+cstr(hour(nowtime)),2)+right("0"+cstr(minute(nowtime)),2)

Set rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from asp_username where id="&Session("Uid")
rs.open strSql,Conn,3,3
rs("Utime")=shijian
'rs("状态")=0
rs.update
rs.close
set rs=nothing
Conn.execute"update asp_username set zhuangtai=0 where Utime<"&shijian&"-3"
Conn.execute"update asp_username set zhuangtai=1 where Utime>"&shijian&"-2"
strsql_zx="select * from asp_username where zhuangtai=1 and shenghe=1 ORDER BY yonghuming, id DESC"
set my_rs_zx=server.createobject("adodb.recordset")
my_rs_zx.open strsql_ZX,conn,1,1
zaixian=0
do while not (my_rs_zx.eof or my_rs_zx.bof)
my_rs_zx.movenext
zaixian=zaixian+1
loop
strsql_lx="select * from asp_username where zhuangtai=0 and shenghe=1 ORDER BY yonghuming, id DESC"
set my_rs_lx=server.createobject("adodb.recordset")
my_rs_lx.open strsql_lX,conn,1,1
lixian=0
do while not (my_rs_lx.eof or my_rs_lx.bof)
my_rs_lx.movenext
lixian=lixian+1
loop

%>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY bgColor=#276db2 leftMargin=0 topMargin=5 marginheight="0" marginwidth="0">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=100>
<TBODY>
<TR align=middle>
<TD><FONT color=#ffffff>在线人员列表</FONT></TD></TR>
<%strSql="select * from asp_username where zhuangtai=1 and shenghe=1 ORDER BY yonghuming, id DESC"
set my_rs=server.createobject("adodb.recordset")
my_rs.open strsql,conn,1,1%>
<TR align=middle>
<TD height=5></TD></TR>
<TR align=middle>
<FORM action="" method=post name=form1>
<TD><SELECT multiple name=list
ondblclick=Javascript:OpenSmallWindows(this.form.list.options[this.form.list.selectedIndex].value)
size=25 style="BACKGROUND-COLOR: #f9f9f9; FONT-SIZE: 9pt; WIDTH: 100px">
<OPTION>----在线<%=zaixian%>人----</OPTION>
<%do while not (my_rs.eof or my_rs.bof)%>
<OPTION
value="show.asp?receiveuser=<%=my_rs("xingming")%>&id=<%=my_rs("id")%>"><%=my_rs("xingming")%></OPTION>
<%my_rs.movenext
loop%>

<OPTION>----离线<%=lixian%>人----</OPTION>
<%strsql_lx2="select * from asp_username where zhuangtai=0 and shenghe=1 ORDER BY yonghuming, id DESC"
set my_rs_lx2=server.createobject("adodb.recordset")
my_rs_lx2.open strsql_lx2,conn,1,3
%>
<%do while not (my_rs_lx2.eof or my_rs_lx2.bof)%>

<OPTION
value="show.asp?receiveuser=<%=my_rs_lx2("xingming")%>&id=<%=my_rs_lx2("id")%>"><%=my_rs_lx2("xingming")%></OPTION>
<%my_rs_lx2.movenext
loop

%>

</SELECT>
</TD></FORM></TR></TBODY></TABLE>
</BODY></HTML>
数据库里建表的时候。写一个在线不在线的字段。定时刷新页面。用户登陆时写一个session。从数据库里读出有session的记录。即在线的人。然后。更新记录。利用时间差。更新数据库里的记录。

WUNEN 2003-12-15

打赏
举报

在线人数应该用SESSION()实现，即在一个用户进入时将SESSION()加1，而退出时将其减1，而application()则是总共访问的人数

iamdan 2003-12-15

打赏
举报

采用聊天室的办法，X秒后网页自动刷新，将自己的IP告诉全局变量，全局变量在一定时间内显示IP。就知道多少人在线了。

liwb 2003-12-14

打赏
举报

function application_onstart
application("count")=0
end function
function session_onstart
application("count")=application("count")+1
end function
function session_onend
application("count")=application("count")-1
end function

dx 2003-12-14