用户登陆的问题，有没有比较好的解决办法

现在写的程序，用户登陆有了一点问题，当时为了限制一个ID在有一个人登陆的情况下，就不允许再在其他的地方登陆，所以，我用下面的代码控制了，但问题来了，在正常情况下退出之后再立即登陆没问题，直接关掉IE也可以在一分钟之后登陆系统，但是，一旦IE死掉，用任务管理器直接关掉线程，就释放不掉原来登陆的的信息，不重启电脑是登陆不了的，不知道大家有没有什么办法解决，我贴出那段检测登陆的代码：

代码:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">


Sub Application_OnStart
   
   Redim useronline(0)
   useronline(0) =""

  application("online") =useronline


End Sub




Sub Session_OnStart

  Session.Timeout =1

End Sub




Sub Session_OnEnd()

               userreg =session("logininfo")
			   
                
                application.lock

                 useronline =application("online")

                  for i =0 to ubound(useronline)

                    if useronline(i) <>"" then
                       if useronline(i) =userreg(0,1) then useronline(i) =""
					end if

                  next

                 application("online") =useronline
  
               application.unlock
End Sub


Sub Application_OnEnd

      application.lock

       application("online") =""

      application.unlock


End Sub

</SCRIPT>