admin_manage.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_manage
    Inherits System.Web.UI.Page
    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_title As System.Web.UI.WebControls.Label
    Protected WithEvents Sqlquery_list As System.Data.SqlClient.SqlDataAdapter
    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 sqlqureyselect As String
        Dim select_datatablename As String = "article"
        Dim select_tiaojian As String = ""
        return_type.Text = " 全部管理栏目 "
        return_title.Text = " 全部管理文章 "

        '根据用户权限进行过滤设置
        Dim selectnclass_RowFilter As Integer = 0
        Dim selecttype_RowFilter As Integer = 0
        If Session("typeselect") <> "" Then
            If InStr(Convert.ToString(Session("typeselect")).ToLower(), "typeid=") <> 0 Then
                selecttype_RowFilter = Replace(Convert.ToString(Session("typeselect")).ToLower, "typeid=", "")
                return_type.NavigateUrl = "admin_manage.aspx?typeid=" & selecttype_RowFilter & "&select_name=所有文章"
                return_title.Text = " 所有文章 "
                select_datatablename += "_typeid_" & selecttype_RowFilter
                select_tiaojian = " and typeid=" & selecttype_RowFilter
            ElseIf InStr(Convert.ToString(Session("typeselect")).ToLower(), "nclassid=") <> 0 Then
                selectnclass_RowFilter = Replace(Convert.ToString(Session("typeselect")).ToLower, "nclassid=", "")
                return_type.NavigateUrl = "admin_manage.aspx?nclassid=" & selectnclass_RowFilter & "&select_name=所有文章"
                return_title.Text = " 所有文章 "
                select_datatablename += "_nclassid_" & selectnclass_RowFilter
                select_tiaojian = " and nclassid=" & selectnclass_RowFilter
            End If
        End If

        Dim _select_name As String = Trim(Request.QueryString("select_name"))
        '如果按一级类目检索数据
        If Request.QueryString("nclassid") <> "" Then
            If selectnclass_RowFilter <> 0 Then
                If selectnclass_RowFilter <> Request.QueryString("nclassid") Then
                    return_type.NavigateUrl = "admin_manage.aspx?nclassid=" & selectnclass_RowFilter & "&select_name=" & _select_name
                    return_title.Text = _select_name
                End If
            Else
                return_type.Text = _select_name
                return_type.NavigateUrl = "admin_manage.aspx?nclassid=" & Request.QueryString("nclassid") & "&select_name=" & _select_name
                return_title.Text = " 所有文章 "
                select_datatablename += "_nclassid_" & Request.QueryString("nclassid")
                select_tiaojian = " and nclassid=" & Request.QueryString("nclassid")
            End If
        End If

        '如果按二级类目检索数据
        If Request.QueryString("typeid") <> "" Then
            If selecttype_RowFilter <> 0 Then
                If selecttype_RowFilter <> Request.QueryString("typeid") Then
                    return_type.NavigateUrl = "admin_manage.aspx?typeid=" & selecttype_RowFilter & "&select_name=" & _select_name
                    return_title.Text = _select_name
                End If
            Else
                return_type.Text = _select_name
                return_type.NavigateUrl = "admin_manage.aspx?typeid=" & Request.QueryString("typeid") & "&select_name=" & _select_name
                return_title.Text = " 所有文章 "
                select_datatablename += "_typeid_" & Request.QueryString("typeid")
                select_tiaojian = " and typeid=" & Request.QueryString("typeid")
            End If
        End If

        '如果按专题文章检索数据
        Dim _zhuantiid As String = Request.QueryString("zhuantiid")
        Dim _zhuantiname As String = Request.QueryString("zhuantiname")
        If _zhuantiid <> "" And _zhuantiname <> "" Then
            return_type.Text = "专题文章"
            return_type.NavigateUrl = "zhuantilist.aspx"
            return_title.Text = _zhuantiname
            If selecttype_RowFilter <> 0 Then
                select_datatablename = "article_zhuantiid_" & _zhuantiid & "_typeid=" & selecttype_RowFilter
                select_tiaojian = " and zhuantiid=" & _zhuantiid & " and typeid=" & selecttype_RowFilter
            ElseIf selectnclass_RowFilter <> 0 Then
                select_datatablename = "article_zhuantiid_" & _zhuantiid & "_nclassid=" & selectnclass_RowFilter
                select_tiaojian = " and zhuantiid=" & _zhuantiid & " and nclassid=" & selectnclass_RowFilter
            Else
                select_datatablename += "_zhuantiid_" & _zhuantiid
                select_tiaojian = " and zhuantiid=" & _zhuantiid
            End If
        End If


        '如果按检索关键词进行检索
        Dim keyword As String = Request.QueryString("key")
        If keyword <> "" Then
            Dim asds As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            keyword = asds.changechr(keyword)
        End If
        Dim sss As Integer = Request.QueryString("searchtype")
        If keyword <> "" Then
            If sss = 0 Then
                select_tiaojian += " and (title like '%" & keyword & "%')"
            End If
            If sss = 1 Then
                select_tiaojian += " and (content like '%" & keyword & "%')"
            End If
            If sss = 2 Then
                select_tiaojian += " and (dateandtime like '%" & keyword & "%')"
            End If
            If sss = 3 Then
                select_tiaojian += " and (author like '%" & keyword & "%')"
            End If
            return_type.Text = "检索范围"
            return_title.Text = Request.QueryString("searchtypeway") & " <IMG height=""9"" src=""../images/dot.gif""> " & _select_name & " <IMG height=""9"" src=""../images/dot.gif""> 检索词：" & keyword
            select_datatablename = "search"
            sqlqureyselect = "SELECT newsid,title,author,dateandtime,typeid,nclassid, shtmlurl, shtml_y FROM article where shenghe=2" & select_tiaojian & " order by dateandtime desc,newsid asc"
        Else
            sqlqureyselect = "SELECT newsid,title,author,dateandtime,typeid,nclassid,zhuantiid, shtmlurl, shtml_y FROM article where shenghe=2" & select_tiaojian & " order by dateandtime desc,newsid asc"
        End If

            Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"ID", "标题", "作者", "时间"}
        Dim Stringb As String() = {"newsid", "title", "author", "dateandtime"}
        Dim Stringc As String() = {"", "../listview.aspx", "", ""}
        Dim Stringd As String() = {"", "newsid", "", ""}
        Dim Stringe As Integer() = {30, 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("logxml")
            dpfly.Bulid_Pading(DataGridPading1, select_datatablename, sqlqureyselect)

    End Sub

End Class