Weblogs Código

RecorteX

» antispam
73 usuarios y 243 recortes de código
Usuario

Contraseña
Crear cuenta
Estás viendo los recortes de la etiqueta antispam

RSS
Recortes: 1

Etiquetas relacionadas:
asp
forms

anti-Spam para forms en ASP

Se trata de saber si previamente a la petición POST ha habido una petición GET de manera que denote un comportamiento humano, y además introducir algunos valores en cookies, para que no puedan hacer peticiones a saco con un robot cutre (tendrían que currarse un robot que gestione cookies).
 
 
	bSubmited  = (Request.ServerVariables("REQUEST_METHOD")="POST")
	bFromHere1 = (InStr(Request.ServerVariables("HTTP_REFERER"), "contacto.asp")>0)
	bFromHere2 = (Request.ServerVariables("REMOTE_ADDR")=Session("cv"))
	bFromHere3 = (Request.ServerVariables("REMOTE_ADDR")=Request.Cookies("cv"))
 
	if not bSubmit then
		Response.Cookies("cv") = Request.ServerVariables("REMOTE_ADDR")
		Session("cv")          = Request.ServerVariables("REMOTE_ADDR")
	end if
 
	if bSubmited and bFromHere1 and bFromHere2 and bFromHere3 then
		' todo
        end if
 
...
Proyecto: Juanjo Navarro, 2006 - Diseño: Albin