重要代码，将这些代码拷贝到代码配置文件中。
（代码配置文件就是一个普通的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

评论