Aujourd'hui, l'éditeur partagera avec vous un simple code d'annonce de filtrage. Certains codes ne sont pas très compréhensibles et beaucoup d'entre eux empruntent à d'autres en ligne.
Beaucoup de gens m'ont demandé ce travail, mais c'est en fait un code très simple. Ce qui suit est, changez-le simplement en fonction, appelez-vous.
Dim Str, Strb, Isok
Stra = "Tester, vous, baise, argent" 'contenu de mots clés qui doit être filtré
strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" 'contenu à vérifier
ISOK = false 'Déterminez simplement si le contenu à filtrer est inclus. Si le vrai est retourné, il est inclus. Faux signifie qu'il n'y a pas
dim regexp
définir regexp = new regexp
Regexp.ignorecase = false
Regexp.global = true
dim i, j
J = Ubund (Split (Str, ","))
pour i = 0 à j
Regexp.Pattern = "(" & Split (str, ",") (i) & ")"
if (regexp.test (strb)) alors
ISOK = VRAI
sortir pour
terminer si
suivant
définir regexp = rien
Response.Write (ISOK)
Ce qui précède est une brève introduction au filtrage des codes publicitaires. J'espère que vous pouvez l'aimer. Pour plus de contenu, veuillez continuer à suivre le site Web de la chaîne technologique Wuxin!