login.asp

1。超强文件读写锁定

<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<%

    If Not ChkPost Then
	  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	  Response.End
	End If

	If CheckStr(Request.Form("login_name"))="" Then
      Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	  Response.End
	End If

	If CheckStr(Request.Form("login_pwd"))="" Then
	  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	  Response.End
	End If	


   Dim UserName,Password
	  UserName=CheckStr(Request.Form("login_name"))
	  Password=CheckStr(Request.Form("login_pwd"))

	  
	 Dim mRs
	    Set mRs=Server.CreateObject("Adodb.RecordSet")
		Set mRs=Conn.Execute("Select Login_name,Login_Pwd,stat,Is_Login,Login_time,sess_ID From [m_member] Where Login_Name='"&UserName&"' Order By ID Desc")
		 if isdate(mRs("Login_time")) then
		if datediff("n",mRs("Login_time"),now())>1 then
		Set Rs6=Conn.Execute("update m_member set Is_Login=0,sess_ID='"&session.SessionID&"' Where Login_Name='"&UserName&"'")
		end if
		end if
		If mRs.Eof Then
		  Set mRs=Nothing
		  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	      Response.End
		End If
		If Not mRs("Login_Pwd")=Password Then
		  Set mRs=Nothing
		  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	      Response.End
		End If
		If Not mRs("Login_name")=UserName Then
		  Set mRs=Nothing
		  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	      Response.End
		End If

		If mRs("stat") Then
          Set mRs=Nothing
		  Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');history.go(-1)</script>")
	      Response.End
		End If
		If mRs("Is_Login") then
		Set mRs=Nothing
		'Set Rs6=Conn.Execute("update m_member set Is_Login=0 Where Login_Name='"&UserName&"'")
		'if sess_ID<>session.SessionID Then 
		Response.Write ("<script Language=Javascript>alert('Sorry...些帐号已在别的电脑登入，系统将强迫登出!!!请二分钟后再试.....');top.document.location='index.asp';</script>")
	      Response.End
		'end if
          
		' Set Rs6=Conn.Execute("update m_member set Is_Login=0 Where Login_Name='"&UserName&"'")
		 'response.Write mRs("Login_time")
		 
		End If
		Session("Sk2User")=UserName
		session("Me_ip")=request.ServerVariables("REMOTE_ADDR")
		Set mRs=Conn.Execute("update m_member set Is_Login=1,sess_ID='"&session.SessionID&"',Login_time='"&now()&"',Login_IP='"&request.ServerVariables("REMOTE_ADDR")&"' Where Login_Name='"&UserName&"'")
		'Session.Timeout=60
		Set mRs=Nothing
		Response.Redirect "chk_rule.asp"

%>