VB.Net 开发的长内容自动分页功能

  1<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()   
  2  
  3End Sub   
  4  
  5Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init   
  6'CODEGEN: 此方法调用是 Web 窗体设计器所必需的   
  7'不要使用代码编辑器修改它。   
  8InitializeComponent()   
  9End Sub   
 10  
 11#End Region   
 12  
 13Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
 14'在此处放置初始化页的用户代码   
 15pages()   
 16End Sub   
 17  
 18'长内容分页   
 19Sub pages()   
 20Dim i, start, stops, t, stat, statt, pp, pagecount, pagesize, articleid As Integer   
 21Dim pa, articletxt, articletext, contenttext, html As String   
 22contenttext = "<p>aaaaaaa</p><p>bbbbbbbbbbbb</p><p>cccccccccccccccc</p>"   
 23'变量初始值   
 24stat = 0   
 25statt = 0   
 26start = 0 '开始查询的字符串位置，初始为0   
 27stops = 0   
 28pagesize = 2 '定义每页至少显示字符串数   
 29pagecount = 0   
 30  
 31'获得当前的页数   
 32pa = Request.Params("page")   
 33If (pa = "" Or IsDBNull(pa)) Then   
 34pa = "1"   
 35End If   
 36pp = Convert.ToInt32(pa)   
 37  
 38'获得内容   
 39articletxt = contenttext   
 40  
 41'判断页面的内容长度是否大于定义的每页至少显示字符串数   
 42If (articletxt.Length &gt;= pagesize) Then ' 如果大于字符串数，则我们可以分页显示   
 43t = articletxt.Length / pagesize '获得大致的总页数   
 44'根据目前获得的页数循环   
 45For i = 0 To t   
 46'如果查询开始位置到查询的范围超出整个内容的长度，那么就不用寻找断点（分页点）；反之，查找   
 47If (start + pagesize &lt; articletxt.Length) Then   
 48stat = articletxt.IndexOf("", start + pagesize) '查找分页点的位置   
 49'如果找不到   
 50'If (stat &lt;= 0) Then   
 51'stat = articletxt.IndexOf("", start + pagesize) '查找分页点的位置；这里您可以自己设置分页点的判断   
 52'End If   
 53End If   
 54'Response.Write("'" &amp; stat &amp; "'")   
 55If (stat &lt;= 0) Then   
 56'如果找不到分页点，说明不能分页，也就不需要做其他的劳动了；否则，就进行分页   
 57'articletext = articletxt '将结果付给要导出的变量   
 58'Label1.Text = articletext &amp; stat   
 59'Exit Sub   
 60Else   
 61  
 62stops = stat '分页点的位置也就作为这一页的终点位置   
 63If (start + pagesize &gt;= articletxt.Length) Then '如果起始位置到查询的范围超出整个内容的长度，那么这一页的终点位置为内容的终点   
 64stops = articletxt.Length   
 65End If   
 66If (pp = i + 1) Then '如果是当前，那么输出当前页的内容   
 67articletext = articletxt.Substring(start, stops - start) '取内容的起始位置到终点位置这段字符串输出   
 68Label1.Text = articletext   
 69End If   
 70start = stat '将终点位置作为下一页的起始位置   
 71pagecount = pagecount + 1 '获得实际页总数   
 72'Response.Write("-" &amp; pagecount &amp; "-")   
 73End If   
 74Next   
 75End If   
 76'分页部分(这里就简单多了)   
 77'定义分页代码变量   
 78  
 79If (pagecount &gt; 1) Then '当页数大于1的时候我们显示页数   
 80'Response.Write(pp)   
 81If (pp - 1 &gt; 0) Then '显示上一页，方便浏览   
 82html += "<a "&page=" &amp; (pp - 1) &amp; " &="" articleid="" href='?id="'>[上一页]</a> "   
 83Else   
 84If pp = 1 Then   
 85html += "[<font color="#cccccc">上一页</font>] "   
 86Else   
 87html += "<a "&page=" &amp; (1) &amp; " &="" articleid="" href='?id="'>[上一页]</a> "   
 88End If   
 89  
 90End If   
 91For i = 1 To pagecount   
 92  
 93If (i = pp) Then '如果是当前页，加粗显示   
 94html += "<b>[" &amp; i &amp; "]</b> "   
 95Else   
 96html += "<a "&page=" &amp; i &amp; " &="" articleid="" href='?id="'>[" &amp; i &amp; "]</a> "   
 97End If   
 98Next   
 99If (pp + 1 &gt; pagecount) Then '显示下一页，方便浏览   
100If pp = pagecount Then   
101html += "[<font color="#cccccc">下一页</font>] "   
102Else   
103html += "<a "&page=" &amp; (pagecount) &amp; " &="" articleid="" href='?id="'>[下一页]</a>"   
104End If   
105Else   
106html += "<a "&page=" &amp; (pp + 1) &amp; " &="" articleid="" href='?id="'>[下一页]</a>"   
107End If   
108End If   
109Label2.Text = html   
110End Sub   
111  
112End Class</system.diagnostics.debuggerstepthrough()>