header.ascx.vb

东软内部材料（三）程序设计导论

'该类为 ASP.NET 用户控件，该用户控件可被其它ASP.NET Web 窗体作为服务器控件导入。
'课本的第八章有对如何创建用户控件以及如何使用它们的详细介绍。

Public Class Header
    Inherits System.Web.UI.UserControl

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents A1 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A2 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A3 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A4 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A5 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A6 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A7 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A8 As System.Web.UI.HtmlControls.HtmlAnchor
    Protected WithEvents A9 As System.Web.UI.HtmlControls.HtmlAnchor

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    '当网页初始化时调用该方法。
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim dsLinkItems As New DataSet

        '读取 XML 文件中的配置信息到 DataSet 中。
        '编程技巧：DataSet 对象的 ReadXml 方法所使用的参数必须是磁盘文件的物理路径。
        '           而在网页中一般使用的是相对路径，此时可以如下使用 Server.MapPath 方法进行转换。 
        '有关读写 XML 数据的基本知识，以及如何使用 DataSet 和 XML 文件，在课本的第十二章有详细介绍。
        dsLinkItems.ReadXml(Server.MapPath("../Common/header.xml"))


        With dsLinkItems.Tables(0)

            '设置第一个链接项
            A1.HRef = .Rows(0).Item("file")
            A1.InnerText = .Rows(0).Item("text")

            '设置第二个链接项
            A2.HRef = .Rows(1).Item("file")
            A2.InnerText = .Rows(1).Item("text")

            '设置第三个链接项
            A3.HRef = .Rows(2).Item("file")
            A3.InnerText = .Rows(2).Item("text")

            '设置第四个链接项
            A4.HRef = .Rows(3).Item("file")
            A4.InnerText = .Rows(3).Item("text")

            '设置第五个链接项
            A5.HRef = .Rows(4).Item("file")
            A5.InnerText = .Rows(4).Item("text")

            '设置第六个链接项
            A6.HRef = .Rows(5).Item("file")
            A6.InnerText = .Rows(5).Item("text")

            '设置第七个链接项
            A7.HRef = .Rows(6).Item("file")
            A7.InnerText = .Rows(6).Item("text")

            '设置第八个链接项
            A8.HRef = .Rows(7).Item("file")
            A8.InnerText = .Rows(7).Item("text")

            '设置第九个链接项
            A9.HRef = .Rows(8).Item("file")
            A9.InnerText = .Rows(8).Item("text")

        End With
    End Sub

End Class