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

原文转自：http://www.ltesting.net