<!-- #include file = "include/AdmFunc.asp" -->
<!-- #include file = "include/AdmDB.asp" -->
<!-- #include file = "include/AdmCFG.asp" -->
<%
'檢查是否用Post的方式進入此頁
checkIsPost(adminPath&"login.asp")

Session("AdminID") = ""
Session("GroupID") = ""
Session("ExtPwr") = "0"

SQLstr = "select id,GroupID,passwd,ExtPwr,CanLoginBack from Administrators where account="&AdjStr(Request("Login"))
Set rs0 = Conn.Execute(SQLstr)
IF rs0.EOF Then
	Set rs0 = Nothing
	dbClose()

	AlertRedirect "無此帳號!", "login.asp"
End If

If Not rs0(4) Then
	Set rs0 = Nothing
	dbClose()

	AlertRedirect "此帳號現在無法登入!", "login.asp"
End IF

IF Trim(Request("pass"))=rs0(2) Then
	Session("AdminID") = rs0(0)
	Session("GroupID") = rs0(1)
	
	If ""=rs0(3) Or 0=rs0(3) Or IsNULL(rs0(3)) Then
		SQLstr = "select ExtPwr from AdminGroups where id="&rs0(1)
		Set rs0 = Conn.Execute(SQLstr)
		If Not rs0.EOF Then
			Session("ExtPwr") = rs0(0)
		End IF
	Else
		Session("ExtPwr") = rs0(3)
	End IF

	Set rs0 = Nothing
	dbClose()

	Response.Redirect adminPath&"index.asp"
Else
	Set rs0 = Nothing
	dbClose()

	AlertRedirect "密碼錯誤，請重新登入", "login.asp"
End If
%>