newasp中main类(71)

        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