Hari ini, editor akan berbagi dengan Anda kode iklan penyaringan sederhana. Beberapa kode tidak terlalu dapat dimengerti, dan banyak dari mereka meminjam dari yang lain secara online.
Banyak orang meminta saya untuk pekerjaan ini, tetapi sebenarnya kode yang sangat sederhana. Berikut ini adalah, ubah saja ke fungsi, panggil diri Anda sendiri.
Dim Stra, Strb, Isok
stra = "test, you, fuck, money" 'Konten kata kunci yang perlu disaring
strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" konten yang akan diperiksa
isok = false 'Tentukan saja apakah konten yang akan disaring disertakan. Jika benar dikembalikan, itu termasuk. Salah berarti tidak ada
Dim regexp
Setel regexp = RegExp baru
Regexp.ignorecase = false
Regexp.global = true
redup i, j
j = ubund (split (stra, ","))
untuk i = 0 hingga j
Regexp.pattern = "(" & split (stra, ",") (i) & ")"
if (regexp.test (strb)) lalu
isok = true
keluar untuk
akhiri jika
Berikutnya
atur regexp = tidak ada
response.write (isok)
Di atas adalah pengantar singkat untuk memfilter kode iklan. Saya harap Anda bisa menyukainya. Untuk konten lebih lanjut, silakan ikuti situs web Wuxin Technology Channel!