Сегодня редактор поделится с вами простым фильтрационным рекламным кодом. Некоторые коды не очень понятны, и многие из них заимствуют у других онлайн.
Многие люди просили у меня эту работу, но на самом деле это очень простой код. Следующее, просто измените его на функцию, называйте себя.
Dim Stra, Strb, изок
stra = "test, you, fuck, money" Content Keyword Content, которое нужно отфильтровать
strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" 'Содержание для проверки
isok = false 'просто определите, включено ли содержимое для фильтрации. Если True возвращается, это включено. Ложные средства нет
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)) тогда
isok = true
Выход для
конец, если
следующий
Установить regexp = ничего
response.write (isok)
Выше приведено краткое введение в фильтрацию рекламных кодов. Надеюсь, вам это понравится. Для получения дополнительного контента, пожалуйста, продолжайте следить за веб -сайтом канала Wuxin Technology!