1.每頁設置顯示9頁,超過9頁,點5頁後的+1頁顯示(可以隨便修改)
2.CSS樣式自己可以設置
3.無任何咋代碼產生,利於搜索引擎優化
4.至於性能怎麼樣大家可以試下
- Dim objPDS As PagedDataSource
- '分頁程序
- objPDS = New PagedDataSource()
- objPDS.DataSource = dtTable.DefaultView
- '綁定數據源
- objPDS.AllowPaging = True
- objPDS.PageSize = 10
- '分頁數目
- Dim curPage As Integer
- Dim cshi As Integer
- Dim jshi As Integer
- Dim zyes As Integer = Int32.Parse(objPDS.PageCount.ToString())
- Me.tjixx.Text = "總共 <font color=red>" & dtTable.Rows.Count & " </font>條信息"
- Me.tjixx.Text += "|共 <font color=red>" & zyes & " </font>頁"
- If Request.QueryString("Page") IsNot Nothing Then
- If Int32.Parse(Request.QueryString("Page")) > zyes Then
- curPage = zyes
- Else
- curPage = Int32.Parse(Request.QueryString("Page"))
- End If
- Else
- curPage = 1
- End If
- If zyes <= 9 Then
- cshi = 1
- jshi = zyes
- Else
- If curPage <= 5 Then
- cshi = 1
- jshi = 9
- Else
- cshi = curPage - 4
- Dim jshils As Integer = curPage + 4
- If jshils > zyes Then
- jshi = zyes
- Else
- jshi = curPage + 4
- End If
- End If
- End If
- objPDS.CurrentPageIndex = curPage - 1
- Dim m_strPageInfo As New StringBuilder()
- For i As Integer = cshi To jshi
- If i = Int32.Parse(curPage.ToString()) Then
- m_strPageInfo.Append(" <span class=""dqye""> <strong>" & i & " </strong> </span> ")
- Else
- m_strPageInfo.Append(((" <span class=""qtye""> <strong> <a href=""newslist_ej" & Request.QueryString("wzcat") & "_Page") + i & ".html"">") + i & " </a> </strong> </span> ")
- End If
- Next
- Me.yemsl.Text = m_strPageInfo.ToString()
- If Not objPDS.IsFirstPage Then
- linkPre.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + Convert.ToString(curPage - 1)
- linkPre.NavigateUrl += ".html"
- End If
- If Not objPDS.IsLastPage Then
- linkNext.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + Convert.ToString(curPage + 1)
- linkNext.NavigateUrl += ".html"
- End If
- linkFirstPage.NavigateUrl = "newslist_ej" & Request.QueryString("wzcat") & "_Page1"
- linkFirstPage.NavigateUrl += ".html"
- linkEndPage.NavigateUrl = ("newslist_ej" & Request.QueryString("wzcat") & "_Page") + objPDS.PageCount.ToString()
- linkEndPage.NavigateUrl += ".html"
- Me.DataList4.DataSource = objPDS
- '綁定分頁的數據
- Me.DataList4.DataBind()