q.asp

用来作工资的ASP源代码下载后解压后就行了

<!--#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
%>