<!--#include file="md5.asp" -->
<%
'取得文件名稱

url=server.mappath(Request.ServerVariables("SCRIPT_NAME"))
llong=InStrRev(url,"\")
lall=len(url)
rl=lall-llong
my=Right(url ,rl)
'my 是訪問的頁面

select case(my)
case "main1.asp"
  if session("quanxian")="所有" then
  else
  errr="yes"
  end if
  
case "day.asp"
 if session("quanxian")="所有" or session("quanxian")="添加" then
  else
  errr="yes"
  end if
  
case "month.asp"
 if session("quanxian")="所有" or session("quanxian")="添加" or session("quanxian")="修改" then
  else
  errr="yes"
  end if

case "men.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改" then
  else
  errr="yes"
  end if
case "gongxu.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改" then
  else
  errr="yes"
  end if
  case "note.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除"  then
  else
  errr="yes"
  end if
 case "gongxub.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改" then
  else
  errr="yes"
  end if
case "config.asp"
 if session("quanxian")="所有"  then
  else
  errr="yes"
  end if

case "ka.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改" then
  else
  errr="yes"
  end if
  case "kamore.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改" then
  else
  errr="yes"
  end if
  case "quanxian.asp"
 if session("quanxian")="所有" then
  else
  errr="yes"
  end if
   case "uid.asp"
 if session("quanxian")="所有" or session("quanxian")="刪除" or session("quanxian")="修改"or session("quanxian")="添加" then
  else
  errr="yes"
  end if
end select
if errr="yes" then
response.Write("<br><br><br><center><b>錯誤，您沒有權限執行該頁面操作！請返回。</b></center>")
response.End()
end if
%>