choosesubject.aspx.vb

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


Partial Class student_ViewProjectDetail
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        addnew(TextBox1.Text, TextBox5.Text)
        addnew(TextBox2.Text, TextBox6.Text)
        addnew(TextBox3.Text, TextBox7.Text)
    End Sub

    Protected Sub addnew(ByVal text1 As String, ByVal text2 As String)
        Dim assignnew As New Assignment
        Static Dim i As Integer
        i += 1
        assignnew.StudentNo = Session("userid")
        assignnew.AssignmentNo = Session("userid") + i.ToString
        assignnew.TeacherNo = text2
        assignnew.SubjectTitle = text1
        assignnew.AddAssignment()
    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