Função para filtrar caracteres incivilizados no programa asp
<%
Função cutbadchar(str)
badstr = caracteres incivilizados | caracteres |
palavrão=dividir(badstr,|)
Para i = 0 para Ubound (palavrão ruim)
Se instr(str,palavrão(i)) > 0 então
str=Substituir(str,palavrão(i),***)
Terminar se
Próximo
cutbadchar=str
Função final
%>