ICANN认证国际域名顶级注册机构
网站建设,域名注册,空间租用,软件销售,广告设计 域名注册,空间租用, 网站建设,东莞网页设计,域名注册,网站推广,网站开发,网页设计 网站推广,,百度推广,新浪推广,雅虎推广,网易推广 标志设计,画册设计,包装设计,VI策划,企业形象顾问 连邦软件加盟店,提供销遥行,管家婆,速达,用友ERP,诺顿等软件报价及销售 建站必读 腾达网络,上网帮助中心, 腾达为东莞等地,提供网站建设,网站推广,广告设计,软件销售等优质服务!
建站必读


 
 
当前位置:首页 -> 建站必读 -> .NET技术
DataList和DataRepeater分页
ASP.NET中的DataList和DataRepeater提供了简单快速的方法來显示,其间,我们可以使用<ItemTemplate>更是使我们能随心所欲的控制数据的排放样式!.可惜的是它们不像Datagrid那样,有内置的分页功能。



如何解决呢?



其实我们可以【PagedDataSource】 类来解决分页的问题。



PagedDataSource类的属性:





DataSource -数据源



AllowPaging - true 是否允许分页.

PageSize - 每页项目数量

PageCount - 总页数



CurrentPageIndex - 当前所在的页索引

代码如下:



<%@ Page Language="VB" %>

<%@ import Namespace="System.Data" %>

<script runat="server">

Sub Page_Load(ByVal Sender As Object, ByVal e As EventArgs)



Dim Pgds As PagedDataSource = New PagedDataSource

Pgds.DataSource = CreateDataSource().DefaultView

Pgds.AllowPaging = True

Pgds.PageSize = 6

lblTotalPage.Text = Pgds.PageCount.ToString()



Dim CurrentPage As Integer

If Not Request.QueryString("Page") Is Nothing Then

CurrentPage = Convert.ToInt32(Request.QueryString("Page"))

Else

CurrentPage = 1

End If



Pgds.CurrentPageIndex = CurrentPage - 1

lblCurrentPage.Text = CurrentPage.ToString()



If Not Pgds.IsFirstPage Then

lnkPrev.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage - 1)

End If



If Not Pgds.IsLastPage Then

lnkNext.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + Convert.ToString(CurrentPage + 1)

End If



Repeater1.DataSource = Pgds

Repeater1.DataBind()



End Sub



Function CreateDataSource() As Datatable



Dim dt As DataTable

Dim dr As DataRow

Dim i As Integer



dt = New DataTable

dt.Columns.Add(New DataColumn("IntegerValue", GetType(Integer)))

dt.Columns.Add(New DataColumn("StringValue", GetType(String)))

dt.Columns.Add(New DataColumn("DateTimeValue", GetType(DateTime)))

dt.Columns.Add(New DataColumn("BoolValue", GetType(Boolean)))





For i = 0 To 50

dr = dt.NewRow()

dr(0) = i

dr(1) = "Item " + i.ToString()

dr(2) = DateTime.Now.ToShortTimeString

If (i Mod 2 <> 0) Then

dr(3) = True

Else

dr(3) = False

End If



dt.Rows.Add(dr)

Next



Return dt



End Function



</script>



<html><head>

<title>DataRepeater</title>

<style type=text/css>



BODY {

FONT: 10px Verdana, Arial, Helvetica, "sans serif"; COLOR: #000000;

}

.txt {

FONT-SIZE: 12px

}

</style>

</head>

<body>

<form id="Form1" name=form1 method=post runat="server">

<table class=txt width="100%" border=0>

<tbody><tr><td>



<asp:hyperlink id=lnkPrev runat="server">上页</asp:hyperlink>

<asp:hyperlink id=lnkNext runat="server">下页</asp:hyperlink>第

<asp:label id=lblCurrentPage runat="server"></asp:label> 页 共 <asp:label id=lblTotalPage runat="server"></asp:label>页



</td></tr></tbody></table>

<asp:repeater id=Repeater1 runat="server">





<ItemTemplate>

<hr align="left" width="60%" size="1">

<table class=txt width="100%" border="0">

<tr>

<td>

Order Date: <%# DataBinder.Eval(Container.DataItem, "DateTimeValue", "{0:d}") %>

</td><tr><td>

Quantity: <%# DataBinder.Eval(Container.DataItem, "IntegerValue", &q
 
 
本站关键词:
|东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司||东莞google推广|东莞关键词推广|东莞网站推广策划|东莞域名申请|东莞主机申请|东莞空间申请|东莞网站建设|东莞网页设计|东莞网络公司|网站建设|网页设计|网络公司|
域名注册 | 虚拟主机 | 网站建设 | 网站推广 | 广告设计 | 帮助中心 | 软件中心 | 关于腾达
东莞市腾达信息工程有限公司      本站网络实名: 东莞网站建设
地址:东莞市新城市中心区第一国际B座610   邮编:523007
电话:0769-22026071 22026072 传真:0769-22026076 24小时服务热线:13712032014
© 2002~2005 腾达网络   版权所有