오늘, 편집자는 간단한 필터링 광고 코드를 공유 할 것입니다. 일부 코드는 이해할 수 없으며 많은 코드는 온라인에서 다른 코드로 빌려줍니다.
많은 사람들이 저 에게이 작품을 물었지만 실제로는 매우 간단한 코드입니다. 다음은 기능을 직접 변경하는 것입니다.
Dim Stra, Strb, Isok
stra = "테스트, 당신, 섹스, 돈" '키워드 내용을 필터링해야합니다.
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
종료
끝 If
다음
regexp = 아무것도 설정하지 않습니다
Response.Write (ISOK)
위의 것은 광고 코드 필터링에 대한 간략한 소개입니다. 나는 당신이 그것을 좋아할 수 있기를 바랍니다. 자세한 내용은 Wuxin Technology Channel의 웹 사이트를 계속 따르십시오!