Dim objTmp As New PagedDataSource '实例化一个分页数据源
Dim myPagesize As Integer = 5 '每页记录数
Dim CurrPage As Integer '当前页码
Dim TotalRecord As Integer '总记录数
Dim myPagename As String '当前网页名称
objTmp.DataSource = myDB.GetTab("select * from Guestbook order by ID desc").DefaultView
objTmp.AllowPaging = True '允许分页
objTmp.PageSize = myPagesize '定义每页记录数