<% ConnectionDatabase Dim ACTCMS Set ACTCMS = New ACT_Main Select Case Request("Action") Case "LoginCheck" Call LoginCheck() Case "LoginOut" Call LoginOut() Case Else Call ACT_login_Main() End Select Sub LoginCheck() Dim A_PWD,PassWord,UserName,Act_Code,SqlStr,RS If CheckCode=True Then Act_Code = Request.Form("Code") If CStr(Act_Code) <>CStr(Session("GetCode")) then Response.Write("") Response.End End If End If If CheckManageCode=True Then If CStr(Request.Form("CheckManageCode")) <>CStr(CheckManageCodeContent) then Response.Write("") Response.End End If End If A_PWD = MD5(Request.Form("PassWord")) UserName = ACTCMS.RSQL(Request.Form("UserName")) PassWord = ACTCMS.RSQL(Request.Form("PassWord")) Set RS = Server.CreateObject("ADODB.RecordSet") SqlStr = "select * from Admin_ACT where Admin_Name='" & UserName & "'" RS.Open SqlStr,Conn,1,3 IF Rs.eof And Rs.bof Then Call ACTCMS.InsertLog(UserName,1,0,PassWord) Response.Write("") Response.End Else IF Rs("PassWord") = A_PWD Then IF Rs("Locked") = 1 Then Response.Write("") Response.End Else Rs("LoginTime") = Now Rs("LoginIP") = ACTCMS.GetIP() Rs("LoginNumber") = Rs("LoginNumber")+1 Rs.Update Response.Cookies(AcTCMSN)("AdminName") = Rs("Admin_Name") Response.Cookies(AcTCMSN)("AdminPassword") = Rs("PassWord") Response.Cookies(AcTCMSN)("AdminID") = Rs("ID") If Rs("SuperTF")=1 Then Response.Cookies(AcTCMSN)("SuperTF")=1 Response.Cookies(AcTCMSN)("Purview") = Rs("Purview") Response.Cookies(AcTCMSN)("ACT_Other") = Rs("ACT_Other") Response.Cookies(AcTCMSN)("HQQXLX") = Rs("ACTCMS_QXLX") End IF Else Call ACTCMS.InsertLog(UserName,0,1,"密码错误:"&PassWord) Response.Write("") Response.End End IF Rs.Close:Set Rs = Nothing Call ACTCMS.InsertLog(UserName,1,1,"*******") Response.Redirect("Index.asp") End IF End Sub Sub LoginOut() Response.Cookies(AcTCMSN)("AdminName") ="" Response.Cookies(AcTCMSN)("AdminPassword") = "" Response.Cookies(AcTCMSN)("AdminID") = "" Response.Cookies(AcTCMSN)("SuperTF")=0 Response.Cookies(AcTCMSN)("Purview") = "" Response.Cookies(AcTCMSN)("ACT_Other") = "" Response.Cookies(AcTCMSN)("HQQXLX") = "" Response.Redirect("Login.asp") End Sub Sub ACT_login_Main() %> ACTCMS管理系统-网站后台管理
 
 
 
<%If CheckManageCode=True Then %> <%End If %> <%If CheckCode=True Then %> <%End If %>
   
登陆名称:
登陆密码:
认 证 码:
验 证 码: 验证码
   
Power by ActCMS Copyright 2007-2009
 
<% End Sub %>