首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > CGI >

asp分页显示,该如何解决

2012-02-02 
asp分页显示分页显示怎么用啊,最好能有代码详解一下,谢谢[解决办法]HTML code%Dim DataCount记录总数Dim

asp分页显示
分页显示怎么用啊,最好能有代码详解一下,谢谢

[解决办法]

HTML code
<%Dim DataCount'记录总数Dim MaxPerPage'每页条数Dim PageCount'总页数Dim Page'页码Dim PerPageNum '每页显示的分页页码数量=PerPageNum*2+1Dim MaxPageNum '每页显示的分页的最大页码Dim MinPageNum '每页显示的分页的最小页码Dim DataTable'数据表名Dim PageUrl'本页地址PerPageNum    =    2Page        =    Clng(Request("Page"))MaxPerPage    =    32DataTable    =    "tb"PageUrl     =    Request.ServerVariables("Path_Info")Taxis        =    " Order By id"Set Rs=Server.CreateObject("ADODB.Recordset")StrSQL="Select ID From "&DataTable&TaxisRs.open StrSQL,DbConn,1,1DataCount=Rs.RecordCountIf(DataCount>0) Then'如果记录总数=0,则不处理    If(DataCount Mod MaxPerPage=0)Then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1        PageCount=Int(DataCount/MaxPerPage)'获取总页数    Else        PageCount=Int(DataCount/MaxPerPage)+1'获取总页数    End If    '获取本页需要用到的id============================================    '读取所有记录的id数值,因为只有id所以速度很快       Rs.PageSize = MaxPerPage '每页显示记录数       If Page<1 Then Page = 1       If Page>PageCount Then Page = PageCount       If PageCount> 0 Then Rs.absolutepage = Page      For I=1l(. 

热点排行