asp.net(vb)连接access2003登录代码

以前在网上看见一位博主写的是asp.net(vb)连接sql server由于当时作业要求的是连接access。在网上还真不好找。毕竟用access连接数据库大多是应用于教学中，实际应用中用的很少，所以就改了一下那位博主的代码。贴出代码和大家一起分享一下。

asp.net(vb)连接access2003

准备一个login.aspx页

两个Textbox控件:id:UserNameTextbox,UserPswdTextbox

准备一个Button控件:id:Button1

2个hyperlink:1,2

1,显示用户姓名

2,用户所执行的权限操作

一个linkbutton为清除Session变量退出用户登陆

一个数据库,一张用户表

<!--用户数据库验证开始-->

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Partial
Class web_Default
InheritsSystem.Web.UI.Page

ProtectedSub Button1_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles Button1.Click
Dimname
As String= UserNameTextbox.Text
DimPswd
As String= UserPswdTextbox.Text
Dimconn
As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))
conn.Open()
DimcheckUser
As String= "select * from [user] where username='"& name &
"' and password='"& Pswd &
"'"
Dimcmd
As NewOleDbCommand(checkUser, conn)
Dimdr
As OleDbDataReader
dr = cmd.ExecuteReader()
Ifdr.Read
Then
Ifdr.GetValue(1).ToString() = name
Then
If dr.GetValue(2).ToString() = Pswd
Then
Session("user") =
"isok"
Session("username") = name
Session("userid") = dr.GetValue(0).ToString
Response.Redirect("Default.aspx")
End
If
EndIf
EndIf
End Sub
<!--用户验证结束-->

<!--登陆结果显示,关于操作权限的结果-->

ProtectedSub Page_Load(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles
Me.Load
LinkButton2.Visible = False
Label5.Visible = False
HyperLink2.Visible = False
LinkButton1.Visible = False
IfSession("user") =
"isok" Then
LinkButton2.Visible = True
Label5.Visible = True
LinkButton1.Visible = True
Label1.Text = "欢迎您，" + Session("username")
IfSession("username") =
"sunqinlong2008" Then
Label5.Visible = False
HyperLink2.Visible =True
LinkButton2.Visible= True
HyperLink2.Text = "欢迎您，" + Session("username")+
"点此进入网站管理中心"
EndIf
EndIf

End Sub

<!--退出登陆状态,需要清楚session变量-->

ProtectedSub LinkButton1_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles LinkButton1.Click

Dimconn
As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))
conn.Close()
Session("user") =
"isnook"
Session("username") =
""

EndSub
<!--普通及用户所执行的操作,点此参数传递到普通用户资料修改页-->

ProtectedSub LinkButton2_Click(ByValsender
As Object,ByVal e
AsSystem.EventArgs) Handles LinkButton2.Click
Response.Redirect(".\Talk.aspx?id=" + Session("username"))
EndSub
End Class