secondanswer.aspx.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 48 行


Partial Class Administrator_SecondAnswer
    Inherits System.Web.UI.Page

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Select Case DropDownList1.Text
            Case "答辩优秀学生"
                Excellence.Visible = True
                UnPass.Visible = False
            Case "答辩未过学生"
                Excellence.Visible = False
                UnPass.Visible = True
            Case "优秀以及未过"
                Excellence.Visible = True
                UnPass.Visible = True
        End Select
    End Sub

    Protected Sub DropDownList2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.SelectedIndexChanged
        Select Case DropDownList2.Text

            Case "每页显示"
            Case "10"
                gvExcellence.PageSize = 10
                gvUnpass.PageSize = 10
            Case "30"
                gvExcellence.PageSize = 30
                gvUnpass.PageSize = 30
            Case "50"
                gvExcellence.PageSize = 50
                gvUnpass.PageSize = 50
            Case "不分页"
                gvExcellence.AllowPaging = False
                gvUnpass.AllowPaging = False
        End Select
    End Sub

  
  
   
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role") = "管理员" Then
        Else
            Response.Redirect("~/Default.aspx")
        End If
    End Sub
End Class