<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
'
' 產(chǎn)品名稱：臺(tái)訊企業(yè)全站管理系統(tǒng)（V2006簡(jiǎn)體中文版）
' 版權(quán)所有：何陳（Http://www.txcodes.com）
' 程序開(kāi)發(fā)：HECHEN（QQ：34103037）
' 聯(lián)系方式：電話：0553-5843519　　Emial：hechenn@126.com
' Copyright 2006 txcodes.com - All Rights Reserved. 
'
'***********************************************************************************

PageName="Login,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
IF Action="Login_Adminlogin_addnowgotofdfdfdfd" THEN
Admin=checkfSQLStr(trim(request.form("Admin")))
PassWord=checkfSQLStr(trim(request.form("PassWord")))
IF Session("Loginuser")="" THEN
Log_Result1=1 
Else
Log_Result1=0
End IF
IF Admin="" THEN
Log_Result2=1 
Else
Log_Result2=0
End IF
IF PassWord="" THEN
Log_Result3=1 
Else
Log_Result3=0
End IF
IF cstr(Session("GetCode"))<>cstr(trim(request.form("VerifyCode"))) THEN
Log_Result4=1 
Else
Log_Result4=0
End IF
Log_Result5=0
Log_Result6=0
Log_Result7=0
    IF Session("Loginuser")="" THEN
	    error_title="請(qǐng)先在前臺(tái)登陸！"
        founderr=True
    ElseIF Admin="" THEN
	    error_title="請(qǐng)輸入用戶名稱！"
        founderr=True
	ElseIF PassWord="" THEN
	    error_title="請(qǐng)輸入用戶密碼！"
        founderr=True
    ElseIF cstr(Session("GetCode"))<>cstr(trim(request.form("VerifyCode"))) THEN
	    error_title="請(qǐng)輸入正確的驗(yàn)證碼！"
        founderr=True
    End IF
    IF founderr=True THEN
	    Call Login_Log()
	    Call Page_check(3,0)
    Else
	
	Set Rs_Tx=server.createobject("adodb.recordset")
	Sql="select * from Tx_Admin where Admin_Name='" & cstr(Admin) & "'" 
	Rs_Tx.Open Sql,Conn,1,3
		IF Rs_Tx("Admin_Username")<>Session("Loginuser") THEN
			Log_Result7=1
		Else
			Log_Result7=0
		End IF
		IF Rs_Tx.Recordcount=0 THEN
			Log_Result5=1
		Else
			Log_Result5=0
		End IF
		IF Rs_Tx("Admin_Pass")<>Md5(PassWord) THEN
			Log_Result6=1
		Else
			Log_Result6=0
		End IF
		IF Rs_Tx("Admin_Username")<>Session("Loginuser") THEN
		    error_title="用戶名不匹配！"
     	   founderr=True
		ElseIf Rs_Tx.Recordcount=0 THEN
		    error_title="此用戶名不存在，請(qǐng)重新輸入！"
 	       founderr=True
 	    ElseIF Rs_Tx("Admin_Pass")<>Md5(PassWord) THEN
		    error_title="用戶密碼不正確，請(qǐng)重新輸入！"
	        founderr=True
		End IF
 	    IF founderr=True THEN
		    Call Login_Log()
            Call Page_check(3,0)
 	    Else
		    Call Login_Log()
            Rs_Tx("Admin_Old_Ip")=Rs_Tx("Admin_Login_Ip")
            Rs_Tx("Admin_Old_Date")=Rs_Tx("Admin_Login_Date")
            Rs_Tx("Admin_Login_Date")=Now()
            Rs_Tx("Admin_Login_Count")=Rs_Tx("Admin_Login_Count")+1
            Rs_Tx("Admin_Login_Ip")=VisitorsIp
            Rs_Tx.UpDate
            Session("Loginadmin")=Admin
            Session("Loginflag")=Rs_Tx("Admin_Flag")
            Session("Logindate")=Rs_Tx("Admin_Login_Date")
            Session("Logincount")=Rs_Tx("Admin_Login_Count")
            Session("Loginip")=Rs_Tx("Admin_Login_Ip")
            Session.Timeout=int(Web_Const(10))
            Rs_Tx.Close
            set Rs_Tx=Nothing
            Response.redirect "A_Index.asp"
        End IF
	Rs_Tx.Close
	set Rs_Tx=Nothing
	End IF
End IF
	IF Action="Login_Userlogin_addnowgotofdfdfdfd" THEN
        Username=checkfSQLStr(trim(request.form("R_User")))
        Userpass=checkfSQLStr(trim(request.form("R_Pass")))
        IF Username="" THEN
            error_title="對(duì)不起，請(qǐng)輸入用戶名！"
            founderr=True
        ElseIF Userpass="" THEN
            error_title="對(duì)不起，請(qǐng)輸入登陸密碼！"
            founderr=True
        ElseIF int(Web_Login(1))=1 THEN
            IF cstr(session("GetCode"))<>request.form("VerifyCode") THEN
                error_title="對(duì)不起，驗(yàn)證碼輸入不正確！"
                founderr=True
            End IF
        End IF
        IF founderr=True THEN
            Call Page_check(3,0)
        Else
            Set Rs=server.createobject("adodb.recordset")
            Sql="Select * from Tx_User where User_Name='" & Username & "'"
            Rs.open Sql,Conn,1,3
                IF Rs.Recordcount=0 THEN
                    error_title="對(duì)不起，登陸失敗（可能無(wú)此用戶或被管理鎖定）！"
                    founderr=True
                ElseIF Rs("User_Passwd")<>Md5(Userpass) THEN
                    error_title="對(duì)不起，登陸失敗（密碼不正確）！"
                    founderr=True
                ElseIF Rs("User_Flag")=0 THEN
                    error_title="對(duì)不起，登陸失敗（可能未通過(guò)審核或被管理員鎖定）！"
                    founderr=True
                End IF
                IF founderr=True THEN
                    Call Page_check(3,0)
                Else
                    Rs("User_OldLoginDate")=Rs("User_LoginDate")
                    Rs("User_OldLoginIp")=Rs("User_LoginIp")
                    Rs("User_LoginDate")=Now()
                    Rs("User_LoginIp")=VisitorsIp
                    Rs("User_LoginCount")=Rs("User_LoginCount")+1
                    Rs.UpDate
                    Logincount=Rs("User_LoginCount")
                    session("Loginuser")=Username
                    session("Logincount")=Logincount
                    session.Timeout=20
                    Rs.close
                    set Rs=Nothing
                    ToHistory=VisitorsForm
                    Response.redirect ToHistory
                End IF
            Rs.close
            set Rs=Nothing
            End IF
        End IF
Call CloseConn()
%>