📄 submitsubject.aspx.vb
字号:
Partial Class Teacher_SubmitSubject
Inherits System.Web.UI.Page
Protected Sub OK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OK.Click
Dim subjectnew As New Subject
subjectnew.SubjectNo = subcode.Text
subjectnew.SubjectTitle = subtitle.Text
subjectnew.DirectorTeacherNo = teachercode.Text
subjectnew.Year = System.DateTime.Today.Year.ToString
subjectnew.SubjectType = "校内课题"
subjectnew.SubmitSubject()
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 + -