Berfungsi untuk memfilter karakter tidak beradab pada program asp
<%
Fungsi cutbadchar(str)
badstr = tidak beradab |.karakter |.karakter |.kolom |
kata buruk=pecah(badstr,|)
Untuk i=0 hingga Ubound(kata buruk)
Jika instr(str,badword(i)) > 0 maka
str=Ganti(str,kata buruk(i),***)
Akhiri Jika
Berikutnya
cutbadchar=str
Fungsi Akhir
%>