<%
'判断是否登录或登录超时===============================================================
dim AdminAction
AdminAction=request.QueryString("AdminAction")
select case AdminAction
  case "Out"
    call OutLogin()
  case else
    call Login()
end select
'========
sub Login()
  if Request.Cookies("Angelasp")("AdminName")="" or Request.Cookies("Angelasp")("UserName")="" or Request.Cookies("Angelasp")("LoginSystem")<>"Succeed" then
     response.write "您还没有登录或登录已超时，请<a href='"&webpath&"admin/index.html' target='_parent'><font color='red'>返回登录</font></a>!"
     response.end
  end if
end sub
'========
sub OutLogin()
  session.contents.remove "VerifyCode"
  Response.Cookies("Angelasp")("AdminName")=""
  Response.Cookies("Angelasp")("UserName")=""
  Response.Cookies("Angelasp")("LoginSystem")=""
  response.redirect "../admin/index.html"
end sub
%>