c_login.asp

整站源码jsp 有兴趣的可以看看

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
'
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 版权所有：Http://www.csys.com.cn
'
'***********************************************************************************

PageName="Login,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.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="请先在前台登陆！"
        founderr=True
    ElseIF Admin="" THEN
	    error_title="请输入用户名称！"
        founderr=True
	ElseIF PassWord="" THEN
	    error_title="请输入用户密码！"
        founderr=True
    ElseIF cstr(Session("GetCode"))<>cstr(trim(request.form("VerifyCode"))) THEN
	    error_title="请输入正确的验证码！"
        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 CS_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="此用户名不存在，请重新输入！"
 	       founderr=True
 	    ElseIF Rs_Tx("Admin_Pass")<>Md5(PassWord) THEN
		    error_title="用户密码不正确，请重新输入！"
	        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="对不起，请输入用户名！"
            founderr=True
        ElseIF Userpass="" THEN
            error_title="对不起，请输入登陆密码！"
            founderr=True
        ElseIF int(Web_Login(1))=1 THEN
            IF cstr(session("GetCode"))<>request.form("VerifyCode") THEN
                error_title="对不起，验证码输入不正确！"
                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="对不起，登陆失败（可能无此用户或被管理锁定）！"
                    founderr=True
                ElseIF Rs("User_Passwd")<>Md5(Userpass) THEN
                    error_title="对不起，登陆失败（密码不正确）！"
                    founderr=True
                ElseIF Rs("User_Flag")=0 THEN
                    error_title="对不起，登陆失败（可能未通过审核或被管理员锁定）！"
                    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()
%>