xuesheng.aspx.vb

来自「教务选课系统 教务选课系统 教务选课系统」· VB 代码 · 共 34 行


Partial Class xuesheng
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = Session("yonghuming")
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("chaxunkecheng.aspx")
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("chaxunfenshu.aspx")
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("tijiaozuoye.aspx")
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("chakantongzhi.aspx")
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Session("yonghuming") = Label1.Text
        Response.Redirect("xiugai.aspx")
    End Sub
End Class