分页显示怎么用啊，最好能有代码详解一下，谢谢
------解决方案--------------------
<%
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=1 To Rs.PageSize
If Rs.EOF Then Exit For
If(I=1)Then
ID=Rs("ID")
Else
ID=ID &","&Rs("ID")
End If
Rs.MoveNext
Next
'获取本页需要用到的id结束============================================
End If
Rs.Close
%>
然后在要分页的地方调用下面这个过程
<%Sub ShowPage()%>
<table width="100%" border="0" cellpadding="1" cellspacing="0">
<form method="post" onSubmit="return false;">
<tr>
<td align="center">共<b><%=DataCount%></b>条信息 <b><%=MaxPerPage%></b>条/页
共<b><%=PageCount%></b>页</td>
<td align="right">
<%
'设置分页页码开始===============================
MinPageNum=Page-PerPageNum'计算页码开始值
MaxPageNum=Page+PerPageNum'计算页码结束值
If(MinPageNum<1) Then'如果页码开始值小于1则=1
MinPageNum=1
MaxPageNum=PerPageNum*2+1
End if
If(Page>1) Then'如果页码大于1则显示(第一页)
response.write ("<a href='"& PageUrl &"?Page=1"&url&"' class='Black'>首页</a> ")
End If
If(Page>1) Then'如果页码开始值大于1则显示(更前)
response.write ("<a href='"& PageUrl &"?Page="& Page-(1) &url&"' class='Black'>上页</a> ")
End If
If(MaxPageNum>PageCount) Then'如果页码结束值大于总页数,则=总页数
If MinPageNum>1 Then
MinPageNum=PageCount-(PerPageNum*2)
If MinPageNum<1 Then
MinPageNum=1
End If
End If
MaxPageNum=PageCount
End If
For i = MinPageNum To MaxPageNum'循环输出页码
If(i=Page) Then
Response.Write ("<strong>"& i &"</strong> ")
Else