admin_newscheck.aspx.vb

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

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

Public Class admin_newscheck
    Inherits System.Web.UI.Page
    Protected WithEvents return_title As System.Web.UI.WebControls.Label
    Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection
    Protected WithEvents Sqlquery_list As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable

#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
        '在此处放置初始化页的用户代码
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If

        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码

        Dim select_tiaojian As String = ""
        Dim select_datatablename As String = "article_noshenghe"

        '根据用户权限进行过滤设置
        Dim selectnclass_RowFilter As Integer = 0
        Dim selecttype_RowFilter As Integer = 0
        If Session("typeselect") <> "" Then
            select_tiaojian = " and " & Session("typeselect")
            select_datatablename += "_" & Replace(Session("typeselect"), "=", "_")
        End If
        return_title.Text = " 所有文章 "

        Dim sqlqureyselect As String = "SELECT  newsid,title,author,dateandtime,typeid,nclassid, shtmlurl, shtml_y FROM article where shenghe<>2 " & select_tiaojian & " order by dateandtime desc"
        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"标题", "作者", "时间"}
        Dim Stringb As String() = {"title", "author", "dateandtime"}
        Dim Stringc As String() = {"", "", ""}
        Dim Stringd As String() = {"", "", ""}
        Dim Stringe As Integer() = {0, 160, 80}

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


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

    End Sub
End Class