Question

求用VB语言写的ASP.NET用户登陆代码

求用VB语言写的ASP.NET用户登陆代码
在*.asp.vb里面的 登陆验证 代码
包括数据库链接(sql) 和登陆验证

Answer 1

登录页面：Login.aspx
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
小弟献丑了