admin_editview.aspx.vb

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

        End If

        Dim _shenghestate As Boolean
        If Request.Params("article_shenghe") = "on" Then
            _shenghestate = True
            _textcontent.ArticleShengHe = 2
        Else
            _shenghestate = False
            _textcontent.ArticleShengHe = 1
        End If
        _textcontent.ArticleCheckPeople = Session("trueName")

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

        Dim dplog As iSystemClass = HowToUsingFlyangel.iSystemClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dplog.SetLogXmlSchema = ConfigurationSettings.AppSettings("logxsd")

        dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
        Dim addnewsresultbool As Boolean
        addnewsresultbool = dbfly.AddArticle_Record(_textcontent, _shenghestate, DoArticleType.EditNews)

        If addnewsresultbool Then
            dplog.Log_Add_cache("文章编辑", Session("trueName"), txttitle.Text & "（栏目：" & typeid.SelectedItem.Text & "）", Request.UserHostAddress)
            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("文章编辑", Session("trueName"), txttitle.Text & "（栏目：" & typeid.SelectedItem.Text & "）", Request.UserHostAddress)

            Response.Redirect("article_save.aspx?action=edit")
        Else
            Response.Redirect("article_save.aspx?action=error")
        End If
    End Sub

    Private Sub Button_repub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_repub.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

        Dim message As String

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

        If dpfly.InactiveArticle_Publiced_ID(_newsid, ConfigurationSettings.AppSettings("HtmlWrite")) Then
            message = "撤消ID为…" & _newsid & "…的文章已成功撤消！"

            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)

            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("撤消已发布的文章", Session("trueName"), message, Request.UserHostAddress)

        Else
            message = "撤消ID为…" & _newsid & "…的文章失败，请检查您的选择！"
        End If
        Response.Redirect("article_save.aspx?action=admindel&message=" & message)

    End Sub

    Private Sub Button_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_del.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

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

        If dpfly.DeleteArticle_Publiced_ID(_newsid, ConfigurationSettings.AppSettings("HtmlWrite"), True) Then
            message = "删除ID为…" & _newsid & "…的文章已成功删除！"
            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 = "撤消ID为…" & _newsid & "…的文章失败，请检查您的选择！"
        End If
        Response.Redirect("article_save.aspx?action=admindel&message=" & message)

    End Sub

    Private Sub Button_del_sh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_del_sh.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

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

        If dpfly.DeleteArticle_Publiced_ID(_newsid, ConfigurationSettings.AppSettings("HtmlWrite"), False) Then
            message = "删除ID为…" & _newsid & "…的文章已成功删除！"
            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 = "删除ID为…" & _newsid & "…的文章失败，请检查您的选择！"
        End If

        Response.Redirect("article_save.aspx?action=admindel&message=" & message)
    End Sub

    Private Sub Button_pubnormal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_pubnormal.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

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

        If dpfly.PublicArticle_ID(_newsid, Session("trueName"), ConfigurationSettings.AppSettings("HtmlWrite")) Then
            message = "发布常规格式ID为…" & _newsid & "…的文章成功！"

            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)

            dplog.SetLogXmlDocument = ConfigurationSettings.AppSettings("eventxml")
            dplog.Log_Add_cache("发布常规格式文章", Session("trueName"), message, Request.UserHostAddress)

        Else
            message = "发布常规格式ID为…" & _newsid & "…的文章失败，请检查您的选择！"
        End If

        Response.Redirect("article_save.aspx?action=admindel&message=" & message)
    End Sub

    Private Sub Button_pubhtml_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_pubhtml.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

        Dim message As String

        Response.Redirect("article_save.aspx?action=admindel&message=" & message)
    End Sub

    Private Sub Button_pubxml_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_pubxml.Click
        If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
            Response.Redirect("article_save.aspx?action=nologin")
            Exit Sub
        End If

        Dim message As String

        Response.Redirect("article_save.aspx?action=admindel&message=" & message)
    End Sub
End Class