Bagaimana cara mengimplementasikan fungsi yang menyaring kata kunci ASP? Saya percaya bahwa ini adalah masalah bagi banyak teman baru yang belajar ASP. Jadi mari kita lihat pengenalan fungsi implementasi kata kunci penyaringan ASP. Saya harap ini akan membantu Anda.
Kata kunci filter <%
'***********************************
'Fungsi: chkkeyword (kata kunci byval)
'Parameter: Kata kunci, kata kunci
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Kata kunci filter
'Contoh: chkkeyword ("sfsdfdf'8 & 5ddd")
'***********************************
Fungsi chkkeyword (kata kunci byval)
Redup fobwords, i
Pada kesalahan resume berikutnya
FOBWords = Array (91, 92, 304, 305, 430, 431, 437, 438, 12460, 12461, 12462, 12463, 12464, 12465, 12466, 12467, 12468, 12469, 12470, 12471, 12471, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12467, 12468, 12467, 12467, 12468, 12467, 12467, 12468, 12467, 12468, 12467, 12468, 12468, 12467, 12468, 12467, 12464, 12464, 12464, 12464, 12464, 12464, 12464, 12464, 12464, 12464, 12468 12476, 12477, 12478, 12479, 12480, 12481, 12482, 12483, 12485, 12486, 12497, 12498, 12499, 12500, 1255021, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12497, 12502, 125020 12507, 12508, 12509, 12510, 12521, 12532, 12533, 65339, 65340)
Untuk i = 1 ke ubound (fobwords, 1)
If instr (kata kunci, chrw (fobwords (i)))> 0 lalu
kata kunci = ganti (kata kunci, chrw (fobwords (i)), "")
Akhiri jika
Berikutnya
kata kunci = kiri (kata kunci, 100)
Fobwords = array ("~", "!", "!", "@", "#", "$", "%", "^", "&" ","*"," (",") "," _ ","+"," ",", "", "", " ">", ".", "/", "/", "?", "?", "_")
Untuk i = 0 ke ubound (fobwords, 1)
If instr (kata kunci, fobwords (i))> 0 lalu
kata kunci = ganti (kata kunci, fobwords (i), "")
Akhiri jika
Berikutnya
Chkkeyword = kata kunci
Fungsi Akhir%>
Di atas adalah semua konten artikel ini. Saya berharap ini akan membantu untuk pembelajaran semua orang, dan saya harap semua orang akan mendukung saluran teknologi baru yang salah.