看多了“上一页，下一页，首页，尾页”这种分页方法，感觉有点不爽，于是自己动手写了一个 1 2 3 4 5 6这种按照固定的长度输出的分页格式，这个例子中以十个为单位输出！

thePageUrl ：连接分页地址，不包括page
pagelistnum：固定输出分页长度，如果是5，那么就是1，2，3，4，5，下一页就是6，7，8，9，10等！
用法：如果已经有记录集，并且对rs.PageSize设置过就可以拷贝过去使用了。

<% if page>1 and rs.PageCount>0 then %>
          <a href="<%= thePageUrl %>Page=1">首页</a>
          <% else response.Write("首页") end if %> |
          <% if page<>1 and rs.PageCount>0 then %>
<a href="<%= thePageUrl %>Page=<% =Page -1 %>" >上一页</a>
<% else response.Write("上一页") end if %> |
<%
pagelistnum=10 '这个是1 2 3 等形式要列出几页的
if rs.pagecount<=pagelistnum then
 for i=1 to rs.pagecount
  if page=i then
  response.Write(i&" ")
  else
  response.Write("<a href="&thePageUrl&"Page="&i&">["&i&"]</a> ")
  end if
 next
else 'rs.pagecount>10
 if page<=pagelistnum then '取得10内的记录
  for i=1 to pagelistnum
   if page=i then
   response.Write(i&" ")
   else
   response.Write("<a href="&thePageUrl&"Page="&i&">["&i&"]</a> ")
   end if
  next
 else '10以上的处理
 page10=cint(page/pagelistnum)*pagelistnum
 page20=page10+pagelistnum
 if page20<rs.pagecount then
 page20=page10+pagelistnum
 else
 page20=rs.pagecount
 end if
  for i=page10+1 to page20
   if page=i then
   response.Write(i&" ")
   else
   response.Write("<a href="&thePageUrl&"Page="&i&">["&i&"]</a> ")
   end if
  next
 end if
end if
%>
|
<% if page<>rs.PageCount and rs.PageCount>0 then %>
<a href="<%= thePageUrl %>Page=<% =Page + 1%>" >下一页</a>
<%else response.Write("下一页") end if %> |
<% if page<>rs.PageCount and rs.PageCount>0 then %>
<a href="<%= thePageUrl %>Page=<% = rs.PageCount%> ">尾页</a>
<%else response.Write("尾页") end if%>
      </span>
      &nbsp;
      <label>共 <%= rs.recordcount %> 条,有<span class="f12-wenben"><%= rs.pagecount %></span>页 </label>