<%@language=vbscript codepage=936 %>
<%
Option Explicit
%>
<%
Dim AdminName, AdminPassword, RndPassword, AdminLoginCode
Dim sqlGetAdmin, rsGetAdmin
AdminName = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("RndPassword")))
AdminLoginCode = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("AdminLoginCode")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Or (EnableSiteManageCode = True And AdminLoginCode <> SiteManageCode) Then
Call CloseConn
Response.Redirect "Admin_login.asp"
End If
sqlGetAdmin = "select * from PE_Admin where AdminName='" & AdminName & "' and Password='" & AdminPassword & "'"
Set rsGetAdmin = Server.CreateObject("adodb.recordset")
rsGetAdmin.Open sqlGetAdmin, Conn, 1, 1
If rsGetAdmin.BOF And rsGetAdmin.EOF Then
rsGetAdmin.Close
Set rsGetAdmin = Nothing
Call CloseConn
Response.Redirect "Admin_login.asp"
Else
If rsGetAdmin("EnableMultiLogin") <> True And Trim(rsGetAdmin("RndPassword")) <> RndPassword Then
Response.write "
对不起，为了系统安全，本系统不允许两个人使用同一个管理员帐号进行登录！
因为现在有人已经在其他地方使用此管理员帐号进行登录了，所以你将不能继续进行后台管理操作。
你可以点此重新登录。
"
rsGetAdmin.Close
Set rsGetAdmin = Nothing
Call CloseConn
Response.End
End If
End If
%>
<%=SiteName & "--后台管理"%>
<![CDATA[
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<p>你的浏览器版本过低！！！本系统要求IE5及以上版本才能使用本系统。</p>
</body>
]]>