<% call setconn() set rs=server.CreateObject("adodb.recordset") rs.open "select staytime from onlineuser where id='" & session.sessionID & "'",conn,1,3 rs("staytime")=now() '更新当前在线用户的在线时间 rs.update rs.close 'rs.open "delete from onlineuser where datediff('s',staytime,now())>60",conn,1,3 '删除超过60秒没发送状态的用户 set rs=nothing conn.close set conn = nothing %>