TextBox1編號
TextBox2帳號
TextBox3密碼
button提交
主頁面:Home.aspx
數據庫:CRM
表:User
下面是在button下的驗證代碼:請參考:
Dim cn As New SqlConnection("data source=(local);initial catalog= CRM;uid=sa;pwd=;integrated security=sspi;")
cn.Open()
Dim 編號 As String
Dim 帳號 As String
Dim 密碼 As String
編號 = Trim(TextBox1.Text)
帳號 = Trim(TextBox2.Text)
密碼 = Trim(TextBox3.Text)
Dim cm As New SqlCommand("select count(*) from User where 編號= @編號 and 帳號= @帳號 and 密碼=@密碼 ", cn)
cm.Parameters.Add("@帳號", SqlDbType.NVarChar, 10)
cm.Parameters.Add("@密碼", SqlDbType.NVarChar, 10)
cm.Parameters.Add("@編號", SqlDbType.NVarChar, 10)
cm.Parameters("@帳號").Value = 帳號
cm.Parameters("@密碼").Value = 密碼
cm.Parameters("@編號").Value = 編號
Dim count As Integer = cm.ExecuteScalar
If count = 1 Then
Response.Redirect("Home .aspx")
Else
Response.Write("<script>alert('登錄失敗!')</script>")
TextBox1.Text=“”
TextBox2.Text=“”
TextBox3.Text=“”
TextBox1.Focus()
End If
小弟獻醜了