Función BlackList en ASP

Os dejo una función booleana que me he definido en ASP, es muy sencilla pero útil. En este caso la Black List se declara en una variable local con un separador (en este caso [#]) y la función recoge el texto que queremos filtrar comparándola con cada palabra de la Black List devlviendo True si ha pasado el test y no ha encontrado ninguna de las palabras en la lista negra o False si por el contrario ha sido hayada alguna de las palabras prohibidas sin que distinga entre mayúsculas y minúsculas:

<%

'*************************************************************
' Fecha: 17/09/2009
' Autor: Kmaxxo
' Función filtro de palabras prohibidas (BlackList)
' compruebaTXT: texto con que que queremos comparar
'*************************************************************
function BlackList(compruebaTXT)
ListaNegra = "palabra 1[#]palabra 2[#]..."
strLN=split(ListaNegra,"[#]")
for contLN=0 to ubound(strLN)
if ( instr(ucase(compruebaTXT), ucase(strLN(contLN)))>0 ) then
BlackList=false
exit function
end if
next
BlackList=true
end function

%>

Ovbiamente se puede mejorar y se puede evoluvionar a que lea palabras de un XML, BBDD, etc. Pero por necesidades del momento la implementé así. Os propongo que nos enseñéis vuestras versiones, así habrá donde elegir dependiendo de las necesidades de cada uno.