proteger email

[Patrique 0]

Fala galera, vou postar uma função aqui para proteger email de spammers

 

a função é simples

 

<%
Function ASCIICode(str)
	Dim strOut, i
	strOut = ""
	For i = 1 To Len(str)
		strOut = strOut & "" & ASC(Mid(str, i, 1)) & ";"
	Next
	ASCIICode = strOut
End function
%>
<%
Response.Write "<a href=""" & AsciiCode("patrique@riosulnet.com") & """>" & AsciiCode("patrique@riosulnet.com") & "</a>"
%>

[hargon 64]

Muito bom Patrique. Parabéns.

[Ted k' 126]

O amigo do avatar meio "diferente" está "soltando as mangas", e eu gostei mesmo do script, a simplicidade é que faz funcionar mais limpo, boa man, parabéns!!

[Patrique 0]

vou soltar 1 script esculachante por semana... se preparem hehehehehehe