检测是否含有禁止字符串

最新推荐文章于 2021-09-02 17:34:47 发布

no_mIss

最新推荐文章于 2021-09-02 17:34:47 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： asp开发文章标签： regex function input action 测试

本文链接：https://blog.csdn.net/no_mIss/article/details/773621

asp开发专栏收录该内容

14 篇文章

订阅专栏

<%
'------------------------------------
'检测是否含有禁止字符串,如果禁止字符串出现次数为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>