ASP程序中同一个用户不允许同时登陆两次

登陆页lo***.asp:

<%
if re***st.Form.count>0 then
session("username")=request("username")
application(session("username"))=s***ion.SessionID
re***nse.Redirect("in***.asp")
end if
%>

其他需要认证的页面in***.asp:

<%
if application(session("username"))=s***ion.SessionID then
re***nse.Write("已经登陆")
else
re***nse.Write("没有登陆")
end if
%>