<%
if session("ES_admin")="" then
Call Err_Show()
Response.End()
End if
'错误页面 by foosun
Sub Err_Show()
	dim Err_ShowChar
	Err_ShowChar = "<html xmlns=""http://www.w3.org/1999/xhtml"">"&chr(10)
	Err_ShowChar = Err_ShowChar & "<head>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />"&chr(10)
	Err_ShowChar = Err_ShowChar & "<title>无标题文档</title>"&chr(10)
	Err_ShowChar = Err_ShowChar & "</head>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<link href=""Images/admin.css"" rel=""stylesheet"" type=""text/css"">"&chr(10)
	Err_ShowChar = Err_ShowChar & "<body topmargin=""80""><p>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<table width=""80%"" align=""center"" cellpadding=""10""><tr><td>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<li>您没有此页操作权限没有权限!!</li>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<li>请与系统管理员联系,<a target=""_top"" href=""admin_login.asp"">点击返回登陆</a></li>"&chr(10)
	Err_ShowChar = Err_ShowChar & "<li>Powered by Wygk.Cn</li>"&chr(10)
	Err_ShowChar = Err_ShowChar & "</td><tr></table>"&chr(10)
	Err_ShowChar = Err_ShowChar & "</body>"&chr(10)
	Err_ShowChar = Err_ShowChar & "</html>"&chr(10)
	Response.Write Err_ShowChar
	Response.end
End Sub
%>