islogin.asp

1。超强文件读写锁定

<script>
if(self==top){
location.href="index.asp";

}
</script>
<%Set mRs=Server.CreateObject("Adodb.RecordSet")
Set mRs=Conn.Execute("Select Login_Pwd,stat,Is_Login,sess_ID From m_member Where Login_Name='"&session("sk2user")&"' Order By ID Desc")

If mRs("Is_Login") then
 if mRs("sess_ID")<>session.SessionID Then
          Set mRs=Nothing
		 'session("sk2user")=""
		  Response.Write ("<script Language=Javascript>alert('Sorry...些帐号已在别的电脑登入，系统将强迫登出!!!请二分钟后再试.....');top.document.location='index.asp';")
	     Response.End
		 end if
		End If
if session("SK2user")=""  then
response.redirect "index.asp"
response.End()
end if
'set M_rs=server.CreateObject("adodb.recordset")
' M_sql="select Login_Name,Login_IP from m_Member where Login_Name='"&session("SK2user")&"' and Login_IP='"&session("Me_ip")&"'"
' M_rs.open M_sql,conn,1,1
' if M_rs.recordcount=0 then
'  response.write("<script>alert('Sorry...些帐号已在别的电脑登入，系统将强迫登出!!!请二分钟后再试.....');top.document.location='index.asp';")
'response.end
'set M_rs=nothing

 %>