Ingrese los caracteres de la imagen:
Campos opcionales
Escriba su nombre:
Escriba su apellido:
Escriba su email:
Seleccionar el código HTML
<% '' Please, dont't remove this '' Code By Juan C. Barreiro '' EnterpriseDreams Solutions '' www.enterprisedreams.net Function Captcha(l) Dim a(), b(), c, d, e, g, n g="a,b,c,d,e,f,g,h,i,j,k,l,m," g=g&"n,o,p,q,r,s,t,u,v,w,x,y,z," g=g&"A,B,C,D,E,F,G,H,I,J,K,L,M," g=g&"N,O,P,Q,R,S,T,U,V,W,X,Y,Z," g=g&"1,2,3,4,5,6,7,8,9,0" d=Split(g,",") Redim a(l-1) : Redim b(l-1) : c=0 : Randomize Do Until c=l : n=Int(Rnd*Ubound(d)) : b(c)=n : a(c)=d(n) : c=c+1 : Loop e=Join(a,"") : Session("captcha_code")=e Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath("/images/transparent.gif") Jpeg.Width = Int((l*15)+40) Jpeg.Height = 50 Jpeg.Canvas.Font.Color = &HFF0000 Jpeg.Canvas.Font.Family = "Courier New" Jpeg.Canvas.Pen.Color = &H000000 Jpeg.Canvas.Pen.Width = 2 Jpeg.Canvas.Brush.Solid = False Jpeg.Canvas.PrintText 10, 10, e Jpeg.Canvas.DrawBar 1, 1, (l*15), 40 Jpeg.SendBinary Set Jpeg = Nothing End Function ' muestra la imagen del captcha y crea una nueva variable de sesión ' con cualquier cantidad de caracteres funciona ' (use 5 a 7 maximo para una mejor usabilidad) ' ha sido testeado con más de 50 caracteres alphanumericos y se muestra muy bien Response.Write Captcha(7) %>
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("captcha_code") <> Session("captcha_code") Then Response.Write "<p>Tu código Captcha no es válido.</p>" Response.Write "<p><a href=javascript:history.go(-1)>Intentalo nuevamente</a></p>" Else '' escriba aquí su código For Each Item In Request.Form If Not Item = "captcha_code" Then Response.Write "<p>" & Item &" = "& Request.Form(Item) & "</p>" End If Next '' al final vacie la sesión para prevenir que se reenvíe el formulario Session.Contents.Remove("captcha_code") End If Else%>
<html> <head> <title>Demo en Línea Captcha (sensible a mayúsculas y minúsculas)</title> </head> <body> <h1>Un simple Captcha usando ASPJpeg y VbScript</h1> <p><img src="captcha.asp"></p> <form action="yourpage.asp" method="post"> <p>Ingrese los caracteres de la imagen:<input type="text" name="captcha_code" value=""></p> <p>Campos opcionales</p> <p>Escriba su nombre:<input type="text" name="name" value=""></p> <p>Escriba su apellido:<input type="text" name="last_name" value=""></p> <p>Escriba su email:<input type="text" name="email" value=""></p> <p><input type="submit" value="enviar"></p> </form>
<%End If>
Esta obra está bajo una licencia de Creative Commons. ASPJpeg es un componente de pago de Persits software
© 2006 - Juan C. Barreiro Web Engineer Developer
