admin_inputuser.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_inputuser
    Inherits System.Web.UI.Page
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents Sqlquery_list As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents add_user_button As System.Web.UI.WebControls.Button
    Protected WithEvents username As System.Web.UI.WebControls.TextBox
    Protected WithEvents user_html As System.Web.UI.WebControls.DropDownList
    Protected WithEvents user_upload As System.Web.UI.WebControls.DropDownList
    Protected WithEvents user_shenghe As System.Web.UI.WebControls.DropDownList
    Protected WithEvents user_login As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents usergroupname As System.Web.UI.WebControls.TextBox
    Protected WithEvents htmllevel As System.Web.UI.WebControls.DropDownList
    Protected WithEvents uploadlevel As System.Web.UI.WebControls.DropDownList
    Protected WithEvents shenghelevel As System.Web.UI.WebControls.DropDownList
    Protected WithEvents montheplanlevel As System.Web.UI.WebControls.DropDownList
    Protected WithEvents addusergroup As System.Web.UI.WebControls.Button
    Protected WithEvents add_user_level As System.Web.UI.WebControls.Panel
    Protected WithEvents edit_user_level As System.Web.UI.WebControls.Panel
    Protected WithEvents edit_usergroupid As System.Web.UI.WebControls.TextBox

#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
        '在此处放置初始化页的用户代码
        add_user_level.Visible = True
        edit_user_level.Visible = False
        '修改或删除时错误提示代码
        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 = "SELECT * FROM UserGroup"
        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"组名称", "HTML权限", "上传权限", "自动审核", "站内权限"}
        Dim Stringb As String() = {"UserGroup", "Html_Level", "Upload_Level", "ShengHe_Level", "MonthePlan_Level"}
        Dim Stringc As String() = {"admin_GroupUser.aspx", "", "", "", ""}
        Dim Stringd As String() = {"UserGroupId|UserGroup", "", "", "", ""}
        Dim Stringe As Integer() = {0, 80, 80, 80, 80}

        myinfo.PadingDataKeyFiled = "UserGroupId"
        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, "UserGroup", sqlqureyselect)

    End Sub

    Sub usergroup_edit(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        add_user_level.Visible = False
        edit_user_level.Visible = True
        Dim usergroup_select_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)
        Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
        Dim selectusergroupinfo As CheckUserState = dpuser.UserGroupInfo(usergroup_select_id)
        edit_usergroupid.Text = usergroup_select_id
        username.Text = selectusergroupinfo.UserGroup
        user_html.SelectedIndex = selectusergroupinfo.Html_Level
        user_upload.SelectedIndex = selectusergroupinfo.Upload_Level
        user_shenghe.SelectedIndex = selectusergroupinfo.ShengHe_Level
        user_login.SelectedIndex = selectusergroupinfo.MonthePlan_level
    End Sub

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

    End Sub

    Private Sub addusergroup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addusergroup.Click
        If usergroupname.Text = "" Then
            addzhuanti_error_message.Text = "请检查输入的内容，用户组名称不能为空！"
        Else
            Dim message As String
            Dim editusergroupinfo As CheckUserState = New CheckUserState
            editusergroupinfo.UserGroup = usergroupname.Text
            editusergroupinfo.Html_Level = htmllevel.SelectedValue
            editusergroupinfo.Upload_Level = uploadlevel.SelectedValue
            editusergroupinfo.ShengHe_Level = shenghelevel.SelectedValue
            editusergroupinfo.MonthePlan_level = montheplanlevel.SelectedValue

            Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
            If dpuser.AddNewUserGroup(editusergroupinfo) 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"), "增加新用户组 '" & usergroupname.Text & "' 成功！", Request.UserHostAddress)
                message = "增加新用户组 '" & usergroupname.Text & "' 成功！"
            Else
                message = "增加新用户组 '" & usergroupname.Text & "' 不成功！请检查输入的内容是否合法！"
            End If
            Response.Redirect("admin_inputuser.aspx?message=" & message)
        End If

    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_usergroupid.Text = "" Then
            addzhuanti_error_message.Text = "请检查输入的内容，用户组名称不能为空！"
        Else
            Dim message As String
            Dim _selectgroupid As Integer = Convert.ToInt32(edit_usergroupid.Text)
            Dim editusergroupinfo As CheckUserState = New CheckUserState
            editusergroupinfo.UserGroup = username.Text
            editusergroupinfo.Html_Level = user_html.SelectedValue
            editusergroupinfo.Upload_Level = user_upload.SelectedValue
            editusergroupinfo.ShengHe_Level = user_shenghe.SelectedValue
            editusergroupinfo.MonthePlan_level = user_login.SelectedValue

            Dim dpuser As iUserClass = HowToUsingFlyangel.iUserClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dpuser.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringB")
            If dpuser.EditSelectUserGroup(editusergroupinfo, _selectgroupid) 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_inputuser.aspx?message=" & message)
        End If
    End Sub
End Class