login.asp

通盈企业全站系统 v2.12

<!--#include file="Top.asp" -->
<!--#include file="Include/check.asp"-->
<% 
    response.expires = 0
    if request("Action")="ChkLogin" Or request("Action")="" then   
    UserName=Checkin(Request.form("UserName"))
    UserPassword=Checkin(Request.form("UserPassword"))
    UserPassword=Md5(UserPassword)
    CookieDate=Trim(request("CookieDate"))
    if UserName="" or UserPassword="" then Response.Redirect ("Index.asp")  
    set rs=server.createobject("adodb.recordset")
    sql="select * from "&Tyi86_DBTable&" where "&Tyi86_UserName&"='"&Username&"' and "&Tyi86_UserPassword&"='"&UserPassword&"'"
    rs.open sql,conn_user,3,3
    if not rs.EOF then 
	if rs("IsActive")=True then  
	rs(Tyi86_LoginNum)=rs(Tyi86_LoginNum)+1
	rs(Tyi86_LastLogin)=Now()
	rs(Tyi86_UserIP)=Request.ServerVariables("REMOTE_ADDR")
	rs.Update
    '写入系统COOKIES
    Call DealCookie_Tyi86_Sys()
    'Fin
	Tyi86_ToUrl=Request("Tyi86_ToUrl")
	If Tyi86_ToUrl<>"" Then  
	Response.Redirect (Tyi86_ToUrl)
	Else
	Response.Redirect ("index.asp")
	End If  
	else
		response.write"<script>alert('您还没有通过验证!\n管理员会尽快通过验证的！ ');location.replace('index.asp')</script>"	
	response.End()
	end if  
    else
	Response.write"<script>alert('请输入正确的用户名和密码！！ ');location.replace('index.asp')</script>"	
	Response.End 
    end if  
    rs.close
    set rs=nothing
    conn_user.close
    set conn_user=nothing
    end if 
    If request("Action")="LoginOut" then  
    Call ClearTyi86_SysCookie()
    Response.Redirect ("index.asp")
    End if  
    Sub DealCookie_Tyi86_Sys()
	Response.Cookies(Tyi86_Sys)("UserID")=rs(Tyi86_UserID)
	Response.Cookies(Tyi86_Sys)("Username")=rs(Tyi86_Username)
	Response.Cookies(Tyi86_Sys)("Grade") =rs("UserGrade")
	Response.Cookies(Tyi86_Sys)("Money")=rs(Tyi86_UserMoney)
	Response.Cookies(Tyi86_Sys)("UserEmail")=rs(Tyi86_UserEmail)
	If CookieDate="" Then  
	   CookieDate=0
	End If  
	Response.Cookies(Tyi86_Sys)("CookieDate") = CookieDate
	Select case CookieDate
    case 0
    'Not Save
    case 1
    Response.Cookies(Tyi86_Sys).Expires=Date+1
    case 2
    Response.Cookies(Tyi86_Sys).Expires=Date+31
    case 3
    Response.Cookies(Tyi86_Sys).Expires=Date+365
    End select
    End sub
    Sub ClearTyi86_SysCookie()
	Response.Cookies(Tyi86_Sys)("UserID")=""
	Response.Cookies(Tyi86_Sys)("Username")=""
	Response.Cookies(Tyi86_Sys)("Grade") =""
	Response.Cookies(Tyi86_Sys)("Money")=""
	Response.Cookies(Tyi86_Sys)("UserEmail")=""
	Response.Cookies(Tyi86_Sys)("CookieDate")=""
    End sub
%>