Olá,
Não consigo fazer a implantação do recaptcha
usando o ASP
clássico.
As dicas do site do google estão me confundindo e eu não consigo implementar. Alguém poderia me passar um "be a bá" com os passos? As chaves eu já tenho!
Olá,
Não consigo fazer a implantação do recaptcha
usando o ASP
clássico.
As dicas do site do google estão me confundindo e eu não consigo implementar. Alguém poderia me passar um "be a bá" com os passos? As chaves eu já tenho!
Se você já tem a chave, você deve substituir no código abaixo:
File name: GoogleCaptcha.asp
<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
%>
<html>
<head>
<script src="https://www.google.com/recaptcha/api.js" async defer></script>
</head>
<body>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Dim recaptcha_secret, sendstring, objXML
' Secret key
recaptcha_secret = "6LfUUwgTAAAAAMQy5tz9u1BMSnCQV1CVh5tuBcEF"
sendstring = "https://www.google.com/recaptcha/api/siteverify?secret=" & recaptcha_secret & "&response=" & Request.form("g-recaptcha-response")
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", sendstring, False
objXML.Send
Response.write "<h3>Response: " & objXML.responseText & "</h3>"
Set objXML = Nothing
End If
%>
<form method="post" action="GoogleCaptcha.asp">
<!-- ///////////// SUA CHAVE ABAIXO ///////////// -->
<div class="g-recaptcha" data-sitekey="---CHAVE--"></div>
<br />
<input type="submit" value="Try">
</form>
</body>
</html>
Em funcionamento: http://1click.lv/googlecaptcha.asp
Fonte: SOen e Esse artigo
Eu fui atrás e consegui fazer. Sò faltava fazer uma validadação para redirecionar de acordo com a resposta do google:
Fiz o seguinte::
Logo após o script: objXML.Send. Digite o texto abaixo:
'Rotina criada por geovan mello, para redirecionar de acordo com sua vontade Dim ProcuraString, ProcuraChar, MinhaPos ProcuraString =objXML.responseText ' String onde procurar ProcuraChar = "false" ' Procurar por "false" MinhaPos = Instr(4, ProcuraString, ProcuraChar, 1)
if MinhaPos = "16" then
response.Redirect("arquivo_de_erro.asp")
end if
Set objXML = Nothing