bottom.ascx.vb

程序设计:Flyangel 用到了vb.net c# asp.net xml等 最大特别是核心功能组件化. 特色: 强大的后台管理功能 支持二级分类 支持匿名投稿 超强用户权限设置

Imports System.Web
Imports System.Reflection

Public MustInherit Class bottom
    Inherits System.Web.UI.UserControl

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

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

    End Sub

    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 str_html As String
        str_html = "<table width=""760"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""5""><tr><td align=""middle"">Copyright @" & Application("Opentime") & "  All Rights Reserved "
        Controls.Add(New LiteralControl(str_html))

        Dim copyright As New System.Web.UI.WebControls.HyperLink
        copyright.NavigateUrl = Application("weburl")
        copyright.Text = Application("WebTitle")
        Controls.Add(copyright)

        str_html = "<br>设计制作："
        Controls.Add(New LiteralControl(str_html))

        Dim designer As New HyperLink
        designer.NavigateUrl = "mailto:" & Application("webmastermail")       '[e-mail]
        designer.Text = Application("copyright")                 '"银川电校F-SPACE工作室"
        Controls.Add(designer)

        str_html = "<br>"
        Controls.Add(New LiteralControl(str_html))

        Dim readme_b As New Label
        readme_b.Text = Application("addreadme")
        Controls.Add(readme_b)

        str_html = "</td></tr></table></body></html>"
        Controls.Add(New LiteralControl(str_html))
    End Sub

End Class