checkadmin.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 30 行

<%
'判断是否登录或登录超时===============================================================
dim AdminAction
AdminAction=request.QueryString("AdminAction")
if ( AdminAction <> "Out") then
CheckUser("userName")
end if
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
%>