<!--#Include file="../Common/Inc_DatConn.asp"-->
<%session.Timeout = 333%>
<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
'/驗證系統用戶賬戶及管理密碼/
Dim rdsAccount	'/創建用戶賬號訪問對象/
Dim sqlAccount  '/創建SQL語句/
Dim strAccount	'/用戶賬號/
Dim strPassWord	'/管理密碼/

strAccount = Request.Form("Account")
strPassWord = Request.Form("Password")

set rdsAccount = Server.CreateObject("ADODB.Recordset")
sqlAccount = "Select * From Sys_Account Where Account = '"& strAccount &"'"
rdsAccount.Open sqlAccount,Conn
if not rdsAccount.EOF then
	if strPassword = rdsAccount("Password") then
		if rdsAccount("State") = 0 then
			Session("intUserKey") = rdsAccount("UserKey")
			Session("strAccount") = strAccount
			Session("strPassword") = strPassword
			Session("intUserLevel") = rdsAccount("UserLevel")
			
			Response.Redirect "Main.asp"
		else
			Response.Write "<script>alert(""\對不起！您的管理賬號已被禁止登錄，請與管理員聯系！"");window.location='index.asp';</script>"
		end if
	else
		Response.Write "<script>alert(""\您輸入的管理密碼不正確，請重新輸入！"");window.location='index.asp';</script>"
	end if
else
	Response.Write "<script>alert(""\您輸入的賬戶不存在，請重新輸入！"");window.location='index.asp';</script>"
end if
rdsAccount.Close
set rdsAccount = nothing
%>