Viele Leute haben mich nach diesem Code gefragt. Hier ist der Code, den Sie selbst in einen Funktionsaufruf umwandeln können.
dimmen strA,strB,isOK
strA = test,you,fuck,money'Keyword-Inhalt, der gefiltert werden muss
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' zu prüfender Inhalt
„isOK = False“ bestimmt, ob der zu filternde Inhalt enthalten ist. Wenn True zurückgegeben wird, bedeutet dies, dass er enthalten ist, und False bedeutet, dass dies nicht der Fall ist.
dimRegExp
set RegExp=new RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
dimi,j
j = ubound(split(strA,,))
für i=0 bis j
RegExp.Pattern=(&split(strA,,)(i)&)
if(RegExp.Test(strB))then
isOK=Wahr
Ausgang für
Ende wenn
nächste
Setze RegExp=Nothing
Response.write(isOK)