<%
Const EnableSiteManageCode = True '是否启用后台管理认证码 是： True 否： False
Const SiteManageCode = "lbj" '后台管理认证码，请修改，这样即使有人知道了您的后台用户名和密码也不能登录后台
'检查后台管理认证码
Sub CheckSiteManageCode()
Dim KSCMS:Set KSCMS=New CommonCls
If EnableSiteManageCode = True And Trim(Request.Cookies(KSCMS.SiteSN)("AdminLoginCode")) <> SiteManageCode Then
Response.Redirect "login.asp"
Response.End
End If
Set KSCMS=Nothing
End Sub
%>
