fenye.aspx.vb

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

'利用缓存，调用分页控件程序
'制作：[e-mail]
'最后时间：2003年1月27日

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 flyangel.article.Components
Imports flyangel.article.twotipclass

Public Class fenye
    Inherits System.Web.UI.Page

    Protected WithEvents return_index As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_type As System.Web.UI.WebControls.HyperLink
    Protected WithEvents return_title As System.Web.UI.WebControls.Label
    Protected WithEvents new_top As System.Web.UI.WebControls.Label
    Protected WithEvents new_hot As System.Web.UI.WebControls.Label
    Protected WithEvents ArticleTop1 As flyangel.article.Components.ArticleTop
    Protected WithEvents DataGridPading1 As flyangel.article.Components.DataGridPading
    Protected WithEvents aa As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents ArticleTop2 As flyangel.article.Components.ArticleTop

#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
        '在此处放置初始化页的用户代码
        Dim sqlqureyselect As String
        Dim select_datatablename As String = "article"
        Dim select_tiaojian As String = ""
        return_type.Text = " 全部栏目 "
        new_top.Text = " 全部栏目 "
        new_hot.Text = " 全部栏目 "
        return_title.Text = " 所有文章 "


        Dim _select_name As String = Trim(Request.QueryString("select_name"))
        '如果按一级类目检索数据
        If Request.QueryString("nclassid") <> "" Then
            return_type.Text = _select_name
            new_top.Text = _select_name
            new_hot.Text = _select_name
            return_type.NavigateUrl = "fenye.aspx?nclassid=" & Request.QueryString("nclassid") & "&select_name=" & _select_name
            return_title.Text = " 所有文章 "
            select_datatablename += "_nclassid_" & Request.QueryString("nclassid")
            select_tiaojian = " and nclassid=" & Request.QueryString("nclassid")
        End If

        '如果按二级类目检索数据
        If Request.QueryString("typeid") <> "" Then
            return_type.Text = _select_name
            new_top.Text = _select_name
            new_hot.Text = _select_name
            return_type.NavigateUrl = "fenye.aspx?typeid=" & Request.QueryString("typeid") & "&select_name=" & _select_name
            return_title.Text = " 所有文章 "
            select_datatablename += "_typeid_" & Request.QueryString("typeid")
            select_tiaojian = " and typeid=" & Request.QueryString("typeid")
        End If

        '如果按专题文章检索数据
        Dim _zhuantiid As String = Request.QueryString("zhuantiid")
        Dim _zhuantiname As String = Request.QueryString("zhuantiname")
        If _zhuantiid <> "" And _zhuantiname <> "" Then
            return_type.Text = "专题文章"
            return_type.NavigateUrl = "zhuantilist.aspx"
            return_title.Text = _zhuantiname
            select_datatablename += "_zhuantiid_" & _zhuantiid
            select_tiaojian = " and zhuantiid=" & _zhuantiid
        End If

        '如果按检索关键词进行检索

        Dim keyword As String = Request.QueryString("key")
        If keyword <> "" Then
            Dim asds As iStringClass = HowToUsingFlyangel.iStringClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
            keyword = asds.changechr(keyword)
        End If

        Dim sss As Integer = Request.QueryString("searchtype")
        If keyword <> "" Then
            If sss = 0 Then
                select_tiaojian += " and (title like '%" & keyword & "%')"
            End If
            If sss = 1 Then
                select_tiaojian += " and (content like '%" & keyword & "%')"
            End If
            If sss = 2 Then
                select_tiaojian += " and (dateandtime like '%" & keyword & "%')"
            End If
            If sss = 3 Then
                select_tiaojian += " and (author like '%" & keyword & "%')"
            End If
            return_type.Text = "检索范围"
            return_title.Text = Request.QueryString("searchtypeway") & " <IMG height=""9"" src=""images/dot.gif""> " & new_top.Text & " <IMG height=""9"" src=""images/dot.gif""> 检索词：" & keyword
            select_datatablename = "search"
            sqlqureyselect = "SELECT  newsid,title,author,dateandtime,typeid,nclassid, shtmlurl, shtml_y FROM article where shenghe=2" & select_tiaojian & " order by dateandtime desc"
        Else
            sqlqureyselect = "SELECT  newsid,title,author,dateandtime,typeid,nclassid,zhuantiid, shtmlurl, shtml_y FROM article where shenghe=2" & select_tiaojian & " order by dateandtime desc"
        End If

        Dim myinfo As flyangel.article.Components.PadingPageInfo = New PadingPageInfo
        Dim Stringa As String() = {"标题", "作者", "时间"}
        Dim Stringb As String() = {"title", "author", "dateandtime"}
        Dim Stringc As String() = {"listview.aspx", "", ""}
        Dim Stringd As String() = {"newsid", "", ""}
        Dim Stringe As Integer() = {0, 160, 80}

        myinfo.PadingDataKeyFiled = "newsid"
        myinfo.PadingColumnHeaderName = Stringa
        myinfo.PadingColumnItemFiled = Stringb
        myinfo.PadingColumnUrlExpress = Stringd
        myinfo.PadingColumnUrlName = Stringc
        myinfo.PadingColumnWidth = Stringe
        DataGridPading1.SetPadingPageInfo = myinfo


        DataGridPading1.SetPadingPageSize = 17
        Dim dpfly As iArticleClass = HowToUsingFlyangel.iArticleClass(ConfigurationSettings.AppSettings("AssemblyFilePath"))
        dpfly.SetDBConnstring = ConfigurationSettings.AppSettings("ConnstringA")
        dpfly.SetLogXmlDocument = ConfigurationSettings.AppSettings("logxml")
        dpfly.Bulid_Pading(DataGridPading1, select_datatablename, sqlqureyselect)

    End Sub

End Class