<%
SiteManageCode=tgzcm(3)
'检查管理员是否登录
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")))
AdminTgzcmCms=Session("TgzcmCms")
If AdminTgzcmCms="" or AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
    Response.redirect "tgzcm_Login.asp"
	Response.End
End If
%>