admin_sort_next.aspx.vb

来自「程序设计:Flyangel 用到了vb.net c# asp.net xml等 」· VB 代码 · 共 248 行

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Data
Imports System.Configuration
Imports flyangel.article.twotipclass
Imports flyangel.article.Components

Public Class admin_sort_next
    Inherits System.Web.UI.Page
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_title As System.Web.UI.WebControls.Label
    Protected WithEvents add_sort_button As System.Web.UI.WebControls.Button
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label
    Protected WithEvents Panel_add As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_del As System.Web.UI.WebControls.Panel
    Protected WithEvents Button_deltype As System.Web.UI.WebControls.Button
    Protected WithEvents Button_delarticle As System.Web.UI.WebControls.Button
    Protected WithEvents add_sort_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents edit_sort_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents Panel_edit As System.Web.UI.WebControls.Panel
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Button_edittype As System.Web.UI.WebControls.Button
    Protected WithEvents editid As System.Web.UI.WebControls.TextBox
    Protected WithEvents deltypeid As System.Web.UI.WebControls.TextBox
    Protected WithEvents deltypename 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
        '在此处放置初始化页的用户代码
        If Session("KEY") <> "super" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If
        Panel_add.Visible = True
        Panel_edit.Visible = False
        Panel_del.Visible = False

        Dim _temp_classid As Integer = Request.QueryString("nclassid")
        Dim _temp_nclass As String = Request.QueryString("nclass")


        If _temp_classid <> 0 Then
            return_title.Text = _temp_nclass & "：下级栏目设置"
        Else
            Response.Redirect("admin_sort.aspx")
        End If


        '修改或删除时错误提示代码
        Dim _temp_message As String
        _temp_message = Request.QueryString("message")
        If _temp_message <> "" Then
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码

        Dim selectstring As String = "select * from type where nclassid=" & _temp_classid

        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"序号", "栏目名称", "加入时间"}
        Dim Stringb As String() = {"typeid", "type", "typetime"}
        Dim Stringc As String() = {"", "", ""}
        Dim Stringd As String() = {"", "", ""}
        Dim Stringe As Integer() = {40, 160, 120}

        myinfo.PadingDataKeyFiled = "typeid"
        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("logxml")
        dpfly.Bulid_Pading(DataGridPading1, "type_admin", selectstring, False)


    End Sub


    Sub sort_edit(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Panel_edit.Visible = True
        Panel_add.Visible = False
        Panel_del.Visible = False

        Dim _temp_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        Dim _temptypename As String = dpfly.Select_filed_from_Type(_temp_id, "type")
        edit_sort_name.Text = _temptypename
        editid.Text = _temp_id
        addzhuanti_error_message.Text = "目前您的操作：编辑二级栏目" & _temptypename & "的信息！"
    End Sub
    Sub sort_delete(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Panel_edit.Visible = False
        Panel_add.Visible = False
        Panel_del.Visible = True
        Dim _temp_id As Integer = DataGridPading1.DataKeys(e.Item.ItemIndex)

        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        Dim _temptypename As String = dpfly.Select_filed_from_Type(_temp_id, "type")
        deltypename.Text = _temptypename
        deltypeid.Text = _temp_id

    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 type from type where type='" & _temp_zhuantiname & "' and nclassid=" & Request.QueryString("nclassid") & ""
        updatastring = "Insert into type (type,nclassid) values ('" & _temp_zhuantiname & "'," & Request.QueryString("nclassid") & ")"

        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(Request.Url.ToString & "&message=" & message)

    End Sub

    Private Sub Button_deltype_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_deltype.Click
        Dim zhuanti_select_id As Integer
        Dim selectstring, updatastring, deletestring As String
        Dim message As String

        zhuanti_select_id = deltypeid.Text

        selectstring = "select typeid from article where typeid=" & zhuanti_select_id & ""
        deletestring = "delete from type where typeid=" & 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(Request.Url.ToString & "&message=" & message)

    End Sub

    Private Sub Button_delarticle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_delarticle.Click
        Dim _typeid As Integer
        Dim deletestring As String
        Dim message As String

        _typeid = deltypeid.Text
        deletestring = "delete from article where typeid=" & _typeid & ""
        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")

        If dpfly.DeleteDBRecoder("", deletestring) Then
            message = "删除序号为：" & _typeid & "，栏目名为：" & deltypename.Text & " 的栏目成功！"
            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 = "删除序号为：" & _typeid & "，栏目名为：" & deltypename.Text & " 的栏目失败，请重新删除！"
        End If

        Response.Redirect(Request.Url.ToString & "&message=" & message)

    End Sub

    Private Sub Button_edittype_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_edittype.Click
        Dim zhuanti_select_id As Integer
        Dim zhuanti_select_name, updatastringa, updatastringb As String
        Dim selectstring As String
        Dim message As String

        zhuanti_select_id = editid.Text
        zhuanti_select_name = edit_sort_name.Text

        selectstring = "select type from type where type='" & zhuanti_select_name & "'and typeid <> " & zhuanti_select_id & ""
        updatastringa = "UPDATE type set type = '" & zhuanti_select_name & "' WHERE typeid = " & zhuanti_select_id & ""
        updatastringb = "update article set typename='" & zhuanti_select_name & "' where typeid= " & zhuanti_select_id & ""

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

        If dpfly.AddNew_Edit_AdminUser(selectstring, updatastringa) 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)
            If dpfly.OneSelect_doDBRecoder(updatastringb) Then
                message += "<BR>其下所属的文章的栏目也同时成功！"
                dplog.Log_Add_cache("更新文章栏目", Session("trueName"), message, Request.UserHostAddress)
            Else
                message += "<BR>其下所属的文章的栏目没有同步得到更新！"
            End If
        Else
            message = "更新栏目失败，请重新修改！"
        End If

        Response.Redirect(Request.Url.ToString & "&message=" & message)

    End Sub
End Class