将reCAPTCHA与经典ASP一起使用

时间:2013-12-20 00:02:56

标签: asp-classic recaptcha

我正在尝试使用这个经典ASP的例子,但我有2个页面,一个是表单页面,另一个是验证页面。我是经典ASP的新手,所以我不确定我是否会出现语法错误。

https://developers.google.com/recaptcha/docs/asp

在我的表单页面上,我正在通过JS加载reCAPTCHA,那部分工作正常。在验证页面上,我有以下代码。

主要代码(我删除了Google不会使用的内容,例如使用ASP生成重新填写表单字段)

  recaptcha_challenge_field  = Request.Form("recaptcha_challenge_field")
  recaptcha_response_field   = Request.Form("recaptcha_response_field")
  recaptcha_public_key       = "hidden" //your public key
  recaptcha_private_key      = "hidden" //your private key

  // returns "" if correct, otherwise it returns the error response
  function recaptcha_confirm(rechallenge,reresponse)

  Dim VarString
  VarString = _
          "privatekey=" & recaptcha_private_key & _
          "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
          "&challenge=" & rechallenge & _
          "&response=" & reresponse

  Dim objXmlHttp
  Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/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

  server_response = ""
  newCaptcha = True
  if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then
    server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field)
    newCaptcha = False
  end if

这是我试图检测验证码是否正确的地方,但它以任何一种方式提交。

    if recaptcha_response_field <> "" AND newCaptcha = False then
// submit form
Else
  Response.Write "Error: Please fill out all form fields correctly."  
End If

1 个答案:

答案 0 :(得分:0)

好像我必须这样做:

If server_response = "" AND newCaptcha = False then
    // Captcha correct 
ElseIf server_response <> "" OR newCaptcha then
    // Captcha incorrect
Else
    // Some other form error
End If