writeweeklog.aspx.vb

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


Partial Class student_WriteWeekLog
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newlog As New WeekLog
        With newlog
            .SubjectNo = TextBox3.Text
            .WeekNo = TextBox1.Text
            .WeekLogNo = newlog.SubjectNo + .WeekNo
            .LogDate = System.DateTime.Today
            .LogContent = TextBox2.Text
            .StudentNo = Session("userid")
            .WriteWeekLog()
        End With
      
    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

   
    Protected Sub FormView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.FormViewPageEventArgs) Handles FormView1.PageIndexChanging

    End Sub
End Class