chkuser.asp

来自「我们的课程设计是一个工资管理系统」· ASP 代码 · 共 19 行

<%
if session("admin")<>true then
Response.Write("您不是管理员，请不要进入管理中心，3秒后系统将自动返回。")
Response.write("<meta HTTP-EQUIV=REFRESH CONTENT='4; URL=admin.asp'>")
Response.end()
else
dim flags
flags=split(session("flag"),"|")
dim poweruser,administrator 
poweruser = false
administrator = false
if flags(0)=1 then
poweruser=true
end if
if flags(1)=1 then
administrator=true
end if
end if
 %>