asp程序权限控制的代码

' '重要代码，将这些代码拷贝到代码配置文件中。（代码配置文件就是一个普通的asp文件，所有的公共代码都放到这 '个文件中，其他需要调用公共代码的就通过include将这个文件包含进去。 ' '权限验证代码 'rightstring：权限串（用户的所有权限连接成的串，用都好(,)连接。例如：,1,3,12,7,45, 'rightid ：验证的权限id，为一个数字 '程序的功能就是在rightstring串中查找rightid,如果查到了，说明用户有改操作权限 '返回true,如果没有查到说明用户没有该操作权限，返回false 。 function validright(rightstring,rightid) if rightstring="" or rightid="" then validright=false exit function end if if instr(1,rightstring,"," & rightid & ",")>0 then validright=true else validright=false end if end function '权限验证代码2 'rightstring ：权限串（用户的所有权限连接成的串，用都好(,)连接，并且用逗号开头，用逗号结尾。 '例如：,1,3,12,7,45, 'rightidstring ：验证的权限id串，组成方式与rightstring类似,但是两边没有逗号。 '程序的功能就是在rightstring串中查找rightidstring串中包含的的每一个权限,如果查到了任何一个匹配， '说明用户拥有其中一种操作权限，返回true；如果没有查到任何匹配，说明用户没有rightidstring中包含的 '任何操作权限，返回false 。 function validright2(rightstring,rightidstring) if rightstring="" or rightidstring="" then validright=false exit function end if rightidarr=split(rightidstring,",") for i=0 to ubound(rightidarr) if validright(rightstring,rightidarr(i)) then validright2=true exit function end if next validright2=false end function '权限验证代码3 'rightstring ：权限串（用户的所有权限连接成的串，用都好(,)连接，并且用逗号开头，用逗号结尾。 '例如：,1,3,12,7,45, 'rightidstring ：验证的权限id串，组成方式与rightstring类似,但是两边没有逗号。 '程序的功能就是在rightstring串中查找rightidstring串中包含的的所有权限,如果rightstring 中包含 'rightidstring中所有的权限，说明用户拥有了rightidstring中的所有权限，返回true； '只要有一个不能匹配，用户不具有rightidstring中包含的所有权限，返回false 。 function validright3(rightstring,rightidstring) if rightstring="" or rightidstring="" then validright=false exit function end if rightidarr=split(rightidstring,",") for i=0 to ubound(rightidarr) if not validright(rightstring,rightidarr(i)) then validright3=false exit function end if next validright3=true end function