online.asp

使用asp

<!--#include file=../include/conn.asp-->
<%
sessionID = session.SessionID'自动编号的ID
timeout=5
deltime=Dateadd("n",-20,now())'取出当前时间前20分钟的时间
sqldel="delete from k_useronline where onlinetime<'"&deltime&"'"
conn.execute sqldel
sql1="select onlinesess from k_useronline where onlinesess='"&sessionID&"'"
set rssel=server.createobject("adodb.recordset")'conn.execute 取文本型值功能较弱
rssel.open sql1,conn,1,1
if rssel.eof then
sql2="insert into k_useronline(onlinesess) values('"&sessionID&"')"
conn.execute sql2
end if
rssel.close
set rssel=nothing

sql3="select count(*) newc from k_useronline "
set rsonlinecount=server.createobject("adodb.recordset")
rsonlinecount.open sql3,conn,1,1
newcount=rsonlinecount("newc")'newc为别名也可加上where来取满足条件的值
rsonlinecount.close
set rsonlinecount=nothing

set rsonlinetime=server.createobject("adodb.recordset")
rsonlinetime.open "k_useronline",conn,1,1
while not rsonlinetime.eof
onlinetime=rsonlinetime("onlinetime")
job=clng(DateDiff("n",onlinetime,now()))'当前时间和取出时间的分钟差
if job>timeout then'分钟差超5分钟总数减1
newcount=newcount-1
end if
rsonlinetime.movenext
wend
rsonlinetime.close
set rsonlinetime=nothing
conn.close
set conn=nothing

%>
document.write('<%=newcount%>')