一部分代码 Function checkRights(byVal rightsGroup, byVal rightsFlag) Dim theGroup,theGroupItem,rightsString checkRights=0 rightsString="" For Each theGroup IN Arr_UserGroup theGroupItem=Split(theGroup,"$|$") If CInt(theGroupItem(0))=CInt(rightsGroup) Then rightsString=theGro