<%
Const EnableSiteManageCode = False      '是否启用后台管理认证码
Const SiteManageCode = "PowerEasy2005"  '后台管理认证码

'检查后台管理认证码
Sub CheckSiteManageCode()
    If EnableSiteManageCode = True And Trim(Request.Cookies(Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME") & Left(Trim(Request.ServerVariables("SCRIPT_NAME")), InStr(LCase(Trim(Request.ServerVariables("SCRIPT_NAME"))), "/admin/"))), "/", ""), ".", ""))("AdminLoginCode")) <> SiteManageCode Then
        Response.Redirect "Admin_login.asp"
        Response.End
    End If
End Sub
%>