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