屏蔽非法字符函数

一部分代码<br>Function checkRights(byVal rightsGroup, byVal rightsFlag)<br> Dim theGroup,theGroupItem,rightsString<br> checkRights=0<br> rightsString=""<br> For Each theGroup IN Arr_UserGroup<br> theGroupItem=Split(theGroup,"$|$")<br> If CInt(theGroupItem(0))=CInt(rightsGroup) Then rightsString=theGroupItem(2)<br> Next<br> If Len(rightsString)<>5 Then Exit Function<br> Select Case rightsFlag<br> Case "View"<br> checkRights=CInt(Mid(rightsString,1,1))<br> Case "Post"<br> checkRights=CInt(Mid(rightsString,2,1))<br> Case "Edit"<br> checkRights=CInt(Mid(rightsString,3,1))<br> Case "Delete"<br> checkRights=CInt(Mid(rightsString,4,1))<br> Case "Upload"<br> checkRights=CInt(Mid(rightsString,5,1))<br> End Select<br>End Function<br>