在asp中实现分页效果的实现大概可以分成三步。
第一步：
提取要显示的信息，并完成初始化（即对记录对象的一些参数进行设置）
第二步：
显示信息
第三步：
分页尾部显示连接，以便点击显示其它页。
下面是一个简单的例子：

<%sub show()
’以下是提取要显示的信息
    dim rs,strsql
 strsql="select * from link"
 set rs=server.CreateObject("adodb.recordset")
       rs.open strsql,db,1,2
 If Not rs.eof And Not rs.bof then
       dim i,page_no
 i=1
 page_no=request.querystring("page")
 If page_no<0 Or page_no="" Then
       page_no=1
  Else
  page_no=request.querystring("page")
  End If
  rs.pagesize=15'每页显示记录数
  rs.absolutepage=page_no'设置当前显示第几页（以上两步完成初始化）
  '以下是显示效果
        do while not rs.eof And i<15
 %>
    <tr>
      <td class="tdbg"><input name="linkname<%=rs("id")%>" type="text" id="linkname" value="<%=rs("linkname")%>"></td>
      <td class="tdbg"><input name="linkurl<%=rs("id")%>" type="text" id="linkurl" value="<%=rs("linkurl")%>"></td>
      <td class="tdbg"><input name="linklogo<%=rs("id")%>" type="text" id="linklogo" value="<%=rs("linklogo")%>"></td>
      <td class="tdbg"><div align="center"><input type="hidden" name="<%=i%>" id="<%=i%>" value="<%=rs("id")%>">
        <input name="isshow<%=rs("id")%>" type="checkbox" id="isshow<%=rs("id")%>" value="true" <%if rs("isshow")=true then%>checked<%end if%>>
      </div></td>
      <td class="tdbg"><div align="center"><a href="link.asp?action=del&id=<%=rs("id" target=_blank)%>">删除</a></div></td>
    </tr>
 <%
  rs.movenext
  i=i+1
  Loop
  End if%>
    <tr>
      <td class="tdbg" colspan="6"><div align="center">
   <%
       '以下showpage函数是显示连接效果的自定义函数
       showpage "link.asp?action=show",rs.recordcount,15,true,false,"条",page_no%>
        <input type="submit" name="Submit" value="提交">
      </div></td>
    </tr>
  </table>如果想删除logo地址请用<font color=red> 无</font>代替网址
  </form>
<%end sub%>
'以上程序来自易心博客 showpage函数可以参照易心多模板单用户博客程序v1.2中的inc文件夹中fuction.asp文件中的同名函数。下载：blogview.asp?id=38