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

[/code]

本文固定链接: http://blog.duoday.com/2006/132.html | 奇风's Blog