请问一下各位，怎么判断当前在线人数？当前在线人数分两种：1未注册用户，已注册用户，谢谢咯！

这个 我也想过 。可是人走的时候怎么办？

那我就这样写你觉得怎么样。我直接写个思路，你帮我看一下可以不？呵呵，谢谢咯
查询last_time Last_time=rs("last_time")出来用 Time=now()求时间距：
d=Cint(Time-last_time)
if d(d,20) then
  Call Del(id) '调用删除函数
end if
'判断时间间距函数
Funciont d(d,Maxd)
  dim flag:flag=true
  if d>Maxd then
    flag=true
 else
  flag=false
 end if
  d=flag
end Function
'删除函数
sub  Del(id)
  '函数体略
end sub

还有个问题就是没有登陆的怎么办？

这样写也可以啊？<#"&DateAdd(n,-20,now())&"#"
5555555555555555555555555555555，偶菜！

我知道了，不过还要考虑很多，不止你的那几点