Programalama > ASP

<%
strMetin = "Naber lan beyinsiz? Hala salak salak işler mi yapıyorsun? Sana kaç defa bu kadar beyinsiz olma dedim?"

FUNCTION Filtrele(strGelen)
     arrYasak = Array("Aptal", "Salak", "Manyak", "beyinsiz", "gerizekalı")

     FOR EACH Kelime IN arrYasak
          strGelen = Replace(strGelen, LCASE(Kelime), "[Yasak Kelime]")
     Next

     Filtrele = strGelen
End Function

Response.Write Filtrele(strMetin)