一、程序功能：为Repeater实现分页

二、窗体设计：

1、新建程序，命名为Repeater2，保存路径为http://192.168.0.1/Repeater2（注：我机子上的网站的IP是192.168.0.1的主目录是D:“web文件夹）然后点击确定。

2、向窗体添加一个3行一列的表，向表的第一行中添加一个Repeater控件，向表的第二行中添加两个Label控件向表的第三行中添加四个Button按钮。

3、切换到HTML代码窗口，在＜asp:Repeaterid="Repeater1"runat="server"＞和＜/asp:Repeater＞之间添加以下代码：

＜ItemTemplate＞
＜tableid="Table2"width="498"＞
＜tr＞
＜td＞＜%#DataBinder.Eval%＞＜/td＞
＜td＞＜%#DataBinder.Eval%＞＜/td＞
＜/tr＞
＜/table＞
＜/ItemTemplate＞
三、代码设计：

ImportsSystem.Data.SqlClient
PublicClassWebForm1
InheritsSystem.Web.UI.Page

DimsconAsNewSqlConnection
DimsDAAsSqlDataAdapter
DimdsAsDataSet
DimcurrentPageAsInteger‘记录着目前在哪一页上
DimmaxPageAsInteger‘总共有多少页
ConstrowCountAsInteger=3‘一页有多少行
DimrowSumAsInteger‘总共有多少行

‘窗体代码省略

PrivateSubPage_LoadHandlesMyBase.Load

IfNotPage.IsPostBackThen
sDA=NewSqlDataAdapter
ds=NewDataSet
Try
sDA.Fill
‘获取总共有多少行
rowSum=ds.Tables.Rows.Count
CatchexAsException
rowSum=0
EndTry

‘如果没有数据，退出过程
IfrowSum=0ThenExitSub
‘计算出浏览数据的总页数
IfrowSumModrowCount＞0Then
‘有余数要加1
maxPage=rowSum“rowCount+1
Else
‘正好除尽
maxPage=rowSum“rowCount
EndIf

currentPage=1
‘调用绑定数据过程
readpage
BindData
Label2.Text=maxPage
‘首页和按钮不可见
Button1.Visible=False
Button2.Visible=False
EndIf
EndSub

‘创建一个绑定数据的过程
SubBindData
Repeater1.DataSource=ds
Repeater1.DataBind
Label1.Text=currentPage
EndSub

‘创建一个填充数据集的过程
Subreadpage
sDA=NewSqlDataAdapter
ds=NewDataSet
ds.Clear
sDA.FillrowCount，rowCount，"employees")
EndSub

‘首页按钮
PrivateSubButton1_ClickHandlesButton1.Click

currentPage=1
‘调用填充数据集过程
readpage
‘绑定数据
BindData
‘设置首页、第一页按钮不可见，显示尾页按钮
Button1.Visible=False
Button2.Visible=False
Button3.Visible=True
Button4.Visible=True

EndSub

‘按钮
PrivateSubButton2_ClickHandlesButton2.Click
‘如果现在页是第二页，设置首页和按钮不可见
IfLabel1.Text＞2Then
Button3.Visible=True
Button4.Visible=True
Else
Button1.Visible=False
Button2.Visible=False
Button3.Visible=True
Button4.Visible=True
EndIf
currentPage=Label1.Text-1
readpage
BindData
EndSub

‘按钮
PrivateSubButton3_ClickHandlesButton3.Click
‘如果现在页倒数第二页，设置最后页和按钮不可见
IfLabel1.Text＜Label2.Text-1Then
Button1.Visible=True
Button2.Visible=True
Else
Button1.Visible=True
Button2.Visible=True
Button3.Visible=False
Button4.Visible=False
EndIf
currentPage=Label1.Text+1
readpage
BindData
EndSub

‘尾页按钮
PrivateSubButton4_ClickHandlesButton4.Click
‘设置当前页为最大页数
currentPage=Label2.Text
readpage
BindData
Button1.Visible=True
Button2.Visible=True
Button3.Visible=False
Button4.Visible=False
EndSub
EndClass
窗体界面如下所示：