WEB系统判断同一用户两个地方登陆

登陆时写入
<%
rszt("ssid")=Session.SessionID'数据库写入Session.SessionID防止用户多次登陆
Session("ssid")=Session.SessionID '真对每个客户端登陆时都有一个sessionID与之相对应
'写入IP及登陆用户的信息
%>
刷新检查
<%
set rs=server.CreateObject("ADODB.RecordSet") 
rs.Open "Select * from OA_YGDQZT Where ygbh=" & Session("uYGBH") ,conn,3,2     
 if not rs.EOF then
  'response.write rs("ssid")&"--"&session("ssid")
  strIP=rs("UserIP")
   if rs("ssid")<>Session("ssid") then'判断用户是否在其他地方登陆是则退出
   response.write "<script language='javascript'>"
   response.write "alert('此帐号在 "&strIP&" 上登陆，您已被迫退出。\n         如有问题,请于管理员联系!');"
   response.write "window.parent.close();"
   response.write "</script>"
   end if
 end if
rs.Close  
%>