admin_groupuser.aspx.vb

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

Imports System.Configuration
Imports flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class admin_GroupUser
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents edituser_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents edituserinfo As System.Web.UI.WebControls.Label
    Protected WithEvents edit_userid As System.Web.UI.WebControls.TextBox
    Protected WithEvents username As System.Web.UI.WebControls.TextBox
    Protected WithEvents add_user_button As System.Web.UI.WebControls.Button
    Protected WithEvents edit_user_level As System.Web.UI.WebControls.Panel
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents user_class As System.Web.UI.WebControls.DropDownList
    Protected WithEvents userpassword As System.Web.UI.WebControls.TextBox
    Protected WithEvents editpqsswordCheck As System.Web.UI.WebControls.CheckBox
    Protected WithEvents user_group As System.Web.UI.WebControls.DropDownList
    Protected WithEvents user_lock As System.Web.UI.WebControls.DropDownList

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    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
            edituser_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码

        Dim sqlqureyselect As String
        If Request.Params("UserGroupId") = "" Then
            sqlqureyselect = "SELECT * FROM UserDB"
            edituserinfo.Text = "全部用户"
        Else
            sqlqureyselect = "SELECT * FROM UserDB where UserGroupId =" & Request.Params("UserGroupId")
            edituserinfo.Text = Request.Params("UserGroup") & "用户"
        End If

        edit_user_level.Visible = False

        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"用户名", "用户密码", "所属类别", "所属用户组", "用户锁定"}
        Dim Stringb As String() = {"UserName", "UserPassWord", "UserClass", "UserGroup", "LockUser"}
        Dim Stringc As String() = {"", "", "", "", ""}
        Dim Stringd As String() = {"", "", "", "", ""}
        Dim Stringe As Integer() = {0, 120, 80, 80, 80}

        myinfo.PadingDataKeyFiled = "UserId"
        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("ConnstringB")
        dpfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
        dpfly.Bulid_Pading(DataGridPading1, "UserDB_group_" & Request.Params("UserGroupId"), sqlqureyselect)


    End Sub

    Private Sub add_user_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_user_button.Click
        If username.Text = "" Or edit_userid.Text = "" Then
            edituser_error_message.Text = "请检查输入的内容，用户组名称不能为空！"
        Else
            Dim message As String
            Dim user_edit_userid As Integer = edit_userid.Text
            Dim User_edit_usergroupid As Integer = user_group.SelectedValue
            Dim user_edit_password As String
            If editpqsswordCheck.Checked Then
                user_edit_password = userpassword.Text
            Else
                user_edit_password = ""
            End If
            Dim edituserinfo As CheckUserState = New CheckUserState
            edituserinfo.UserName = username.Text
            edituserinfo.UserGroup = user_group.SelectedItem.Text
            edituserinfo.UserClass = user_class.SelectedValue
            edituserinfo.LockUser = user_lock.SelectedValue

            Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
            If dpuser.EditSelectUserId(edituserinfo, user_edit_userid, User_edit_usergroupid, user_edit_password) Then
                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"), "编辑用户 '" & username.Text & "' 成功！", Request.UserHostAddress)
                message = "编辑用户 '" & username.Text & "' 成功！"
            Else
                message = "编辑用户 '" & username.Text & "' 不成功！请检查输入的内容是否合法！"
            End If
            Response.Redirect("admin_GroupUser.aspx?message=" & message)
        End If


    End Sub

    Sub user_edit(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim user_select_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)

        edit_user_level.Visible = True

        Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        dpuser.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
        Dim selectuserinfo As CheckUserState = dpuser.Getuserinfo(user_select_id)

        edit_userid.Text = user_select_id
        dpuser.AddUser_UserClass(user_class)
        dpuser.AddUser_UserGroup(user_group)

        If selectuserinfo.UserName = "" Then
            edituser_error_message.Text = "请检查要编辑的用户是否存在？！"
        Else
            edituser_error_message.Text = "目前正在编辑用户名为： " & selectuserinfo.UserName & " 的用户！"
            username.Text = selectuserinfo.UserName
            Dim i, j As Integer
            For i = 0 To user_class.Items.Count - 1
                If user_class.Items(i).Value = selectuserinfo.UserClass Then
                    user_class.SelectedIndex = i
                    Exit For
                End If
            Next

            For j = 0 To user_group.Items.Count - 1
                If user_group.Items(j).Text = selectuserinfo.UserGroup Then
                    user_group.SelectedIndex = j
                    Exit For
                End If
            Next

            user_lock.SelectedIndex = selectuserinfo.LockUser
        End If


    End Sub

    Sub user_delete(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim user_select_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)
        If user_select_id = 0 Then
            edituser_error_message.Text = "请检查要删除的用户是否存在？！"
        Else
            Dim message As String
            Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
            If dpuser.DelSelectUserDB(user_select_id) Then
                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"), "删除ID号为 '" & user_select_id & "' 的用户成功！", Request.UserHostAddress)
                message = "删除ID号为 '" & user_select_id & "' 的用户组成功！！"
            Else
                message = "删除用户不成功！请检查要删除的用户是否存在？！"
            End If
            Response.Redirect("admin_GroupUser.aspx?message=" & message)
        End If

    End Sub

End Class