' '重要代碼，將這些代碼拷貝到代碼設定檔中。（代碼設定檔就是一個普通的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
