converte email para ASCII, bloqueando spiders/bots

[xanburzum 169]

Este código converte um email address/string para caracteres ASCII padrão, bloqueando bots/spiders de ler o seu endereço de e-mail, e permite que os visitantes continuem a ler e usar o seu endereço correto por meio de links mailto,retorna uma String ASCII Encoded

 

 

 

function convASCII(entrada)
      retorno= ""
      For i = 1 To Len(entrada)
        retorno = retorno & "" & ASC(Mid(entrada, i, 1)) & ";"
      Next
      convASCII = retorno
    End function

exemplo de uso

 

<A HREF="mailto:<%= convASCII("teste@dominio.com.br") %>"><%= convASCII("teste@dominio.br") %></A>

[Patrique 0]

eu postei algo parecido aqui, fica bem melhor utilizar desta forma.