今日、編集者はあなたと簡単なフィルタリング広告コードを共有します。一部のコードはあまり理解できず、その多くはオンラインで他のコードから借りています。
多くの人が私にこの作品を求めましたが、実際には非常に単純なコードです。以下は、それを関数に変更するだけです。
Dim Stra、strb、isok
Stra = "テスト、あなた、性交、お金" 'フィルタリングする必要があるキーワードコンテンツ
strb = "fasfaefwtestfajkewhwwituckjfksajfheyou" 'チェックするコンテンツ
ISOK = false 'フィルタリングするコンテンツが含まれているかどうかを判断するだけです。 trueが返された場合、それは含まれています。 falseは、ないことを意味します
dim regexp
regexp = new regexpを設定します
regexp.ignorecase = false
regexp.global = true
Dim I、J
j = ubund(split(stra、 "、"))
i = 0からjの場合
regexp.pattern = "("&split(stra、 "、")(i)& ")"
if(regexp.test(strb))then
ISOK = true
の出口
ifを終了します
次
regexp =何も設定しません
Response.Write(ISOK)
上記は、広告コードのフィルタリングの簡単な紹介です。誰もがそれを好きになることを願っています。その他のコンテンツについては、引き続きWuxin Technology ChannelのWebサイトをフォローしてください。