3次無效登錄嘗試後顯示recapacha？

Question

Private Sub CheckLogin() 

If Failed == 3 
    'show recapacha 
    If Page.IsValid Then 
    CheckLogin2() 
    End If 
End If 
Else 
Try 
    'login code 
    ' on password fail Failed+1 
End Try 
End If 

我有一個登錄表單，但我不想顯示recapacha，直到有3個無效的登錄嘗試。我不確定最好的方式來做到這一點。以上是一些模擬代碼，可以瞭解我的目標。

Answer 1

Private Sub CheckLogin() 

    'after the three attempts 
    If (LoginCount = 3) Then 
     'show captcha code 
     Return 
    End If 
    'your login code if found unsuccessful increase the counter 
    LoginCount += 1 

End Sub 

物業，以增加計數器，並檢查登錄數量 嘗試

Public Property LoginCount() As Integer 
    Get 
     If (ViewState("LoginCount") = Nothing) Then 
      ViewState("LoginCount") = 0 
     End If 
     Return DirectCast(ViewState("LoginCount"), Integer) 
    End Get 
    Set(ByVal value As Integer) 
     ViewState("LoginCount") = value 
    End Set 
End Property