Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/admin/ChkCode.asp，行 6

Sub CheckSiteManageCode()
^

<%
Const EnableSiteManageCode = False      

'Const SiteManageCode = "kesion2007"      '后台管理认证码

'检查后台管理认证码
Sub CheckSiteManageCode()
    Dim KSCMS:Set KSCMS=New CommonCls
    If EnableSiteManageCode = True And Trim(Request.Cookies(KSCMS.SiteSN)("AdminLoginCode")) <> SiteManageCode Then
        Response.Redirect "Admin_login.asp"
        Response.End
    End If
 Set KSCMS=Nothing
End Sub
%>

登陆不了后台了

三克油，自己已解决了