ASP的一些自定义函数整理第1/2页(6)

    dim objRegExp,matches,matche 
    if contentStr = "" then 
        call ShowErr(language_arr(12)) 
    end if 
    Set objRegExp=new RegExp   '建立正则表达式 
    objRegExp.pattern = patternStr    '设置模式 
    objRegExp.IgnoreCase =False    '设置是否区分字符大小写 
    objRegExp.Global=true    '设置全局可用性 
    objRegExp.pattern = patternStr    '匹配式 

    if objRegExp.test(contentStr) = false then    '全局匹配 
        SelectStr = false 
    else 
        Set matches = objRegExp.Execute(contentStr)    '执行搜索 
        if patternNum = -1 then 
            for each matche in matches 
                SelectStr = SelectStr &"[10]"& matche.value 
            next 
        else 
            SelectStr = matches.Item(patternNum).value 
        end if 
    end if 

    Set objRegExp=Nothing 
End Function 
'============================================================================================================================ 
'函数ID：7 
'函数作用：过滤指定字符 
'作者名称：茫仔 xiamangmang@gmail.com 博客：blog.mzoe.com 
'建立时间：2006-2-16 16:59 
'修改时间： 
'传人参数： 
'    contentStr:源字符串 
'    badWords:要过滤的字符串，若数目大于1则用英文状态的"^"隔开 
'返回值： 
'    返回过滤后的字符串 
'============================================================================================================================ 
Function Leach(contentStr,badWords) 
    dim badWordsArr,i 
    badWordsArr = Split(badWords,"^")