online.asp

21世纪人才www.51zy.net 网站源码

<%
if session("username")="" then
	response.cookies("qdego")("lastrefresh")=now()
end if	

response.cookies("qdego")("lastrefresh")=now()'记录最后刷新时间

	if session("username")="" then 	 
		 session("username")="true"		 
		 sql="select * from online where id is null" 
		 set rs=server.createobject("adodb.recordset")
		 rs.open sql,conn,1,3
		 rs.addnew
		 rs("username")="true"
		 rs("dltime")=now()
		 rs("lastactive")=now()
		 rs("sessionid")=session.sessionID
		 rs.update
		 set rs=nothing
	else 
		 if session("username")="true" then		 	
		 	sql="update online set lastactive=now() where sessionid=" & clng(session.sessionid)
			conn.execute(sql)		 	
		 end if
	end if	
				


    sql="select * from online " 
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	count=rs.recordcount
	response.write count
	set rs=nothing

	sql="delete * from online where datediff('n',lastactive,now())>" & cint(maxonlinetime)
	conn.execute(sql)'过期处理
%>