admin_zhuanti.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.Data.SqlClient
Imports System.Configuration
Imports flash
Imports flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class admin_zhuanti
    Inherits System.Web.UI.Page
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents edit_zhuanti As System.Web.UI.WebControls.Button
    Protected WithEvents Panel_edit_zhuanti As System.Web.UI.WebControls.Panel
    Protected WithEvents Panel_add_zhuanti As System.Web.UI.WebControls.Panel
    Protected WithEvents zhuanti_edit_text As System.Web.UI.WebControls.TextBox
    Protected WithEvents zhuanti_select_id As System.Web.UI.HtmlControls.HtmlInputHidden

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

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

    End Sub
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_title As System.Web.UI.WebControls.Label
    Protected WithEvents add_zhuanti_name As System.Web.UI.WebControls.TextBox
    Protected WithEvents add_zhuanti As System.Web.UI.WebControls.Button
    Protected WithEvents addzhuanti_error_message As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 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
            addzhuanti_error_message.Text = _temp_message
        End If
        '修改或删除时错误提示代码

        Panel_add_zhuanti.Visible = True
        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"专题名称", "专题加入者", "备注"}
        Dim Stringb As String() = {"zhuantiname", "addusername", ""}
        Dim Stringc As String() = {"admin_manage.aspx", "", ""}
        Dim Stringd As String() = {"zhuantiid|zhuantiname", "", ""}
        Dim Stringe As Integer() = {0, 160, 80}

        myinfo.PadingDataKeyFiled = "zhuantiid"
        myinfo.PadingColumnHeaderName = Stringa
        myinfo.PadingColumnItemFiled = Stringb
        myinfo.PadingColumnUrlExpress = Stringd
        myinfo.PadingColumnUrlName = Stringc
        myinfo.PadingColumnWidth = Stringe
        DataGridPading1.SetPadingPageInfo = myinfo
        Dim sqlqureyselect As String = "SELECT zhuantiid,zhuantiname,addusername FROM zhuanti"

        DataGridPading1.SetPadingPageSize = 17
        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        dpfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
        dpfly.Bulid_Pading(DataGridPading1, "article_zhuant", sqlqureyselect)
    End Sub


    Private Sub add_zhuanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add_zhuanti.Click

        If Session("KEY") <> "super" And Session("KEY") <> "check" 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_zhuanti_name.Text

        selectstring = "select zhuantiname from zhuanti where zhuantiname='" & _temp_zhuantiname & "'"
        updatastring = "Insert into zhuanti (zhuantiname,addusername) values ('" & _temp_zhuantiname & "','" & Session("trueName") & "')"

        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("eventxml")
            dplog.Log_Add_cache("增加专题", Session("trueName"), message, Request.UserHostAddress)
        Else
            message = "增加专题失败，请重新"
        End If

        Response.Redirect("admin_zhuanti.aspx?message=" & message)
    End Sub


    Sub zhuanti_edit(ByVal s As Object, ByVal e As DataGridCommandEventArgs)
        Panel_add_zhuanti.Visible = False
        Panel_edit_zhuanti.Visible = True
        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("article_zhuant")
        _temp_user_info.Sort = "zhuantiid"
        _temp_selectid = _temp_user_info.Find(_temp_id)

        zhuanti_edit_text.Text = _temp_user_info(_temp_selectid).Row("zhuantiname")
        zhuanti_select_id.Value = _temp_user_info(_temp_selectid).Row("zhuantiid")
        addzhuanti_error_message.Text = "目前您的操作：编辑专题 " & _temp_user_info(_temp_selectid).Row("zhuantiname") & " ！"
    End Sub

    Sub zhuanti_delete(ByVal s As Object, ByVal e As DataGridCommandEventArgs)

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

        Dim zhuanti_select_name, resultdo, 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")

        resultdo = dpfly.DelSelectZhuanTi(_temp_id)
        zhuanti_select_name = resultdo.Substring(6)

        If resultdo.Substring(0, 5) = "Right" Then
            message = "删除专题…" & zhuanti_select_name & "…成功！"
            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 = "删除专题…" & zhuanti_select_name & "…失败，请重新删除！"
        End If

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

    End Sub

    Private Sub edit_zhuanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_zhuanti.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("index.aspx")
            Response.End()
        End If

        Dim _select_id As Integer
        Dim selectstring, updatastring As String
        Dim message As String

        _select_id = zhuanti_select_id.Value

        selectstring = "select zhuantiname from zhuanti where zhuantiname='" & zhuanti_edit_text.Text & "' and zhuantiid<>" & _select_id
        updatastring = "UPDATE zhuanti set zhuantiname = '" & zhuanti_edit_text.Text & "' WHERE zhuantiid = " & _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_edit_text.Text & "…成功！"
            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_zhuanti.aspx?message=" & message)

    End Sub

End Class