asp分页显示,该如何解决

<%
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(.