vb点虐 用户登入相关问题

首先要把Label1的属性Visible设置为false，然后双击button1输入：

创新互联公司专注于河曲网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供河曲营销型网站建设，河曲网站制作、河曲网页设计、河曲网站官网定制、小程序设计服务，打造河曲网络公司原创品牌,更为您提供河曲网站排名全网营销落地服务。

Dim rs As New Data.DataView()

Dim rs As New DataView()

conn.DataFile = "users.mdb"

conn.SelectCommand = "select top 1 * from users where name='" txtUserName.Text "'and pass='" txtPassword.Text "'"

rs = conn.Select(DataSourceSelectArguments.Empty)

if rs.Count Then

Label1.Visible=true

Session("name") = Trim(txtUserName.Text)

Session("pass") = Trim( txtPassword.Text)

MsgBox("登录成功", MsgBoxStyle.SystemModal)

Response.Redirect("")

Else

MsgBox("对不起！用户名和密码不正确，请重新输入。", MsgBoxStyle.SystemModal)

End If

VB.NET用户登录，账号密码正确，却提示密码错误！

Private Sub BtOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btok.Click

Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Admin.accdb;Persist Security Info=True")

Dim com As OleDbCommand = New OleDbCommand("select * from 用户名", con)

con.Open()

Dim h1 As OleDbDataReader

Dim table As New DataTable

h1 = com.ExecuteReader()

table.Load(h1)

If txtName.Text = "" Then

MsgBox("请输入用户名", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

ElseIf txtName.Text  "" And txtPasswd.Text = "" Then

MsgBox("请输入密码", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

ElseIf table.Select("用户名='"  txtName.Text  "'").Length  0 Then

If table.Select("用户名='"  txtName.Text  "'")(0)("密码").ToString = txtPasswd.Text Then

MsgBox("成功登陆", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示") Then

Form1.Show()

Me.Visible = False

Exit Sub

Else

MsgBox("密码错误", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

End If

Else

MsgBox("用户名不存在", MsgBoxStyle.OkCancel + MsgBoxStyle.Exclamation, "错误提示")

Exit Sub

End If

table.Clear()

h1.Close()

con.Close()

End Sub

vb点虐 用户登录

哈哈简单哪

第一步：登陆网页代码

第二步：登陆以后判断是否登陆成功

有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样

源代码：

2.就是判断网页是否跳转到了某一页

源代码：

两种方法结合起来用，可以判断网页是否无法连接

分享名称：vb点虐 账号登录 vb登录界面
地址分享：http://scyanting.com/article/ddghioi.html