chkcode.asp

来自「SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括h」· ASP 代码 · 共 15 行

<%
Const EnableSiteManageCode = True        '是否启用后台管理认证码 是： True  否： False 
Const SiteManageCode = "1"      '后台管理认证码，请修改，这样即使有人知道了您的后台用户名和密码也不能登录后台

'检查后台管理认证码
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
%>