vb.net登陆验证 vb登录界面代码( 二 )


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
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;
ifs1="" or s2="" then
messagebox("出错提示","输入信息不能为空!请重新输入!",exclamation!,okcancel!,2)
else
if s1'ht**' and s1 'HT**' then
messagebox("出错提示","输入用户名不对(不区分大小写)!请重新输入!",exclamation!,okcancel!,2)
else
ifs2 '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 , 是制作动态网站啊~呵呵前面的就当我没说吧,我也不删了,也许别人有需要,就占楼主一个位置啦,还望见谅哈!呵呵.
VB.NET登陆界面 。要验证登录用户名和密码是否正确 。登陆后有管理员和普通用户权限判断 。管理员只能登录一将用户名vb.net登陆验证,密码vb.net登陆验证 , 用户类型存在数据库中vb.net登陆验证,登陆时比较输入的值是否与数据库相同即可 。
【vb.net登陆验证 vb登录界面代码】vb.net登陆验证的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vb登录界面代码、vb.net登陆验证的信息别忘了在本站进行查找喔 。

推荐阅读