分页显示怎么用啊,最好能有代码详解一下,谢谢
------解决方案--------------------
- HTML code
<% Dim DataCount'记录总数 Dim MaxPerPage'每页条数 Dim PageCount'总页数 Dim Page'页码 Dim PerPageNum '每页显示的分页页码数量=PerPageNum*2+1 Dim MaxPageNum '每页显示的分页的最大页码 Dim MinPageNum '每页显示的分页的最小页码 Dim DataTable'数据表名 Dim PageUrl'本页地址 PerPageNum = 2 Page = Clng(Request("Page")) MaxPerPage = 32 DataTable = "tb" PageUrl = Request.ServerVariables("Path_Info") Taxis = " Order By id" Set Rs=Server.CreateObject("ADODB.Recordset") StrSQL="Select ID From "&DataTable&Taxis Rs.open StrSQL,DbConn,1,1 DataCount=Rs.RecordCount If(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(.