Sub Session_OnStart
Session.Timeout=30 'Session的过期时间
Session("StartTime") = Now()
End Sub
Sub Session_OnEnd
'首先到数据库里提取标记,看该用户是否为手动退出,若是则跳过
'若用户不是通过logout.asp退出的,那么
ss = DateDiff("m",Session("StartTime"),Now()) '得到用户在线的时间分钟
'将这个得出的在线时间减去Session的过期时间得到真实在线时间
'Session系统默认的过期时间为20分钟
'将这个得到的真实时间入库
End Sub