masterpage.master.vb

旅客信息管理、酒店客房管理、各种信息查询

'文件名:MasterPage.master.vb
Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '设置网站页头或页尾的信息
        If (Not IsPostBack) Then
            If (Session("MyUserName") IsNot Nothing) Then
                Me.Label3.Text = Session("MyUserName").ToString()
            Else
                Me.Label3.Text = ""
            End If
            If (Session("MySystemName") IsNot Nothing) Then
                Me.HyperLink1.Text = Session("MySystemName").ToString()
            Else
                Me.HyperLink1.Text = ""
            End If
            If (Session("MyCompanyWebSite") IsNot Nothing) Then
                Me.HyperLink1.NavigateUrl = Session("MyCompanyWebSite").ToString()
            Else
                Me.HyperLink1.NavigateUrl = ""
            End If
            Dim MyCompanyName As String = ""
            If (Session("MyCompanyName") IsNot Nothing) Then
                MyCompanyName = Session("MyCompanyName").ToString()
            End If
            Dim MyCompanyAddress As String = ""
            If (Session("MyCompanyAddress") IsNot Nothing) Then
                MyCompanyAddress = Session("MyCompanyAddress").ToString()
            End If
            Dim MyCompanyPhone As String = ""
            If (Session("MyCompanyPhone") IsNot Nothing) Then
                MyCompanyPhone = Session("MyCompanyPhone").ToString()
            End If
            Dim MyCompanyLogo As String = ""
            If (Session("MyCompanyLogo") IsNot Nothing) Then
                MyCompanyLogo = "~/Images/" + Session("MyCompanyLogo").ToString()
            End If
            Me.Image1.ImageUrl = MyCompanyLogo
            Me.Label1.Text = "版权所有(2007-2010)：" + MyCompanyName + " " + MyCompanyAddress + " " + MyCompanyPhone
        End If
    End Sub
End Class