<object runat=server scope=application id=onlineusername progid="scripting.dictionary">
</object>
<script language=vbscript runat=server>
Sub Session_Onstart
Session("flag")=0
Session.timeout=1
End Sub
Sub Session_OnEnd
onlineusername.remove session("loginame")
application("usernumber")=application("username")-1
End Sub
</script>
**********************************
对超时的人用这种方法去掉