oklogin.aspx.vb

本套软件适用于各大高校、培训机构等单位的教学管理软件。

Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim strsql As String


        If Trim(DropDownList1.SelectedItem.Text) = "教师" Then
            strsql = "select * from 老师表 where  教师编号='" & Trim(TextBox1.Text) & "'and 密码='" & Trim(TextBox2.Text) & "'"
        ElseIf Trim(DropDownList1.SelectedItem.Text) = "学生" Then
            strsql = "select * from 学生表 where  学号='" & Trim(TextBox1.Text) & "'and 密码='" & Trim(TextBox2.Text) & "'"
        Else : strsql = "select * from 管理员表 where  编号='" & Trim(TextBox1.Text) & "'and 密码='" & Trim(TextBox2.Text) & "'"
        End If
        Dim coon As New SqlConnection("Server=localhost;Database=选修课管理系统;Uid=sa;Pwd=;")
        Dim cmd As New SqlCommand(strsql, coon)
        coon.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader()


        If dr.Read() Then
            Label3.Text = "登录成功！"

            'TextBox3.Text = dr.GetString(1)
            'TextBox1.Text = ""
            'TextBox2.Text = ""
            'TextBox1.Focus()

            If Trim(DropDownList1.SelectedItem.Text) = "教师" Then
                Response.Redirect("~/老师查询选课情况（课程）—李晨华.aspx")           '教师主页
            ElseIf Trim(DropDownList1.SelectedItem.Text) = "学生" Then

                Response.Redirect("~/周路DB_StudentSearch.aspx")            '学生主页
            Else
                Response.Redirect("~/OK查询老师.aspx")        '管理员主页
            End If
        Else : Label3.Text = "用户名或密码错误请重试！"

            TextBox2.Text = ""
            TextBox1.Focus()


        End If

        coon.Close()

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()


    End Sub

    'Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    Response.Redirect("~/pwdChange.aspx")
    'End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        RequiredFieldValidator1.Enabled = False
        RequiredFieldValidator2.Enabled = False
        Response.Redirect("~/OKpwdChange.aspx")
    End Sub
End Class