Hoy, el editor compartirá con usted un código de anuncio de filtrado simple. Algunos códigos no son muy comprensibles, y muchos de ellos están tomando prestado de otros en línea.
Muchas personas me pidieron este trabajo, pero en realidad es un código muy simple. Lo siguiente es, simplemente cámbielo a una función que llame usted mismo.
dim stra, strb, isok
stra = "Test, You, Fuck, Money" 'Contenido de palabras clave que debe filtrarse
strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" 'Contenido para ser verificado
ISOK = FALSO 'SOLO DEREMENTO si se incluye el contenido que se filtrará. Si se devuelve verdadero, está incluido. Falso significa que no hay
Dim regexp
Establecer regexp = nuevo Regexp
Regexp.ignorecase = false
Regexp.global = verdadero
Dim I, J
J = Ubund (Split (Stra, ","))
para i = 0 a j
Regexp.pattern = "(" & split (stra ",") (i) & ")"
if (regexp.test (strb)) entonces
isok = verdadero
salir
final si
próximo
establecer regexp = nada
Response.Write (ISOK)
Lo anterior es una breve introducción al filtro de códigos publicitarios. Espero que te pueda gustar. Para obtener más contenido, ¡continúe siguiendo el sitio web del canal de tecnología Wuxin!