default.aspx.vb

人事管理系统

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports lianjie1


Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cn As lianjie = New lianjie()
        Dim filepath As String = cn.lianjie
        Dim cnn As OleDbConnection = New OleDbConnection(filepath)
        Dim cmd As OleDbCommand = New OleDbCommand("select 用户名 ,密码 from  登录表 ", cnn)
        cnn.Open()
        Dim reader As OleDbDataReader = cmd.ExecuteReader
        While (reader.Read)
            If Me.DropDownList1.SelectedIndex = 0 And Me.DropDownList2.SelectedIndex = 0 Then
                Response.Redirect("管理员.aspx")
            ElseIf Me.DropDownList1.SelectedIndex = 1 And Me.DropDownList2.SelectedIndex = 1 Then
                Response.Redirect("员工.aspx")
            Else
                Me.Label1.Visible = True

            End If
        End While
        cnn.Close()
    End Sub


End Class