统计 当前 在线用户 时间间隔

<!----建立数据库start
  Create Table Online
  (
  id varchar (25),--session.sessionid
  online int default(0), --0为访客,1为会员
  lasttime datetime,--最近活动时间
  username varchar (25),--会员用户名
  ip varchar (15),--访问者IP
  )
--建立数据库End-->

<%

'//////////////////////////////////////////////////在线用户操作start///////////////////////////////////////////////////////////////
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip= Request.ServerVariables("REMOTE_ADDR")

set rs=Server.CreateObject("ADODB.Recordset")
If session("username")="" Then
 sql="select * from online where id='"&session.sessionid&"'"
 rs.Open sql,Conn,1,3
 If rs.eof Then rs.addnew
 rs("online")=0
Else
 sql="select * from online where id='" & session.sessionID & "'"
 rs.Open sql,Conn,1,3
 If rs.eof Then rs.addnew
 rs("online")=1
End If

 rs("id")=session.sessionID
 rs("username")=session("username")
 rs("ip")=userip
 rs("lasttime")=now()
 rs.update
conn.execute("delete from online where datedIff(n,lasttime,getdate())>10")
'//////////////////////////////////////////////////在线用户操作End///////////////////////////////////////////////////////////////
%>