13518219792
首先要把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
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
哈哈简单哪
第一步：登陆网页代码
第二步：登陆以后判断是否登陆成功
有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样
源代码：
2.就是判断网页是否跳转到了某一页
源代码：
两种方法结合起来用，可以判断网页是否无法连接
