散分：分享一个通用分页函数

功能：
1.每页设置显示9页，超过9页，点5页后的+1页显示（可以随便修改）
2.CSS样式自己可以设置
3.无任何咋代码产生，利于搜索引擎优化
4.至于性能怎么样大家可以试下

1. Dim objPDS As PagedDataSource 
4. '分页程序 
5. objPDS = New PagedDataSource() 
6. objPDS.DataSource = dtTable.DefaultView 
7. '绑定数据源 
8. objPDS.AllowPaging = True 
9. objPDS.PageSize = 10 
10. '分页数目 
11. Dim curPage As Integer 
12. Dim cshi As Integer 
13. Dim jshi As Integer 
14. Dim zyes As Integer = Int32.Parse(objPDS.PageCount.ToString()) 
15. Me.tjixx.Text = "总共 <font color=red>" & dtTable.Rows.Count & " </font>条信息" 
16. Me.tjixx.Text += "|共 <font color=red>" & zyes & " </font>页" 
17. If Request.QueryString("Page") IsNot Nothing Then 
18.     If Int32.Parse(Request.QueryString("Page")) > zyes Then 
19.         curPage = zyes 
20.     Else 
21.         curPage = Int32.Parse(Request.QueryString("Page")) 
22.     End If 
23. Else 
24.     
25.     curPage = 1 
26. End If 
29. If zyes <= 9 Then 
30.     cshi = 1 
31.     jshi = zyes 
32.     
33. Else 
34.     If curPage <= 5 Then 
35.         cshi = 1 
36.         jshi = 9 
37.         
38.     Else 
39.         
40.         
41.         cshi = curPage - 4 
42.         Dim jshils As Integer = curPage + 4 
43.         If jshils > zyes Then 
44.             jshi = zyes 
45.         Else 
46.             jshi = curPage + 4 
47.         End If 
48.         
49.         
50.     End If 
51. End If 
52. objPDS.CurrentPageIndex = curPage - 1 
53. Dim m_strPageInfo As New StringBuilder() 
54. For i As Integer = cshi To jshi 
55.     If i = Int32.Parse(curPage.ToString()) Then 
56.         m_strPageInfo.Append(" <span class=""dqye""> <strong>" & i & " </strong> </span> ") 
57.     Else 
58.         m_strPageInfo.Append(((" <span class=""qtye""> <strong> <a href=""newslist_ej" & Request.QueryString("wzcat") & "_Page") + i & ".html"">") + i & " </a> </strong> </span> ") 
59.     End If 
60. Next 
61. Me.yemsl.Text = m_strPageInfo.ToString() 
63. If Not objPDS.IsFirstPage Then 
64.     
65.     
66.     linkPre.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + Convert.ToString(curPage - 1) 
67.     linkPre.NavigateUrl += ".html" 
68. End If 
69. If Not objPDS.IsLastPage Then 
70.     linkNext.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + Convert.ToString(curPage + 1) 
71.     linkNext.NavigateUrl += ".html" 
72. End If 
73. linkFirstPage.NavigateUrl = "newslist_ej" & Request.QueryString("wzcat") & "_Page1" 
74. linkFirstPage.NavigateUrl += ".html" 
75. linkEndPage.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + objPDS.PageCount.ToString() 
76. linkEndPage.NavigateUrl += ".html" 
77. Me.DataList4.DataSource = objPDS 
78. '绑定分页的数据 
79. Me.DataList4.DataBind()