資料表增加一個欄位 紀錄登入失敗次數 失敗一次+1次
登入時增加條件 失敗次數超過3次不能登入
設計一個管理頁面 顯示所有失敗次數遭過3次的帳號
讓管理員能解除封鎖 讓失敗次數歸零

如果，您是在建專案的時候，直接使用MemberShip或者Identity，由系統幫您產生資料庫
那麼對於資料存取不知如何處理，登入驗證不知如何處理，就會有困擾

如果，您是使用自己的資料庫，驗證是自己撰寫的程式來驗證使用者輸入的帳號密碼
這樣，接下來的問題就不難了
同＃1的大大所說，資料表中新增一個欄位，然後每次登入失敗就+1，登入成功就重設為0
登入的時候，增加一個檢查，如果該欄位數字>=3，就傳回登入次數超過3次，請聯絡系統人員解除
系統人員解除，也就是把資料表的該欄位，重設為0

所以，如果您該開始寫系統，用的是內建幫您建立的資料庫
小喵建議您，或許您可以改為使用自己的資料庫，自己撰寫登入驗證

您可以參考以下這一篇
https://dotblogs.com.tw/topcat/archive/2008/03/05/1237.aspx

有問題請再提出唷
^_^

我是用asp.net自己建的資料庫
我是新手所以程式不太會寫
那要怎麼抓取資料庫的資料+1呢?

一句Sql語法就可以囉
類似以下這樣
If 登入驗證失敗 Then SqlTxt = "" SqlTxt &= " UPDATE [使用者資料表] " SqlTxt &= " SET LoginCnt = LoginCnt +1 " SqlTxt &= " WHERE UserID = @UserID " SqlTxt &= " " Conn.ExecuteNonQuery(SqlTxt) End If

^_^

sqlTxt是不是要宣告甚麼啊?
LohinCnt是不是自己宣告的錯誤名稱
@UserId是不是某個使用者的名稱?

sqlstring = ""
sqlstring &= "UPDATE [member]"
sqlstring &= "SET error = error+1"
sqlstring &= "WHERE account = R.Cells(0)"
cn.Open()
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()

他出現錯誤
ExecuteNonQuery: CommandText property has not been initialized

R.Cells(0)必須用參數的方式給予值
sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = error+1" sqlstring &= "WHERE account = @account" cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0) cn.Open() cm.Connection = cn cm.ExecuteNonQuery() cn.Close()

For Each R As TableRow In GridView1.Rows If Login1.UserName = R.Cells(0).Text Then If Login1.Password = R.Cells(1).Text Then cn.Open() cm.Connection = cn cm.CommandText = "Insert Into login (account , logintime ) Values ('" & R.Cells(0).Text & "' , '" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & " ')" cm.ExecuteNonQuery() cn.Close() Session("Authority") = R.Cells(3).Text If R.Cells(3).Text = "manager" Then Response.Redirect("Default3.aspx") Else Response.Redirect("Default2.aspx") End If Else sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = error+1" sqlstring &= "WHERE account = @account" cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0) cn.Open() cm.Connection = cn cm.ExecuteNonQuery() cn.Close() End If End If Next

我完整的判斷程式在這邊
上面是帳號正確密碼正確跑的
下面是帳號正確密碼錯誤跑的
cm.ExecuteNonQuery()這一行還是跑出錯誤
Object must implement IConvertible.

改成這樣試試
sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = error+1" sqlstring &= "WHERE account = @account" cn.Open() cm.Connection = cn cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0) cm.ExecuteNonQuery() cn.Close()

還是一樣的問題
程式頁面給的錯誤是Failed to convert parameter value from a DataControlFieldCell to a String.

改第9行
sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = error+1" sqlstring &= "WHERE account = @account" cn.Open() cm.Connection = cn cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0).Text cm.ExecuteNonQuery() cn.Close()

解決這個問題了
接下來我是不是只要在前面輸入帳號正確時
判斷它的error次數有沒有>=3
如果有就顯示label:錯誤次數過多請聯絡之類的?

情況一：
error >= 3
禁止登入，給予登入者警告訊息，且需通知管理員解除封鎖方能重新開通
情況二：
error < 3
允許登入，若error > 0則登入成功後必須將error的值歸零
情況三：
error = 0
允許登入，無需做任何動作

For Each R As TableRow In GridView1.Rows If Login1.UserName = R.Cells(0).Text Then If Login1.Password = R.Cells(1).Text Then If R.Cells(4).Text >= 3 Then Me.Label1.Text = "錯誤次數過多請聯絡本公司!" ElseIf R.Cells(4).Text < 3 Then sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = 0" sqlstring &= "WHERE account = @account" cn.Open() cm.Connection = cn cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0).Text cm.ExecuteNonQuery() cn.Close() ElseIf R.Cells(4).Text = 0 Then cn.Open() cm.Connection = cn cm.CommandText = "Insert Into login (account , logintime ) Values ('" & R.Cells(0).Text & "' , '" & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & " ')" cm.ExecuteNonQuery() cn.Close() Session("Authority") = R.Cells(3).Text If R.Cells(3).Text = "manager" Then Response.Redirect("Default3.aspx") Else Response.Redirect("Default2.aspx") End If End If Else sqlstring = "" sqlstring &= "UPDATE [member]" sqlstring &= "SET error = error+1" sqlstring &= "WHERE account = @account" cn.Open() cm.Connection = cn cm.CommandText = sqlstring cm.Parameters.Add("@account", SqlDbType.VarChar) cm.Parameters("@account").Value = R.Cells(0).Text cm.ExecuteNonQuery() cn.Close() End If End If Next
現在問題是程式改成這樣
就算輸入正確的帳號密碼他也不能進去

你的R.Cells(4).Text < 3將error歸零後
仍要讓使用者登入