<% Option Explicit
%>
<%
dim recaptcha_challenge_field, recaptcha_response_field
dim recaptcha_private_key, recaptcha_public_key
recaptcha_private_key = "6LckiAgAAAAAANXIGu5pbJriOpg-l2B11_h-uiBJ"
recaptcha_public_key = "6LckiAgAAAAAAAMJcQrDF6x05jUD28Ti6lVapafj "
' returns string the can be written where you would like the reCAPTCHA challenged placed on your page
function recaptcha_challenge_writer(publickey)
recaptcha_challenge_writer = "" & _
"" & _
""
end function
function recaptcha_confirm(privkey,rechallenge,reresponse)
' Test the captcha field
Dim VarString
VarString = _
"privatekey=" & privkey & _
"&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
"&challenge=" & rechallenge & _
"&response=" & reresponse
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "POST", "http://api-verify.recaptcha.net/verify", False
objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXmlHttp.send VarString
Dim ResponseString
ResponseString = split(objXmlHttp.responseText, vblf)
Set objXmlHttp = Nothing
if ResponseString(0) = "true" then
' They answered correctly
recaptcha_confirm = ""
else
' They answered incorrectly
recaptcha_confirm = ResponseString(1)
end if
end function
%>
Affiliate Information for Career Test by CareerFitter
|
|||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||
