Un filtro automatico per individuare le parolacce

Quando mettiamo su il nostro guestbook o forum fatto in caso torna utile una funzioncina che ripulisca i messaggini lasciati dagli utenti biricchini di tutte le parolacce ed affini. Le 'bad words' verranno sostituite da asterischi quanti sono i caratteri che le compongono.

<%
Function badWords(sText)
  'alcune parole poco consone, potete aggiungerne quante ne volete
  words = Array("cretino" ,"stupido" ,"imbecille" ,"porcapaletta")
  stringa = sText
 
  For k = LBound(words) To UBound(words)
    stringa = Replace(stringa, words(k), String(Len(words(k)),"*"))
  Next
 
  badWords = stringa
End Function
 
Response.Write badWords("Sei un cretino!")
%>