Função para bloquear caracteres especiais, quem me passou foi o Dark0.
<%@LANGUAGE="VBSCRIPT"%>
<%
'----------------------------------------------------------------------------------
' Função que retorna true caso exista os caracteres escolhidos na str
' Desenvolvido(eheheh) por D.eleete
' Email/MSN(não é 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
next
End function
%>
Chamar função.
<%
if char_error(""& variavel &"") = true then
'ação que voce quer executar caso for encontrado caracteres especiais.
end if
%>
Pergunta
mariofdf
Função para bloquear caracteres especiais, quem me passou foi o Dark0.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.