通用的分页控件

　　当分页存储过程写好后．．分页又成了难题．．ＭＳ的分页性能不佳．ＭＳ的是坚决不能用．．本人花了半天的时间自己写了一个通用的分页用户控件．．个人感觉不错．．顾拿出来分享．效果如图

 

／＊htBase　hastable类型．传入业务的对象

Controlpage1.为分页控件．．　

ItemsPerPage（每页记录）　可以在控件设置默认值

UrlBase 　需提交的额为的参数．．例子的额外的参数是：mCatalogID

ItemsCount 　记录总数

PageCount 　页数

＊／

　　htBase.Add("PageSize", Controlpage1.ItemsPerPage.ToString())　＇htBase　hastable类型．传入业务的对象
                If (Me.Request.QueryString("pagepos") Is Nothing) Then
                    htBase.Add("PagePos", Controlpage1.CurrentPage)
                Else
                    htBase.Add("PagePos", CType(Me.Request.QueryString("pagepos").ToString(), Integer) - 1)
                End If
                Controlpage1.UrlBase = Page.Request.Url.ToString.Substring(0, Page.Request.Url.ToString.LastIndexOf("?")) & "?mCatalogID=" & str

                htMaterialList.Add(DAFuncName.ExecSP, htBase)
                htBase = getRationListBSS.GetListForRation(htMaterialList, strErrInfo)
                strTotalRowCount = CType(htBase("TotalRowCount"), Integer)
                Controlpage1.ItemsCount = strTotalRowCount
                Controlpage1.PageCount = strTotalRowCount / Controlpage1.ItemsPerPage

 

代码下载:（代码上传不了，请加群号：25663118，Ｍ群主）