bloquear caracteres especiais

[mariofdf]

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
%>