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