📄 weeklogcomment.aspx.vb
字号:
Imports System.Data
Imports System.Data.SqlClient
Partial Class Teacher_WeekLogComment
Inherits System.Web.UI.Page
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
Protected Sub sure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sure.Click
Dim weeklog1 As New WeekLog
weeklog1.WeekLogNo = DropDownList1.Text
weeklog1.TeacherComment = logcom.Text
weeklog1.CheckDate = System.DateTime.Today
weeklog1.WriteComment()
End Sub
Protected Sub check_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles check.Click
Dim weeklog1 As New WeekLog
If (weeklog1.LookWeekLog(DropDownList1.Text) = True) Then
content.Text = weeklog1.LogContent
Else
content.Text = "对不起,没有找到你要查看的周志"
End If
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -