比如说我在数据库的blog_UserGroup中存有用户的权限 其字段为group_Rights
现在我从表中读取出全部类型用户的权限存入Arr_UserGroup数组中

Dim Arr_UserGroup
IF Not IsArray(Application(CookieName&"_blog_UserGroup")) Then
Dim log_UserGroup,log_UserGroupString
Set log_UserGroup=Conn.Execute("SELECT * FROM blog_UserGroup")
TempVar=""
Do While Not log_UserGroup.EOF
log_UserGroupString=log_UserGroupString&TempVar&log_UserGroup("group_ID")&"$|$"&log_UserGroup("group_Name")&"$|$"&log_UserGroup("group_Rights")
TempVar="$,$"
log_UserGroup.MoveNext
Loop
Set log_UserGroup=Nothing
Arr_UserGroup=Split(log_UserGroupString,"$,$")
Application.Lock
Application(CookieName&"_blog_UserGroup")=Arr_UserGroup
Application.UnLock
Else
Arr_UserGroup=Application(CookieName&"_blog_UserGroup")
End IF

现在举例某用户类型的权限为0132 代表着该用户类型的读、写、编辑、上传这四种权限和组合
那现在我想用 split 分别读取出来，应该怎么写？