正文
vb.net登陆验证 vb登录界面代码
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.Net 怎么验证 SQL2008 数据库的ID与密码
基础类库：
Imports Microsoft.VisualBasic
'执行Access语句的封装类。
Public Class AccessExecClass
Private conn As Data.OleDb.OleDbConnection
Private cmd As Data.OleDb.OleDbCommand
'创建类对象，并连接到数据库。
Sub New()
If openAccess Then
Else
msgbox("open Access Fail.")
End If
End Sub
'创建类对象，并连接到数据库。 '输入带目录名称的数据库文件名称：dbFileName，例如：“\DB数据库\企业数据库.aspx”
Sub New(ByVal dbFileName As String)
If OpenAccess(dbFileName) Then
Else
MsgBox("open Access Fail.")
End If
End Sub
Function OpenAccess() As Boolean
OpenAccess = False
'检验用户的帐号密码是否正确
Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName
provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim database As String
database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath("\数据库.aspx") ";Persist Security Info=true"
conn = New Data.OleDb.OleDbConnection(provider ";" database)
conn.Open()
OpenAccess = True
End Function
Function OpenAccess(ByVal dbFileName As String) As Boolean
OpenAccess = False
'检验用户的帐号密码是否正确
Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName
provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim database As String
database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath(dbFileName) ";Persist Security Info=true"
conn = New Data.OleDb.OleDbConnection(provider ";" database)
conn.Open()
OpenAccess = True
End Function
'关闭数据库。
Sub CloseAccess()
cmd = Nothing
conn.Close()
End Sub
'执行一条Access语句，执行成功就返回True。
Function ExecAccessString(ByVal AccessStr As String) As Boolean
cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)
cmd.ExecuteNonQuery()
'Dim aa As Data.OleDb.OleDbDataReader = cmd.ExecuteReader
ExecAccessString = True
End Function
'返回读取到的数据，注意是用地址传递方式返回
Sub ExecAccessString(ByVal AccessStr As String, ByRef AccessReader As Data.OleDb.OleDbDataReader)
cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)
cmd.ExecuteNonQuery()
AccessReader = cmd.ExecuteReader
End Sub
End Class
登陆代码：
Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim wl As New WebLog '用户登录记录开始，仅对购买了Log 功能的用户，才开放此功能，否则不会实际记录Log
Dim sql As String
Dim aDB As New AccessExecClass
Dim mypw As String
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
Label4.Visible = False
'没有输入时,不能进行登陆
If TextBox1.Text = "" Then
Label1.Visible = True
Return
End If
If TextBox2.Text = "" Then
Label2.Visible = True
Return
End If
If TextBox3.Text = "" Then
Label3.Visible = True
Return
End If
If TextBox3.Text = TextBox4.Text Then
Else
Label3.Visible = True
Return
End If
Dim iRnd As Integer = Rnd(10) * 100
TextBox3.Text = ""
TextBox4.Text = iRnd.ToString
'Dim iRnd As Integer = Rnd(10) * 100
'注意:此处需要加入防止注入分析,包含'的肯定是特别语句,讲拒绝.
If TextBox1.Text.IndexOf("'") 0 Or TextBox2.Text.IndexOf("'") 0 Then
TextBox1.Text = "不能输入非法字符,将强制清空"
TextBox2.Text = ""
Else
Dim pw As New MD5EnCode(13, 19) ' '2次加密
sql = "select 权限组号,ID , 密码 from 编辑人数据 where 编辑姓名='" + TextBox1.Text + "'"
Dim aa As Data.OleDb.OleDbDataReader '= cmd.ExecuteReader
aDB.ExecAccessString(sql, aa)
If aa.Read() Then
'密码正确()
'sql = aa(2)'需要特别注意：只能单向解密，不能直接转换
mypw = pw.simDeCode(pw.simDeCode(aa(2)))
If TextBox2.Text = mypw Then
Session("LOGIN_Name") = TextBox1.Text '设置登录后的用户名称
Session("Login_Group") = aa(0) 'cmd.ExecuteScalar '设置登录后的权限级别
Session("Login_ID") = aa(1) 'cmd.ToString
'cmd = Nothing
'conn.Close()
Call wl.NewLog("登录", "管理员成功登录")
Response.Redirect("../WebManages/Default.ASPX")
Else
'密码错误()
sql = sql.Replace("'", "【单引号】")
sql = sql.Replace(",", "【逗号】")
Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")
Label4.Visible = True
End If
Else
'密码错误()
sql = sql.Replace("'", "【单引号】")
sql = sql.Replace(",", "【逗号】")
Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")
Label4.Visible = True
End If
End If
End Sub
相关问答
Q1: VB.NEt+access登陆验证
vb.net登陆验证我前台用vb.net登陆验证的是PB，后台用的SQL Server2000
语言选择的是B语言 不知道ACCESS和SQL相差大不大，但我想数据库应该都差不多这样操作吧~ 呵呵 （大致是这样的思路，可以仿着自己动手写一下，希望有帮助到vb.net登陆验证你。）
string s1,a,s2
s1=sle_1.text // 用户名
s2=sle_2.text // 密码
select password
into :a
//将数据库中的密码数据存 放在变量a中（因为PB中不能直接使用SQL语句）
from idpass
// 数据库中设置用户名和密码的表，名为idpass
where id=:s1
//如果输入的用户名与数据库中的用户名一致，则返回该表中的密码数据
using sqlca;
if s1="" or s2="" then
messagebox("出错提示","输入信息不能为空！请重新输入！",exclamation!,okcancel!,2)
else
if s1 'ht**' and s1 'HT**' then
messagebox("出错提示","输入用户名不对（不区分大小写）！请重新输入！",exclamation!,okcancel!,2)
else
if s2 '6***' AND s2 '6***' then
messagebox("出错提示","输入密码不对（不区分大小写）！请重新输入！",exclamation!,okcancel!,2)
else
open(w_qi***a)
close(parent)
end if
end if
end if
既然你用的也是B语言，那后面的应该也看得懂吧，我就不多介绍vb.net登陆验证了哈~ 呵呵，希望有帮助到你。
晕，刚刚才看到你用的前台是.NET，是制作动态网站啊~ 呵呵 前面的就当我没说吧，我也不删了，也许别人有需要，就占楼主一个位置啦，还望见谅哈！呵呵.
Q2: VB.NET登陆界面。要验证登录用户名和密码是否正确。登陆后有管理员和普通用户权限判断。管理员只能登录一
将用户名vb.net登陆验证，密码vb.net登陆验证，用户类型存在数据库中vb.net登陆验证，登陆时比较输入的值是否与数据库相同即可。
vb.net登陆验证的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb登录界面代码、vb.net登陆验证的信息别忘了在本站进行查找喔。
