Censurar comentarios en un blog

[Jacobo_mex]

Hola a todos, me gustaría saber si existe la forma de poder censurar los comentarios de usuarios en un blog, como lo que existe en mercadolibre al hacer preguntas que contengan correos o numeros telefonicos, programando en ASP con javascrip o vbscript, o algún otro lenguaje que recomienden.

[luisvasquez]

Aqui te anexo una función que uso para este fin. Solo debes cambiar y/o agregar las palabras prohibidas en el arreglo:

Código:

Function filtrar(byVal strYourString) 
Dim arrBadLanguageWords(13) ' OJO..ADAPTAR AL NUMERO DE PALABRAS DEL ARREGLO
Dim I 
'-------------[ Arreglo de palabras prohibidas ]----------------------- 
arrBadLanguageWords(0)  = "hotmail" 
arrBadLanguageWords(1)  = "yahoo" 
arrBadLanguageWords(2)  = "correo" 
arrBadLanguageWords(3)  = ".com" 
arrBadLanguageWords(4)  = ".net" 
arrBadLanguageWords(5) = "telefono" 
arrBadLanguageWords(6) = "teléfono" 
arrBadLanguageWords(7) = "mensaje" 
arrBadLanguageWords(8) = "texto" 
arrBadLanguageWords(9) = "@" 
arrBadLanguageWords(10) = "arroba" 
arrBadLanguageWords(11) = "hot " 
arrBadLanguageWords(12) = "mail" 
arrBadLanguageWords(13) = "aroba" 



 cadena = strYourString
 For Each I in arrBadLanguageWords 
    cadena = Replace(lcase(cadena),I," EDITADO ")
 Next 

 filtrar = cadena

   
End Function