admin_systemman.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.Configuration
Imports flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class admin_systemman
    Inherits System.Web.UI.Page
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents editid As System.Web.UI.WebControls.TextBox
    Protected WithEvents addusername As System.Web.UI.WebControls.TextBox
    Protected WithEvents addtruename As System.Web.UI.WebControls.TextBox
    Protected WithEvents user_power_D As System.Web.UI.WebControls.DropDownList
    Protected WithEvents addpassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents user_manage_D As System.Web.UI.WebControls.DropDownList
    Protected WithEvents add_user_button As System.Web.UI.WebControls.Button
    Protected WithEvents error_message As System.Web.UI.WebControls.Label
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading

#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" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If
        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码

        return_type.Text = "增加新管理员"

        Dim sqlqureyselect As String = "SELECT * FROM ArticleAdmin order by id asc"

        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"用户名", "真实姓名", "密 码", "权 限", "管理栏目"}
        Dim Stringb As String() = {"UserName", "trueName", "PassWd", "OsKey", "TypeSelect"}
        Dim Stringc As String() = {"", "", "", "", ""}
        Dim Stringd As String() = {"", "", "", "", ""}
        Dim Stringe As Integer() = {0, 80, 120, 120, 120}

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


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

        dpfly.Addarticle_Sort(user_manage_D, "class_type")

    End Sub


    Sub edit_sysman(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim _temp_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)
        Dim _temp_user_info As New DataView
        Dim _temp_selectid As Integer
        _temp_user_info = Cache("AdminMange")
        _temp_user_info.Sort = "id"
        _temp_selectid = _temp_user_info.Find(_temp_id)
        addusername.Text = _temp_user_info(_temp_selectid).Row("username")
        addtruename.Text = _temp_user_info(_temp_selectid).Row("truename")
        addpassword.Text = _temp_user_info(_temp_selectid).Row("passwd")
        editid.Text = _temp_id

        error_message.Text = "目前您的操作：编辑管理员" & _temp_user_info(_temp_selectid).Row("username") & "的信息！"
        return_type.Text = "编辑管理员信息"
        add_user_button.Text = "编辑管理员信息"

        Dim _temp_typeselect, _temp_oskey As String
        _temp_typeselect = _temp_user_info(_temp_selectid).Row("oskey")
        If _temp_typeselect = "super" Then
            user_power_D.SelectedIndex = 0
        ElseIf _temp_typeselect = "normal" Then
            user_power_D.SelectedIndex = 1
        Else
            user_power_D.SelectedIndex = 2
        End If

        _temp_oskey = _temp_user_info(_temp_selectid).Row("typeselect")
        Dim _temp_ds As DataView
        Dim i As Integer
        _temp_ds = Cache("class_type")
        For i = 0 To _temp_ds.Count - 1
            If _temp_oskey = _temp_ds(i).Row("value") Then
                user_manage_D.SelectedIndex = i
                Exit For
            End If
        Next

    End Sub

    Sub delete_sysman(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim deletestring, message As String
        Dim _temp_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")

        If dpfly.DelSelectAdminUser(_temp_id) Then
            message = "删除ID号为" & _temp_id & "的管理员成功！"

            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("删除管理员", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "删除管理员失败，请重新删除！"
        End If

        Response.Redirect("admin_systemman.aspx?message=" & message)

    End Sub

    Private Sub add_user_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_user_button.Click

        Dim selectstring, updatastring As String
        Dim message As String
        Dim _temp_addusername, _temp_addtruename, _temp_addpassword, _temp_addtypeselect, _temp_addoskey As String
        Dim _temp_m_id, _temp_id As Integer
        _temp_addusername = Request.Form("addusername")
        _temp_addtruename = Request.Form("addtruename")
        _temp_addpassword = Request.Form("addpassword")
        _temp_addtypeselect = Request.Form("user_manage_D")
        _temp_addoskey = Request.Form("user_power_D")

        If _temp_addtypeselect = "" Then
            _temp_m_id = 0
        Else
            _temp_m_id = 1
        End If

        If add_user_button.Text = "增加新管理员" Then
            selectstring = "SELECT * FROM ArticleAdmin where username='" & _temp_addusername & " '"
            updatastring = "Insert into ArticleAdmin (Username,Truename,Passwd,typeselect,oskey,M_id) values ('" & _temp_addusername & "','" & _temp_addtruename & "','" & _temp_addpassword & "','" & _temp_addtypeselect & "','" & _temp_addoskey & "'," & _temp_m_id & ")"
        ElseIf add_user_button.Text = "编辑管理员信息" Then
            _temp_id = editid.Text
            selectstring = "SELECT * FROM ArticleAdmin where username='" & _temp_addusername & " ' and id <> " & _temp_id & " "
            updatastring = "UPDATE ArticleAdmin set Username = '" & _temp_addusername & "',Truename='" & _temp_addtruename & "',Passwd='" & _temp_addpassword & "',typeselect='" & _temp_addtypeselect & "',oskey='" & _temp_addoskey & "',M_id=" & _temp_m_id & " WHERE id = " & _temp_id & ""
        End If

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")

        If dpfly.AddNew_Edit_AdminUser(selectstring, updatastring) Then
            message = add_user_button.Text & _temp_addusername & "成功！"
            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache(add_user_button.Text, Session("trueName"), message, Request.UserHostAddress)
        Else
            message = add_user_button.Text & _temp_addusername & "失败，请重新修改！"
        End If

        Response.Redirect("admin_systemman.aspx?message=" & message)

    End Sub

    Shared Function oskeychange(ByVal _temp_oskey As String)
        Dim _oskeychange As String
        If _temp_oskey = "super" Then
            _oskeychange = "系统管理员"
        ElseIf _temp_oskey = "normal" Then
            _oskeychange = "一般管理员"
        ElseIf _temp_oskey = "check" Then
            _oskeychange = "文章审核员"
        Else
            _oskeychange = "<b>非法权限者</b>"
        End If
        Return _oskeychange
    End Function
End Class