asp分页显示
分页显示怎么用啊,最好能有代码详解一下,谢谢
[解决办法]
<%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(.