Asp - Reemplazar o detectar palabras prohibidas badwords

Códigos Asp

Este filtro consigue detectar desde una cadena si esta cadena contiene alguna de las palabras que no permitimos en nuestro sistema. Suele utilizarse mucho en los foros, para prevenir que los usuarios ingresen palabras o terminos. Si un usuario ingresa una palabra no permitida esta será reemplazada por asterisco o caracter " * " Tambien suelen llamarse " Badwords " o palabras malas.

Tutores.org

Inicio > Asp

Visitas: 15,339 - 15/09/2004 1:36:40

CODIGO

<% 'Codigo ofrecido por Tutores.org %>

<%
Dim mi_cadena
mi_cadena = reemplaza_palabras("Filtro para reemplazar o detectar palabras prohibidas o Badwords")
response.write mi_cadena
Function reemplaza_palabras(palabras_entrada)
Dim p_prohibidas, caract_nuevos, longitud, r_caracter, x, i
p_prohibidas = array("Filtro", "Badwords", "prohibidas")
caract_nuevos = palabras_entrada
For i = 0 to uBound(p_prohibidas)
longitud=Len(p_prohibidas(i))
For x=1 to longitud-1
r_caracter=r_caracter & "*"
Next
caract_nuevos = Replace(caract_nuevos, p_prohibidas(i), Left(p_prohibidas(i),1) & r_caracter)
r_caracter=""
Next
reemplaza_palabras = caract_nuevos
End function
%>

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Reemplazar o detectar palabras prohibidas badwords" href="http://www.tutores.org/codigo/1251/" target="_blank">Reemplazar o detectar palabras prohibidas badwords</a>

COMENTARIOS

Aun no existe ningun comentario para este Codigo.

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.