checkadmin.asp

生成html的ASP企业站点,可以进行二次开发的

<%
'判断是否登录或登录超时===============================================================
dim AdminAction
AdminAction=request.QueryString("AdminAction")

select case AdminAction
  case "Out"
    call OutLogin()
  case else
    call Login()
end select
'========
sub Login()
  if session("AdminName")="" or session("UserName")="" or session("AdminPurview")="" or session("LoginSystem")<>"Succeed" then
	 response.redirect "Admin_Login.asp"
     response.end
  end if
end sub
'========
sub OutLogin()
  session.contents.remove "AdminName"
  session.contents.remove "UserName"
  session.contents.remove "AdminPurview"
  session.contents.remove "LoginSystem"
  session.contents.remove "VerifyCode"
  response.write "<script language=javascript>top.location.replace('Admin_Login.asp');</script>"
end sub
%>