article_listview.vb

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

'文章查看程序，Design By Flyangel
Imports System.IO
Imports System.Configuration
Imports flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class article_listview
    Inherits System.Web.UI.Page
    Protected return_index As System.Web.UI.WebControls.HyperLink
    Protected return_title As System.Web.UI.WebControls.Label
    Protected return_title_1 As System.Web.UI.WebControls.Label
    Protected return_info As System.Web.UI.WebControls.Label
    Protected return_content As System.Web.UI.WebControls.Label
    Protected return_checkpeople As System.Web.UI.WebControls.Label
    Protected WithEvents Panel_top As System.Web.UI.HtmlControls.HtmlTableCell
    Protected return_type As System.Web.UI.WebControls.HyperLink
    Protected return_zhuanti As System.Web.UI.WebControls.HyperLink
    Protected top_new As System.Web.UI.WebControls.Label
    Public courenturl, currenttitle As String

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

    '该调用是 Web 窗体设计器所必需的。
    Protected WithEvents emailbutton As System.Web.UI.WebControls.ImageButton
    Protected WithEvents ArticleTop1 As flyangel.article.Components.ArticleTop
    Protected WithEvents top_hot As System.Web.UI.WebControls.Label
    Protected WithEvents Articletop2 As flyangel.article.Components.ArticleTop
    Protected WithEvents ArticleTop3 As flyangel.article.Components.ArticleTop
    <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
        '在此处放置初始化页的用户代码


        courenturl = Request.Url.ToString

        Dim querystring, querystring_zhuanti As String


        Dim newsid As Integer = Request.QueryString("newsid")
        Dim newsadminway As String = Request.QueryString("way")

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

        Dim listarticle As ArticleListView
        If newsadminway <> "" And newsadminway = "adminway" Then
            If Session("KEY") <> "super" And Session("KEY") <> "check" And Session("KEY") <> "normal" Then
                Response.Redirect("js/error.htm", True)
                Exit Sub
            Else
                listarticle = dpfly.GetArticle_View(newsid, False)
            End If
        Else
            listarticle = dpfly.GetArticle_View(newsid, True)
        End If

        If listarticle.ArticleBool = False Then
            Response.Redirect("js/error.htm", True)
            Exit Sub
        End If

        '判断是否发布成为HTML
        Dim temp_url_list, _htmlpath As String
        If listarticle.ArticleShtml_Y = 1 And listarticle.ArticleShtmlUrl <> "" Then
            temp_url_list = ConfigurationSettings.AppSettings("html_read") & listarticle.ArticleShtmlUrl
            _htmlpath = ConfigurationSettings.AppSettings("html_write") & listarticle.ArticleShtmlUrl
            If File.Exists(_htmlpath) Then
                Response.Redirect(temp_url_list, True)
            End If
            Exit Sub
        End If
        '判断是否发布成为HTML


        If listarticle.ArticleZhuanTiName <> "无" Then
            return_zhuanti.NavigateUrl = "fenye.aspx?zhuantiid=" & listarticle.ArticleZhuanTiId & "&zhuantiname=" & listarticle.ArticleZhuanTiName
        End If
        return_zhuanti.Text = listarticle.ArticleZhuanTiName

        return_type.Text = listarticle.ArticleTypeName
        If listarticle.ArticleTypeId <> 0 Then
            return_type.NavigateUrl = "fenye.aspx?typeid=" & listarticle.ArticleTypeId & "&select_name=" & listarticle.ArticleTypeName
        End If

        Dim dpflystring As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))

        return_title.Text = dpflystring.GetWordTrueLength(listarticle.ArticleTitle, 24)
        return_title_1.Text = listarticle.ArticleTitle
        currenttitle = listarticle.ArticleTitle
        return_info.Text = "<A href=""http://home.ycdx.edu.cn"">银川电力工业学校文章管理系统</A><br><br>作者：<font color=""#FF0000"">" & listarticle.ArticleAuthor & "</font>    来源：<font color=""#FF0000"">" & listarticle.ArticleNfrom & "</font>    阅读：( <font color=""#FF0000"">" & listarticle.ArticleHits & "</font> )次<br><br>"
        return_content.Text = listarticle.ArticleContent
        return_checkpeople.Text = "投稿：" & listarticle.ArticleAddAuthor & "   审核：" & listarticle.ArticleCheckPeople & "   发布时间：<font color=""#FF0000"">" & listarticle.ArticleDateAndTime & "</font>"

        top_new.Text = listarticle.ArticleTypeName
        top_hot.Text = listarticle.ArticleTypeName
    End Sub


End Class