vb.net判斷用戶密碼 vb獲取用戶名

VB.NET登陸界面。要驗(yàn)證登錄用戶名和密碼是否正確。登陸后有管理員和普通用戶權(quán)限判斷。管理員只能登錄一

將用戶名，密碼，用戶類型存在數(shù)據(jù)庫中，登陸時(shí)比較輸入的值是否與數(shù)據(jù)庫相同即可。

成都創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、黃岡網(wǎng)絡(luò)推廣、成都小程序開發(fā)、黃岡網(wǎng)絡(luò)營銷、黃岡企業(yè)策劃、黃岡品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；成都創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供黃岡建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18980820575，官方網(wǎng)址：muchs.cn

VB.Net 怎么驗(yàn)證 SQL2008 數(shù)據(jù)庫的ID與密碼

基礎(chǔ)類庫：

Imports Microsoft.VisualBasic

'執(zhí)行Access語句的封裝類。

Public Class AccessExecClass

Private conn As Data.OleDb.OleDbConnection

Private cmd As Data.OleDb.OleDbCommand

'創(chuàng)建類對(duì)象，并連接到數(shù)據(jù)庫。

Sub New()

If openAccess Then

Else

msgbox("open Access Fail.")

End If

End Sub

'創(chuàng)建類對(duì)象，并連接到數(shù)據(jù)庫。 '輸入帶目錄名稱的數(shù)據(jù)庫文件名稱：dbFileName，例如：“\DB數(shù)據(jù)庫\企業(yè)數(shù)據(jù)庫.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

'檢驗(yàn)用戶的帳號(hào)密碼是否正確

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("\數(shù)據(jù)庫.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

'檢驗(yàn)用戶的帳號(hào)密碼是否正確

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

'關(guān)閉數(shù)據(jù)庫。

Sub CloseAccess()

cmd = Nothing

conn.Close()

End Sub

'執(zhí)行一條Access語句，執(zhí)行成功就返回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

'返回讀取到的數(shù)據(jù)，注意是用地址傳遞方式返回

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 '用戶登錄記錄開始，僅對(duì)購買了Log 功能的用戶，才開放此功能，否則不會(huì)實(shí)際記錄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

'沒有輸入時(shí),不能進(jìn)行登陸

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 = "不能輸入非法字符,將強(qiáng)制清空"

TextBox2.Text = ""

Else

Dim pw As New MD5EnCode(13, 19) ' '2次加密

sql = "select 權(quán)限組號(hào),ID , 密碼 from 編輯人數(shù)據(jù) where 編輯姓名='" + TextBox1.Text + "'"

Dim aa As Data.OleDb.OleDbDataReader '= cmd.ExecuteReader

aDB.ExecAccessString(sql, aa)

If aa.Read() Then

'密碼正確()

'sql = aa(2)'需要特別注意：只能單向解密，不能直接轉(zhuǎn)換

mypw = pw.simDeCode(pw.simDeCode(aa(2)))

If TextBox2.Text = mypw Then

Session("LOGIN_Name") = TextBox1.Text '設(shè)置登錄后的用戶名稱

Session("Login_Group") = aa(0) 'cmd.ExecuteScalar '設(shè)置登錄后的權(quán)限級(jí)別

Session("Login_ID") = aa(1) 'cmd.ToString

'cmd = Nothing

'conn.Close()

Call wl.NewLog("登錄", "管理員成功登錄")

Response.Redirect("../WebManages/Default.ASPX")

Else

'密碼錯(cuò)誤()

sql = sql.Replace("'", "【單引號(hào)】")

sql = sql.Replace(",", "【逗號(hào)】")

Call wl.NewLog("登錄", "管理員失敗的登錄", TextBox1.Text, sql.Replace("""", "【雙引號(hào)】"), "")

Label4.Visible = True

End If

Else

'密碼錯(cuò)誤()

sql = sql.Replace("'", "【單引號(hào)】")

sql = sql.Replace(",", "【逗號(hào)】")

Call wl.NewLog("登錄", "管理員失敗的登錄", TextBox1.Text, sql.Replace("""", "【雙引號(hào)】"), "")

Label4.Visible = True

End If

End If

End Sub

VB.NET用戶登錄，賬號(hào)密碼正確，卻提示密碼錯(cuò)誤！

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("請(qǐng)輸入用戶名",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")

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

MsgBox("請(qǐng)輸入密碼",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")

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

If?table.Select("用戶名='"??txtName.Text??"'")(0)("密碼").ToString?=?txtPasswd.Text?Then

MsgBox("成功登陸",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")?Then

Form1.Show()

Me.Visible?=?False

Exit?Sub

Else

MsgBox("密碼錯(cuò)誤",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")

End?If

Else

MsgBox("用戶名不存在",?MsgBoxStyle.OkCancel?+?MsgBoxStyle.Exclamation,?"錯(cuò)誤提示")

Exit?Sub

End?If

table.Clear()

h1.Close()

con.Close()

End?Sub

vb.net 用戶登錄

哈哈簡單哪

第一步：登陸網(wǎng)頁代碼

第二步：登陸以后判斷是否登陸成功

有兩種方法：1.獲取網(wǎng)頁代碼，判斷網(wǎng)頁字符有無”登陸成功”字樣

源代碼：

2.就是判斷網(wǎng)頁是否跳轉(zhuǎn)到了某一頁

源代碼：

兩種方法結(jié)合起來用，可以判斷網(wǎng)頁是否無法連接

本文名稱：vb.net判斷用戶密碼 vb獲取用戶名
本文來源：http://muchs.cn/article44/dohodee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、網(wǎng)站內(nèi)鏈、網(wǎng)站制作、、網(wǎng)站設(shè)計(jì)公司、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)