admin_sort.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 System.Configuration
Imports flyangel.article.twotipclass

Public Class admin_sort
    Inherits System.Web.UI.Page
    Protected WithEvents sort_DataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SqlConn As System.Data.SqlClient.SqlConnection
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents add_sort_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents add_sort_button As System.Web.UI.WebControls.Button
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents return_title As System.Web.UI.WebControls.Label

#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


        return_title.Text = "一级栏目设置"
        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码
        If Not IsPostBack Then
            databinddatagrid()
        End If
    End Sub

    Sub databinddatagrid()
        Dim sqlqureyselect As String
        sqlqureyselect = "SELECT * from anclass ORDER BY nclassid asc "
        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        dpfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
        dpfly.Bulid_Pading(sort_DataGrid, "sort_class_admin", sqlqureyselect, False)
    End Sub

    Sub sort_edit(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        sort_DataGrid.EditItemIndex = e.Item.ItemIndex
        databinddatagrid()
    End Sub

    Sub sort_update(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim zhuanti_select_id As Integer
        Dim zhuanti_edit_text As TextBox
        Dim zhuanti_select_name, updatastring As String
        Dim selectstring As String
        Dim message As String

        zhuanti_select_id = sort_DataGrid.DataKeys(e.Item.ItemIndex)
        zhuanti_edit_text = e.Item.FindControl("sortselecteditname")
        zhuanti_select_name = zhuanti_edit_text.Text

        selectstring = "select nclass from anclass where nclass='" & zhuanti_select_name & "'and nclassid <> " & zhuanti_select_id & ""
        updatastring = "UPDATE anclass set nclass = '" & zhuanti_select_name & "' WHERE nclassid = " & zhuanti_select_id & ""

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

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

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

    End Sub

    Sub sort_cancel(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        sort_DataGrid.EditItemIndex = -1
        databinddatagrid()
    End Sub

    Sub sort_delete(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Dim zhuanti_select_id As Integer
        Dim selectstring, updatastring, deletestring As String
        Dim message As String

        zhuanti_select_id = sort_DataGrid.DataKeys(e.Item.ItemIndex)

        selectstring = "select type from type where nclassid=" & zhuanti_select_id & ""
        deletestring = "delete from anclass where nclassid=" & zhuanti_select_id & ""

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

        If dpfly.DeleteDBRecoder(selectstring, deletestring) Then
            message = "删除序号为" & zhuanti_select_id & "的栏目成功！"
            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
            dplog.Log_Add_cache("删除栏目", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "删除序号为" & zhuanti_select_id & "的栏目失败，可能此一级栏目存在着下级栏目，你无法删除，除非你先删除下级栏目！请重新删除！"
        End If

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

    End Sub

    Private Sub add_sort_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_sort_button.Click
        If Session("KEY") <> "super" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If
        Dim message As String
        Dim _temp_zhuantiname As String
        Dim updatastring As String
        Dim selectstring As String

        _temp_zhuantiname = add_sort_name.Text


        selectstring = "select nclass from anclass where nclass='" & _temp_zhuantiname & "'"
        updatastring = "Insert into anclass (nclass) values ('" & _temp_zhuantiname & "')"

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        If dpfly.AddNew_Edit_AdminUser(selectstring, updatastring) Then
            message = "增加栏目…" & _temp_zhuantiname & "…成功！"
            Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
            dplog.Log_Add_cache("增加栏目", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "增加栏目失败，此栏目可能已经存在，请更换栏目名称，请重新修改！"
        End If

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

    End Sub

End Class