Üyelik sistemi olmayan veya üyelik sistemi ile çalışmayan sayfalar kötü niyetli kişiler tarafından kullanılabilir. mesela, yorum ekleme, guestbook gibi alanlara isteyen istedigi bilgiyi yazabilir.Bu kodlar ile küfür koruması yapabiliriz.<% badwordFilter = "Acik" Dim badword badword = "fuck|suck|***" metin = Request.Form("metin" ) strwords = Split(badword, "|" ) For I = 0 to Ubound(strwords) metin = Replace(metin, strwords(I), String(Len(strwords(I)),"*" ), 1,-1,1) next If badwordFilter= "Acik" Then Response.Write metin else Response.Write metin End If %>
