检测是否含有禁止字符串

<%
'------------------------------------
' 检测是否含有禁止字符串 , 如果禁止字符串出现次数为 5 ，测返回 True
' 参数说明 :
'badWordList = 禁止字符列表 ( 以 , 号隔开 )
'str = 被检测字符串
' 返回值 Boolean
' 小男 2006
' 更新 no_mIss

'------------------------------------
Function checkBadWord(ByVal badWordList,ByVal str)
     str=""&str:CheckBadWord = False
     Dim regEx,Matches
     Set regEx = New RegExp
           regEx.Global = True
           '-------- 处理 -----------
           regEx.Pattern = "[^/u4E00-/u9FA5]"      ' 取中文
           str2 = regEx.Replace(str,"")
           
           regEx.Pattern = "[^A-Za-z]"
           str3 = regEx.Replace(str,"")            ' 取英文
           '------------------------
           str = str3 & str2
           regEx.IgnoreCase = True
           regEx.Pattern = Replace(Replace(""&badWordList,"|","/|"),",","|")
           Set Matches = regEx.Execute(str)
           'CheckBadWord = regEx.Test(str) '' 返回是否含有禁用字符串
           If Matches.Count  = 5 Then CheckBadWord = True  ' 如果禁止字符出现 5 次，则返回 True        
     Set regEx = Nothing          
End Function
Dim a,b
a=Request.Form("a")
b=" 我日 ,abc, 测试 "
Response.Write checkBadWord(b,a)
%>
<form method="post" action="">
<input name="a" value="<%=a%>" />
<input type="submit" />
</form>