newasp中main类(32)

            Next
        End If
    End Sub
    '================================================
    '函数名：ChkQueryStr
    '作  用：过虑查询的非法字符
    '参  数：str   ----原字符串
    '返回值：过滤后的字符
    '================================================
    Public Function ChkQueryStr(ByVal str)
        On Error Resume Next
        If IsNull(str) Then
            ChkQueryStr = ""
            Exit Function
        End If
        str = Replace(str, "!", "")
        str = Replace(str, "]", "")
        str = Replace(str, "[", "")
        str = Replace(str, ")", "")
        str = Replace(str, "(", "")
        str = Replace(str, "|", "")
        str = Replace(str, "+", "")
        str = Replace(str, "=", "")
        str = Replace(str, "'", "''")
        str = Replace(str, "%", "")
        str = Replace(str, "&", "")
        str = Replace(str, "#", "")
        str = Replace(str, "^", "")
        str = Replace(str, " ", " ")
        str = Replace(str, Chr(37), "")
        str = Replace(str, Chr(0), "")
        ChkQueryStr = str
    End Function
    '================================================
    '过程名：CheckQuery
    '作  用：限制搜索的关键字