[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
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管理系统-网站后台管理