success.aspx.vb

来自「Website for Training and Palcement Offic」· VB 代码 · 共 20 行

Partial Class tpo_Success
    Inherits System.Web.UI.Page

    Protected Sub bnOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bnOk.Click
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim str As String = Request.QueryString.Get("type")
        Select Case str
            Case "CORD"
                lbType.Text = "co-ordinator"
            Case "STUD"
                lbType.Text = "student"
            Case "HR"
                lbType.Text = "HR"
        End Select
    End Sub
End Class