zhuantilist.aspx.vb

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

'数据分页程序，Design By Flyangel

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports flash
Imports flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class zhuanti
    Inherits System.Web.UI.Page

    Protected return_type As HyperLink
    Protected return_title As Label
    Protected sqlqureyselect As String

    'this is add zhuanti
    Protected WithEvents add_zhuanti_name As TextBox
    Protected WithEvents add_zhuanti As Button
    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents ArticleTop1 As flyangel.article.Components.ArticleTop
    Protected WithEvents ArticleTop2 As flyangel.article.Components.ArticleTop
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents addzhuanti_error_message As Label


#Region " 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 _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If

        return_type.Text = "专题文章 "
        return_title.Text = "全部专题"

        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"专题名称", "专题加入者", "备注"}
        Dim Stringb As String() = {"zhuantiname", "addusername", ""}
        Dim Stringc As String() = {"fenye.aspx", "", ""}
        Dim Stringd As String() = {"zhuantiid|zhuantiname", "", ""}
        Dim Stringe As Integer() = {0, 160, 80}

        myinfo.PadingDataKeyFiled = "zhuantiid"
        myinfo.PadingColumnHeaderName = Stringa
        myinfo.PadingColumnItemFiled = Stringb
        myinfo.PadingColumnUrlExpress = Stringd
        myinfo.PadingColumnUrlName = Stringc
        myinfo.PadingColumnWidth = Stringe
        DataGridPading1.SetPadingPageInfo = myinfo

        sqlqureyselect = "SELECT zhuantiid,zhuantiname,addusername FROM zhuanti"

        DataGridPading1.SetPadingPageSize = 17
        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        dpfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
        dpfly.Bulid_Pading(DataGridPading1, "article_zhuant", sqlqureyselect)

    End Sub

End Class