快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb点虐 实现用户登录的简单介绍

vb点虐 用户登入相关问题

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

创新互联公司是一家专业提供岷县企业网站建设,专注与网站设计、成都网站建设H5高端网站建设、小程序制作等业务。10年已为岷县众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。

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

在 visual studio 2008中如何用vb语言编写vb点虐 利用两个TextBox和一个Button来实现用户登录

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("请添写用户名和密码")

ElseIf TextBox1.Text = "admin" And TextBox2.Text = "123" Then

MsgBox("登录成功")

Else

MsgBox("用户名或密码错误")

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox2.PasswordChar = "*"

End Sub

End Class

vb点虐 用户登录

哈哈简单哪

第一步:登陆网页代码

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

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

源代码:

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

源代码:

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


标题名称:vb点虐 实现用户登录的简单介绍
网页地址:http://6mz.cn/article/ddcjooc.html

其他资讯