Salve a tutti,
ricevendo tonnellate di SPAM direttamente dal form dei contatti del mio sito sto cercando di porre rimedio attraverso delle semplici funzioni, voi che filosofia adottate?

Un paio di esempi:

Controllo della validità di una E-Mail:
codice:
Function valida_email(email)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Pattern = "^[A-Za-z0-9._-]+\@[A-Za-z0-9._-]+\.[a-z]{2,4}$"
objRegExp.IgnoreCase = True
valida_email = objRegExp.Test(email)
End Function
Restituisce "False " nel caso non sia ritenuta valida nella sintassi.

Evitare che scrivano con i nostri account del sito stesso (riporto il mio):
codice:
If Right(Request.Form("email"), 14) = "dscommerce.net" Then
Response.redirect("contatti.asp")
End If
Altro modo per evitare i SPAM BOT è l'inserimento di un codice di sicurezza, è vero, ormai molti software riescono ad arginare questa sicurezza attraverso degli OCR o altri algoritmi di lettura delle immagini stesse o dei caratteri, io ho modificato il processo con l'inserimento del proprio IP!

Come ricavare l'IP del visitatore:
codice:
Request.ServerVariables("REMOTE_ADDR")
Quindi il visitatore dovrà compilare il Form con il suo IP, una maggiore sicurezza!

Voi cosa ne pensate, come agite o come agireste?

Grazie a tutti