admin_menu.ascx.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 System.Data.SqlClient
Imports System.Configuration
Imports flyangel.article.twotipclass

Public MustInherit Class admin_menu
    Inherits System.Web.UI.UserControl
    Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection

    Protected WithEvents search_key As System.Web.UI.WebControls.TextBox
    Protected WithEvents search_type As System.Web.UI.WebControls.DropDownList
    Protected WithEvents search_botton As System.Web.UI.WebControls.Button
    Protected WithEvents menunclass As System.Web.UI.WebControls.DropDownList

#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

        If Not IsPostBack Then
            Dim typeselecttype, typeselectnclass As String
            Dim dbfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dbfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
            dbfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")

            typeselecttype = ""
            typeselectnclass = ""
            If Session("typeselect") <> "" Then
                If InStr(Session("typeselect"), "typeid=") <> 0 Then
                    typeselecttype = Session("typeselect")
                ElseIf InStr(Session("typeselect"), "Nclassid=") <> 0 Or InStr(Session("typeselect"), "nclassid=") <> 0 Then
                    typeselectnclass = Session("typeselect")
                End If
                dbfly.AdminMenu(menunclass, typeselectnclass, typeselecttype)
            Else
                dbfly.Addarticle_Sort(menunclass, "class_type")
            End If
        End If


    End Sub


    Private Sub search_botton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search_botton.Click
        Dim searchkey As String
        Dim asds As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        searchkey = asds.changechr(search_key.Text)
        Dim searchtype, searchtypeway As String
        searchtype = search_type.SelectedItem.Value
        searchtypeway = search_type.SelectedItem.Text
        Dim searchnclass, searchnclassa, searchnclassb, searchnclassresulat As String
        searchnclassa = menunclass.SelectedItem.Value
        searchnclassb = menunclass.SelectedItem.Text
        If searchnclassa = "" Then
            searchnclass = ""
        Else
            searchnclass = "&" & searchnclassa & "&select_name=" & searchnclassb
        End If
        searchnclassresulat = "admin_manage.aspx?key=" & searchkey & "&searchtype=" & searchtype & "&searchtypeway=" & searchtypeway & searchnclass
        Response.Redirect(searchnclassresulat)

    End Sub

End Class