如何限制同一用户名同时登陆

Sql="select * from [Online] where SessionID='"& Session.Sessionid &"'". Sql="select * from [Online] where UserName='"& Session &"'". If rsPrv Session.SessionID And Application = False Then. InfoTo "LoginOut.asp","该帐户已在其他地方登陆，网站设置1个ID只能有1个登陆\n你可以稍候尝试登陆。Conn.ExeCute '删除x秒没有活动的访客