Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Gente,
Achei um codigo de como fazer validaçao de formulario via imagem, soh q até agora nao funfo.. nao sei oq fazer e peço q me ajudem...
o codigo eh esse
img.asp
<%
Function aleatorio(q)
'Função para gerar conjunto de caracteres aleatórios
dim a, i, s
for i = 48 to 90 : if i < 58 or i > 64 then : a = a & chr(i) & " " : end if : next : a = split(lcase(a) & a)
randomize
for i = 1 to q : s = s & a( int(ubound(a) * rnd) ) : next
aleatorio = s
end function
'Aqui chamamos a função e armazenamos o resultado da mesma em uma sessão.
'Troque o 6 pela quantidade de caracteres que deseja sortear.
Session("Senha") = aleatorio(6)
'Response.write aleatorio(6)
'Cria o objeto Jpeg
dim oJpeg, sPath
Set oJpeg = Server.CreateObject("Persits.Jpeg")
'Imagem usada como fundo no caso mandei um JPG qualquer com o nome de imagem
sPath = Server.MapPath("imagemFundo.jpg")
'Abre a imagem existente
oJpeg.Open sPath
'Salva a imagem. Aqui foi usada a pasta teste, que obrigatoriamente deve ter permissão de escrita.
'Altere-a pela pasta onde será salva a imagem.
oJpeg.Save Server.MapPath("captcha.jpg")
'Define altura e largura da imagem.
oJpeg.Width = 200
oJpeg.Height = 40
with oJpeg.Canvas
'Define cor, fonte, tamanho e tipo de qualidade do texto
.Font.Color = &H800000
.Font.Family = "Verdana"
.Font.Size = "36"
.Font.Bold = True
.Font.Quality = 4
'Desenha as bordas da imagem.
.Pen.Color = &H800000
.Pen.Width = 1
.Brush.Solid = False
.DrawBar 1, 1, oJpeg.Width, oJpeg.Height
.PrintText 30, 0, "" & Session("Senha") & ""
end with
'Envia a imagem para o navegador.
oJpeg.SendBinary
'Remove a instância do objeto da memória
Set oJpeg = Nothing
%>
valida.asp
<%
' Verifica se o valor digitado no campo do formulário é o mesmo que gerou a imagem no script img.asp
if request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.Form("txt_key") = Session("Senha") then
Response.Write "Formulário confirmado!"
else
Response.Write "Preencha o campo com os caracteres da imagem!"
end if
end if
%>
<form name="form1" method="post" action="">
<input name="txt_key" type="text" id="txt_key" size="10">
<input type="submit" name="Submit" value="Enviar">
<br />
<img src="img.asp">
</form>
e o erro eh esse:
Persits.Jpeg.1 error '800a0002'
The system cannot find the file specified.
/teste/img.asp, line 23
se puderem me ajudar ficarei grato =D
Carregando comentários...