.net 开发的长内容自动分页功能(VB)

原创 2005年05月01日 22:47:00
Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label

#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
        '在此处放置初始化页的用户代码
        pages()
    End Sub

    '长内容分页
    Sub pages()
        Dim i, start, stops, t, stat, statt, pp, pagecount, pagesize, articleid As Integer
        Dim pa, articletxt, articletext, contenttext, html As String
        contenttext = "<p>aaaaaaa</p><p>bbbbbbbbbbbb</p><p>cccccccccccccccc</p>"
        '变量初始值
        stat = 0
        statt = 0
        start = 0 '开始查询的字符串位置,初始为0
        stops = 0
        pagesize = 2 '定义每页至少显示字符串数
        pagecount = 0

        '获得当前的页数
        pa = Request.Params("page")
        If (pa = "" Or IsDBNull(pa)) Then
            pa = "1"
        End If
        pp = Convert.ToInt32(pa)

        '获得内容
        articletxt = contenttext

        '判断页面的内容长度是否大于定义的每页至少显示字符串数
        If (articletxt.Length >= pagesize) Then ' 如果大于字符串数,则我们可以分页显示
            t = articletxt.Length / pagesize '获得大致的总页数
            '根据目前获得的页数循环
            For i = 0 To t
                '如果查询开始位置到查询的范围超出整个内容的长度,那么就不用寻找断点(分页点);反之,查找
                If (start + pagesize < articletxt.Length) Then
                    stat = articletxt.IndexOf("</p>", start + pagesize) '查找</P>分页点的位置
                    '如果找不到
                    'If (stat <= 0) Then
                    'stat = articletxt.IndexOf("</p>", start + pagesize) '查找</p>分页点的位置;这里您可以自己设置分页点的判断
                    'End If
                End If
                'Response.Write("'" & stat & "'")
                If (stat <= 0) Then
                    '如果找不到分页点,说明不能分页,也就不需要做其他的劳动了;否则,就进行分页
                    'articletext = articletxt '将结果付给要导出的变量
                    'Label1.Text = articletext & stat
                    'Exit Sub
                Else

                    stops = stat '分页点的位置也就作为这一页的终点位置
                    If (start + pagesize >= articletxt.Length) Then '如果起始位置到查询的范围超出整个内容的长度,那么这一页的终点位置为内容的终点
                        stops = articletxt.Length
                    End If
                    If (pp = i + 1) Then '如果是当前,那么输出当前页的内容
                        articletext = articletxt.Substring(start, stops - start) '取内容的起始位置到终点位置这段字符串输出
                        Label1.Text = articletext
                    End If
                    start = stat '将终点位置作为下一页的起始位置
                    pagecount = pagecount + 1 '获得实际页总数
                    'Response.Write("-" & pagecount & "-")
                End If
            Next
        End If
        '分页部分(这里就简单多了)
        '定义分页代码变量

        If (pagecount > 1) Then '当页数大于1的时候我们显示页数
            'Response.Write(pp)
            If (pp - 1 > 0) Then '显示上一页,方便浏览
                html += "<a href=?id=" & articleid & "&page=" & (pp - 1) & ">[上一页]</a> "
            Else
                If pp = 1 Then
                    html += "[<font color=#cccccc>上一页</font>] "
                Else
                    html += "<a href=?id=" & articleid & "&page=" & (1) & ">[上一页]</a> "
                End If

            End If
            For i = 1 To pagecount

                If (i = pp) Then '如果是当前页,加粗显示
                    html += "<b>[" & i & "]</b> "
                Else
                    html += "<a href=?id=" & articleid & "&page=" & i & ">[" & i & "]</a> "
                End If
            Next
            If (pp + 1 > pagecount) Then '显示下一页,方便浏览
                If pp = pagecount Then
                    html += "[<font color=#cccccc>下一页</font>] "
                Else
                    html += "<a href=?id=" & articleid & "&page=" & (pagecount) & ">[下一页]</a></p>"
                End If
            Else
                html += "<a href=?id=" & articleid & "&page=" & (pp + 1) & ">[下一页]</a></p>"
            End If
        End If
        Label2.Text = html
    End Sub

End Class

自定义分页存储过程 及VB.NET 调用

ALTER PROCEDURE [dbo].[GetRecordFromPage]     @tblName      nvarchar(255),       -- 表名     @fldNam...

vb.net DataGrid Windows 控件执行分页

http://support.microsoft.com/kb/305271/zh-cn DataGrid Web 控件有内置的自动或自定义分页功能,但是 DataGrid Wind...

章鱼哥出品_VB.NET ComboBox、 TextBox 实现自动完成、自动过滤 模糊查询的功能

本文以ComboBox为例讨论自动过滤功能,主要有两种方式:(TextBox也一样)   一、以AutoCompleteSource、AutoCompleteMode、AutoCompleteCus...

Asp.net同一页面内容分页实现

方法一:Js分页

ASP.NET MVC分页功能的实现的资源

  • 2010年11月30日 17:31
  • 34KB
  • 下载

ASP.NET中Repeater控件实现分页功能

Repeater轻量级,完全的自定义 Repeater分页,需要依靠PagedDataSource。这个类存在于System.Web.UI.WebControls命名空间。它的作用是作为数据源与数据...

.net静态分页功能框架

  • 2014年11月21日 14:43
  • 516KB
  • 下载

asp.net RadGrid分页功能扩展Demo

1、在权限判断代码后面增加如下代码      VSDataTable1 = new DataSet();          public void BindRadGrid()     {...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章: .net 开发的长内容自动分页功能(VB)
举报原因:
原因补充:

(最多只允许输入30个字)