散分：分享一个通用分页函数解决方法

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

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

演示地址：http://www.dzswej.com/newslist_ej4.html

PagedDataSource objPDS;
......

//分页程序
objPDS = new PagedDataSource();
objPDS.DataSource = dtTable.DefaultView;//绑定数据源
objPDS.AllowPaging = true;
objPDS.PageSize =10;//分页数目
int curPage;
int cshi;
int jshi;
int zyes = Int32.Parse( objPDS.PageCount.ToString());
this.tjixx.Text = "总共" + dtTable.Rows.Count + "条信息";
this.tjixx.Text += "|共" + zyes + "页";
if (Request.QueryString["Page"] != null)
{
if (Int32.Parse(Request.QueryString["Page"]) > zyes)
curPage = zyes;
else
curPage = Int32.Parse(Request.QueryString["Page"]);
}

else
{
curPage = 1;
}

if (zyes <= 9)
{
cshi = 1;
jshi = zyes;

}
else
{
if (curPage <= 5)
{
cshi = 1;
jshi = 9;

}

else
{

cshi = curPage - 4;
int jshils = curPage + 4;
if (jshils > zyes)
jshi = zyes;
else
jshi=curPage + 4;

}
}
objPDS.CurrentPageIndex = curPage - 1;
StringBuilder m_strPageInfo = new StringBuilder();
for (int i = cshi; i <=jshi; i++)
{
if (i == Int32.Parse(curPage.ToString()))
m_strPageInfo.Append("" + i + " ");
else
m_strPageInfo.Append("<a href=\"newslist_ej" + Request.QueryString["wzcat"] + "_Page" + i + ".html\">" + i + "</a> ");
}
this.yemsl.Text = m_strPageInfo.ToString();

if (!objPDS.IsFirstPage)
{

linkPre.NavigateUrl = "newslist_ej" + Request.QueryString["wzcat"] + "_Page" + Convert.ToString(curPage - 1);
linkPre.NavigateUrl += ".html";
}
if (!objPDS.IsLastPage)
{
linkNext.NavigateUrl = "newslist_ej" + Request.QueryString["wzcat"] + "_Page" + Convert.ToString(curPage + 1);
linkNext.NavigateUrl += ".html";
}
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";
this.DataList4.DataSource = objPDS;//绑定分页的数据

this.DataList4.DataBind();

[解决办法]

VB.NET code

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 = "总共 &lt;font color=red&gt;" & dtTable.Rows.Count & " &lt;/font&gt;条信息" Me.tjixx.Text += "|共 &lt;font color=red&gt;" & zyes & " &lt;/font&gt;页" If Request.QueryString("Page") IsNot Nothing Then     If Int32.Parse(Request.QueryString("Page")) &gt; zyes Then         curPage = zyes     Else         curPage = Int32.Parse(Request.QueryString("Page"))     End If Else         curPage = 1 End If If zyes &lt;= 9 Then     cshi = 1     jshi = zyes     Else     If curPage &lt;= 5 Then         cshi = 1         jshi = 9             Else                         cshi = curPage - 4         Dim jshils As Integer = curPage + 4         If jshils &gt; 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(" &lt;span class=""dqye""&gt; &lt;strong&gt;" & i & " &lt;/strong&gt; &lt;/span&gt; ")     Else         m_strPageInfo.Append(((" &lt;span class=""qtye""&gt; &lt;strong&gt; &lt;a href=""newslist_ej" & Request.QueryString("wzcat") & "_Page") + i & ".html""&gt;") + i & " &lt;/a&gt; &lt;/strong&gt; &lt;/span&gt; ")     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()
[解决办法]
收藏，帮顶
刷新的速度好快啊，挺不错
[解决办法]
mark!!!
[解决办法]
很好很强大啊 ,嘿嘿
[解决办法]
   支持！顶顶顶...
[解决办法]
接了！
[解决办法]
up and mark

散分：分享一个通用分页函数解决方法

热点推荐