[Resolvido] Função para avisar sobre caracteres indesejados

[d.eleete 0]

Salve galega.. Bem esta função retorna true ou false e testa a string procurando por caracteres que você não deseja que estejam lá :)

 

<%@LANGUAGE="VBSCRIPT"%><%'----------------------------------------------------------------------------------' Função que retorna true caso exista os caracteres escolhidos na str' Desenvolvido(eheheh) por D.eleete' Email/Msn(ñ é suporte): deleeteweb@hotmail.com'-----------------------------------------------------------------------------------Function char_error(str)	Dim blocked, arr_blocked, x		' Na variavel abaixo (blocked)	devem ser inseridos os caracteres que não deve existir na string	blocked = "\, /, :, *, ?, "&Chr(34)&", <, >, |, ', !, @, #, $, %, ¨, &, *, (, ),"		arr_blocked = split(blocked,", ")		for x = lbound(arr_blocked) to Ubound(arr_blocked)  if instr(str, arr_blocked(x)) > 0 then 	 char_error = true 	 exit for  Else 	 char_error = false  End if	nextEnd function%>

Como utiliza-la:

 

<%Response.write(char_error("abcde"))'retorna false (não possue nenhum dos caracteres especificados)%>

<%Response.write(char_error("@bd*"))'retorna true (possue caracteres indesejados)%>

A função pode ser utilizada pra outros fins, como achar palavras e caracteres em string :)