Many people have asked me for this piece of code. It is actually a very simple code. Here is the code. You can take it and change it into a function call yourself.
dim strA,strB,isOK
strA = test,you,fuck,money'Keyword content that needs to be filtered
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' content to be checked
isOK = False' determines whether the content to be filtered is included. If True is returned, it means it is included, and False means it is not.
dimRegExp
set RegExp=new RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
dimi,j
j = ubound(split(strA,,))
for i=0 to j
RegExp.Pattern=(&split(strA,,)(i)&)
if(RegExp.Test(strB))then
isOK=True
exit for
end if
next
set RegExp=Nothing
response.write(isOK)