RecorteX

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).

descargar
 
 
	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
 

...