Интеграция капчи в.NET форму электронной почты

У меня проблемы с интеграцией капчи в эту форму, которую я использую. У меня нет опыта работы с.NET, поэтому любая помощь будет принята с благодарностью! Я наконец нашел контактную форму, которая работала (при использовании адреса электронной почты из моего личного домена - кажется, не работает с Gmail по некоторым причинам).

Мне удалось сделать его стилизованным и функциональным, но ему нужна капча, чтобы остановить проникновение спама. Я нашел готовую форму капчи на http://www.tipstricks.org/ которая сама по себе прекрасно работает, но на самом деле я не уверен, как его интегрировать с формой ниже. Я могу заставить CAPTCHA работать самостоятельно и форму работать самостоятельно, но я не могу понять, как заставить CAPTCHA проверять и отправлять форму.

Как сейчас, когда я заполняю форму и отправляю ее, я получаю зеленое подтверждение о том, что сообщение было отправлено, но красное сообщение о том, что CAPTCHA не удалось. Сообщение проходит независимо от того, что заполнено в поле CAPTCHA.

Откровенно говоря, я буду счастлив с любым кодом CAPTCHA, а не только с тем, что я скачал. Если у кого-то из вас есть немного кода или способ включить CAPTCHA в эту форму, я с радостью воспользуюсь им.

Ниже то, что я использую для формы. Пожалуйста, дайте мне знать, если мне нужно предоставить более подробную информацию. Как я уже сказал, любая помощь будет принята с благодарностью!

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="test.aspx.vb" Inherits="custom_aspnet_test" %>
<%@ Import Namespace="System.Web.Mail" %>
<script runat="server">   

   Sub btnSubmit_Click(sender as object, e as EventArgs)

        Dim objEMail As New MailMessage()

        objEMail.To = "myemail@email.com"
        objEmail.From = txtFrom.Text

  objEmail.Subject = "Contact Form"
  objEmail.Body = "IP: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Date/Time: " &Now & vbcrlf & "Name: " &txtName.Text & vbcrlf & "Email: " &txtFrom.Text & vbcrlf & "Phone: " &txtPhone.Text & vbcrlf & "Comments: " &txtBody.Text
  objEmail.Priority = MailPriority.High
        SmtpMail.SmtpServer = "smtp.address.com"

  try
   SmtpMail.Send(objEMail)
   Response.Write("<font color='green'><strong>Thank you for contacting us. We will respond shortly.</strong></font>") 

  catch exc as Exception
   Response.Write("<font color='red'><strong>Send failure: </strong></font>" + exc.ToString())
  End Try
    End Sub
</script>
<html>
<head>
<title>Contact Form</title>
</head>
<body>

<form id="ContactMain" runat="server">
<table border="0" align="center" cellpadding="3" cellspacing="0" width="100%">
     <tr>
      <td valign="top" class="form-input" colspan="2">
          <label class="form-label-left">Name</label>
      <asp:TextBox runat="server" class="form-textbox" ID="txtName"></asp:TextBox>      
      </td>
     </tr>
     <tr>
       <td valign="top" class="form-input" colspan="2">
          <label class="form-label-left">Email <font color="red">*</font></label>
            <asp:TextBox runat="server" class="form-textbox" ID="txtFrom" ></asp:TextBox>    
            <asp:RequiredFieldValidator runat=server 
               ControlToValidate=txtFrom
               ErrorMessage="Please enter a valid Email address">
            </asp:RequiredFieldValidator>                    
        </td>
     </tr>
     <tr>
      <td valign="top" class="form-input" colspan="2">
          <label class="form-label-left">Phone</label>        
              <asp:TextBox runat="server" class="form-textbox" ID="txtPhone" ></asp:TextBox>
    </td>
     </tr>
     <tr>
       <td valign="top" class="form-input">
          <label class="form-label-left">Comments <font color="red">*</font></label>
         <asp:TextBox runat="server" TextMode="MultiLine" rows="6" cols="40" class="form-textarea" ID="txtBody"></asp:TextBox>
         <asp:RequiredFieldValidator runat=server 
            ControlToValidate=txtBody
            ErrorMessage="Please let us know what we can help you with">
         </asp:RequiredFieldValidator>    
       </td>
       </tr>
       <tr>
        <td colspan="2" valign="top" class="form-line">
            <asp:PlaceHolder ID="phTest" runat="server" Visible="true">
            <img src="captcha.ashx" id="imgCaptcha" />&nbsp;<a href="javascript:void(0);" onclick="RefreshImage('imgCaptcha');">Refresh</a><br />
            Write the characters in the image above<br />
            <asp:TextBox ID="txtCaptcha" runat="server"></asp:TextBox><br />
            <asp:Button Runat = server ID = btnSubmit OnClick = btnSubmit_Click Text = "Submit" class="form-submit-button"></asp:Button>
            </asp:PlaceHolder>
            <asp:PlaceHolder ID="phResult" runat="server" Visible="false">
            <p><asp:Label ID="lblResult" runat="server" Font-Bold="true"></asp:Label></p>
            <asp:Button ID="btnRetry" runat="server" Text="Take another test" />
            </asp:PlaceHolder>
        </td>
     </tr>
     </table>
</form>

</body>
</html>

Вот код из файла "CodeFile", на который ссылается:

Partial Class custom_aspnet_test
    Inherits System.Web.UI.Page

    Protected Sub btnSubmit_Click(sender As Object, e As System.EventArgs) Handles btnSubmit.Click
        If IsNothing(Session("ASPCAPTCHA")) OrElse Session("ASPCAPTCHA").ToString.Trim.Length = 0 Then
            lblResult.Text = "This test has expired."
            lblResult.ForeColor = Drawing.Color.Red
        Else
            Dim TestValue As String = txtCaptcha.Text.Trim.ToUpper(System.Globalization.CultureInfo.CreateSpecificCulture("en-US"))
            If StrComp(TestValue, Session("ASPCAPTCHA").ToString.Trim, CompareMethod.Text) = 0 Then
                lblResult.Text = "CAPTCHA PASSED"
                lblResult.ForeColor = Drawing.Color.Green
            Else
                lblResult.Text = "CAPTCHA FAILED"
                lblResult.ForeColor = Drawing.Color.Red
            End If
            '//IMPORTANT: You must remove session value for security after the CAPTCHA test//
            Session.Remove("ASPCAPTCHA")
            '//////////
        End If

        phTest.Visible = False
        phResult.Visible = True
    End Sub

    Protected Sub btnRetry_Click(sender As Object, e As System.EventArgs) Handles btnRetry.Click
        txtCaptcha.Text = ""
        phTest.Visible = True
        phResult.Visible = False
    End Sub
End Class
Источник

1 ответ

Решение

Проблема в том, что у вас есть два разных места, где вы отвечаете на btnSubmit. Один из них находится в теге script в файле.aspx. Вот где вы отправляете письмо. Другое место в файле кода в методе btnSubmit_Click. Именно здесь вы проверяете CAPTCHA.

У вас есть кнопка, чтобы вызвать два события. Оба они стреляют, поэтому вы всегда получаете оба результата.

Вам нужно переместить код электронной почты в btnSubmit_Click в код, за которым успешно выполняется CAPTCHA.

Вот обновленный код с методом отправки электронной почты, который вызывается при прохождении CAPTCHA. Кроме того, вам необходимо удалить код отправки электронной почты из файла.aspx и удалить этот атрибут из объявления кнопки btnSubmit: OnClick = btnSubmit_Click

Imports System.Web.Mail

Partial Class test
    Inherits System.Web.UI.Page

    Protected Sub btnSubmit_Click(sender As Object, e As System.EventArgs) Handles btnSubmit.Click
        If IsNothing(Session("ASPCAPTCHA")) OrElse Session("ASPCAPTCHA").ToString.Trim.Length = 0 Then
            lblResult.Text = "This test has expired."
            lblResult.ForeColor = Drawing.Color.Red
        Else
            Dim TestValue As String = txtCaptcha.Text.Trim.ToUpper(System.Globalization.CultureInfo.CreateSpecificCulture("en-US"))
            If StrComp(TestValue, Session("ASPCAPTCHA").ToString.Trim, CompareMethod.Text) = 0 Then
                lblResult.Text = "CAPTCHA PASSED"
                lblResult.ForeColor = Drawing.Color.Green
                ' The CAPTCHA passes so send the email
                Me.SendEmail()
            Else
                lblResult.Text = "CAPTCHA FAILED"
                lblResult.ForeColor = Drawing.Color.Red
            End If
            '//IMPORTANT: You must remove session value for security after the CAPTCHA test//
            Session.Remove("ASPCAPTCHA")
            '//////////
        End If

        phTest.Visible = False
        phResult.Visible = True
    End Sub

    ''' <summary>
    ''' This was the code you had in the aspx file.
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub SendEmail()
        Dim objEMail As New MailMessage()

        objEMail.To = "myemail@email.com"
        objEMail.From = txtFrom.Text

        objEMail.Subject = "Contact Form"
        objEMail.Body = "IP: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "Date/Time: " & Now & vbCrLf & "Name: " & txtName.Text & vbCrLf & "Email: " & txtFrom.Text & vbCrLf & "Phone: " & txtPhone.Text & vbCrLf & "Comments: " & txtBody.Text
        objEMail.Priority = MailPriority.High
        SmtpMail.SmtpServer = "smtp.address.com"

        Try
            SmtpMail.Send(objEMail)
            Response.Write("<font color='green'><strong>Thank you for contacting us. We will respond shortly.</strong></font>")

        Catch exc As Exception
            Response.Write("<font color='red'><strong>Send failure: </strong></font>" + exc.ToString())
        End Try
    End Sub


    Protected Sub btnRetry_Click(sender As Object, e As System.EventArgs) Handles btnRetry.Click

        txtCaptcha.Text = ""
        phTest.Visible = True
        phResult.Visible = False
    End Sub


End Class
Источник
Другие вопросы по тегам