str = Replace(str, "|", "|")
str = Replace(str, "$", "$")
CorrectPattern = str
End Function
'=============================================================
'函数名：UserGroupSetting
'作 用：取用户级权限设置
'参 数：gradeid ----等级ID
'=============================================================
Public Function UserGroupSetting(ByVal gradeid)
If Not IsNumeric(gradeid) Then
gradeid = 0
End If
On Error Resume Next
Dim Rs, SQL
Name = "GroupSetting" & gradeid
If ObjIsEmpty() Then
SQL = "Select Groupname,GroupSet from [NC_UserGroup] where Grades =" & gradeid
Set Rs = Execute(SQL)
If Rs.BOF And Rs.EOF Then
UserGroupSetting = ""
Set Rs = Nothing
Exit Function
End If
Value = Rs("GroupSet") & Rs("Groupname")
Set Rs = Nothing
End If
UserGroupSetting = Value
End Function
Private Sub LoadGroupSetting()
Dim strGroupSetting
Dim Rs, SQL
Dim Grades
