📄 maintainclass.aspx.vb
字号:
Partial Class Administrator_MaintainClass
Inherits System.Web.UI.Page
Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
txtNumber.Text = ""
txtTutor.Text = ""
End Sub
Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
Dim banji As New Classes
banji.ClassNo = txtNumber.Text
banji.ClassTutor = txtTutor.Text
Select Case ddlOperate.Text
Case "添加班级"
banji.AddClass()
Case "删除班级"
banji.DeleteClass()
Case "班主任变更"
banji.ChangeTutor(banji.ClassTutor)
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -