<%
SiteManageCode=Config(7)
'检查管理员是否登录
Site_Sn=Replace(Replace(LCase(Request.ServerVariables("SERVER_NAME") & GetScriptPath(Trim(Request.ServerVariables("SCRIPT_NAME")), 1)), "/", ""), ".", "")
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")))
AdminQvodCms=Session("QvodCms")
If AdminQvodCms="" or AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
    Response.redirect "QvodCms_Login.asp"
	Response.End
End If
%>