asp程序权限控制的代码

来源：作者：出处：巧巧读书 2006-10-14 进入讨论组

　　' '重要代码，将这些代码拷贝到代码配置文件中。（代码配置文件就是一个普通的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.qqread.com/asp/2006/10/t222667.html