28,391
社区成员
发帖
与我相关
我的任务
分享
'-----------------
'权限判断函数
'PID 待验证权限ID
'Ptype 验证方式
'-1 输出一个逻辑值
'-2 页面权限验证,不通过跳转到受限页面
'-----------------
Function UserPopedom(PID,Ptype)
on error resume next
dim ArrayPopedom,i,ok
if Ptype="" then Ptype=1 '验证方式默认值
if PID<>"" and session("s_loginPopedom")<>"" then '判断权限是否为空
ArrayPopedom=split(session("s_loginPopedom"),",") '分割用户权限
for i=0 to UBound(ArrayPopedom) '循环判断用户权限
if int(PID)=int(ArrayPopedom(i)) then ok=true
next
PName=RsValue("select 项目 from 权限 where ID="&PID,3,"项目")
if ok then
select case Ptype
case 1
UserPopedom=true
'case 2
'WriteSysLog "对 "&PName&" 的访问验证通过!"
end select
else
select case Ptype
case 1
UserPopedom=false
case 2
'关闭数据源
closeDatabase
WriteSysLog "对 "&PName&" 的访问受限!"
response.Redirect("Wrong.asp?ErrID=1")
end select
end if
else
select case Ptype
case 1
UserPopedom=false
case 2
'关闭数据源
closeDatabase
WriteSysLog "未登录访问受限! "&PID
response.Redirect("Wrong.asp?ErrID=1")
end select
end if
End Function