Dim AdminName, AdminPass
AdminName = Trim(Replace(Request("AdminName"), "'", ""))
AdminPass = MD5(Trim(Replace(Request("AdminPass"), "'", "")))
If Session("GetCode") = "9999" Then
Session("GetCode") = ""
ElseIf Session("GetCode") = "" Then
Response.Write ("alert(""【系统错误】:\n\n请不要重复提交!\n\n"");location.href=""javascript:history.back()"";")
Response.End
ElseIf CStr(Session("GetCode")) <> CStr(Trim(Request("GetCode"))) Then
Response.Write ("alert(""【系统错误】:\n\n请您正确输入系统产生的确认码!\n\n"");location.href=""javascript:history.back()"";")
Response.End
End If
Session("GetCode") = ""
If AdminName = "" Or AdminPass = "" Then
Response.Write ("alert(""【系统错误】:\n\n请输入您的用户名或密码错误!\n\n"");location.href=""javascript:history.back()"";")
Response.End
End If
Set Rs = Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From Pro_Admin Where AdminName='" & AdminName & "'"
Rs.Open Sql,Conn,1,1
If Rs.EOF And Rs.BOF Then
Response.Write ("alert(""【系统错误】:\n\n您输入的用户名和密码不正确或者您不是系统管理员!\n\n"");location.href=""javascript:history.back()"";")
Response.End
Else
If Trim(Rs("AdminPass")) <> AdminPass Then
Response.Write ("alert(""【系统错误】:\n\n您输入的用户名和密码不正确或者您不是系统管理员!\n\n"");location.href=""javascript:history.back()"";")
Response.End
Else
Session("AdminName") = Rs("AdminName")
Session("AdminPass") = Rs("AdminPass")
Session.Timeout = 100
End If
End If
Rs.Close
Set Rs = Nothing
Response.Redirect "Main.Asp"
%>