Madness.nl | Scripts - Anti-SPAM functie

Hoofdmenu

•  Home
•  ASP Tips
•  Artikelen
•  ASP Lessen
•  Scripts
•  Opleidingen
•  Resources
•  Madness Forum
•  Nieuws
•  Adverteren?

Members

Inloggen
Registreer je nu!
Wachtwoord vergeten?

Laatste reacties

26-11 ASP en formulieren
09-06 ASP en databases
14-03 SQL de basis
28-02 Formulier > E-mail
07-08 Nieuwe versie Madne...

Madness.nl Forum

21:41 Te mooi om waar te ..
08:47 application
08:46 Domein Hosting
08:45 USB webserver
08:45 Eigen Scripts
08:44 Database paging
10:21 Even voorstellen?
10:18 Re: It agree, it is..
10:16 ASp.NET MVC
20:42 GPS-applicatie VB v..

Anti-SPAM functie

Terug naar scripts

Auteur: Ramon
Geplaatst op: 5-2-2003
Laatste update: 17-8-2003 18:27:47
Gerelateerd artikel: Anti-SPAM functie
Aantal keer bekeken: 25481
Download script (zip file)

Anti-SPAM functie

Omschrijving: Met deze functie kan je e-mailadressen op websites beveiligen tegen e-mailspiders. Deze spiders verzamelen e-mailadressen op websites voor SPAM. Voor meer info zie het artikel.

Script:

Pagina: Encode.asp

<%
' Anti-spam function for diplaying e-mail
' Copyright 2003 (c) Ramon Siem A Joe <br>

function nospam(strEmail, strText) 
	
	for i = 1 to Len(strEmail)
	     strEmailEncoded = strEmailEncoded & "&#" & asc(Mid(strEmail, i, 1)) & ";"
	next
	
	if trim(strText) = "" then
		strText = strEmailEncoded
	else
		for i = 1 to Len(strText)
	     strTextEncoded = strTextEncoded & "&#" & asc(Mid(strText, i, 1)) & ";"
		next
	end if
	
	strMailPart = split(strEmailEncoded,"&#64;",-1,1)

	nospam = "<script type=""text/Javascript"">"
	nospam = nospam & "var user = """ & strMailPart(0) & """;"
	nospam = nospam & "var domain = """& strMailPart(1) & """;"
	nospam = nospam & "var mail = user + ""&#64;"" + domain;"
	nospam = nospam & "var linkText = """& strText & """;"
	nospam = nospam & "document.write(""<a href=\""&#109;&#97;&#105;&#108;&#116;&#111;&#58;""+mail+""\"">""+linkText+""</a>"");"
	nospam = nospam & "</script>"

end function

%>

Reacties

Reacties: Anti-SPAM functie (Aantal reacties: 3 )
» Nieuwe reactie	View Mode : \| \|

Door: Highzone

Sep 22, 01:41

de regel onderaan :
nospam = nospam & "var linkText = """& strText & """;"

wordt wel :
nospam = nospam & "var linkText = """& strTextEncoded & """;"

Dan is de tekst dat wordt aangeklikt ook gecodeerd !

(Reply...)

Door: Highzone

Feb 14, 21:14

Euh hoe eigenlijk te gebruiken, zo ?
email = rs("email")
text = rs("text")

nospam(Email, Text) ? Gaat niet bij mij.

(Reply...)

Door: Ramon (Admin)

Feb 15, 21:01

http://www.madness.nl/artikel/artikel.asp?aid=17
Daar staat de meeste info toch wel in.

(Reply...)

Scripts

Overzicht
Script insturen

Zoeken

Zoekterm(en):