==============大家给介绍个好点的asp分页程序啊
我现在列表需要按信息的大类小类还有标题关键词查询等条件搜索显示，大概10w条数据，数据库是sql的，我用了叶子的分页类，感觉不是太好用，这种情况大家给介绍个好点的分页程序或思路吧，急啊，自己以前那个感觉太拖了...谢谢啦

------解决方案--------------------
没学过asp
------解决方案--------------------
http://www.web521.com/asp/51868/T61427.shtml
------解决方案--------------------
RecordSet对象的你个属性和方法，足以实现分页。
比如：
Dim i,CurrentPage
Rs.PageSize=10
CurrentPage=Request( "page ")
if CurrentPage= " " or CurrentPage <0
then CurrentPage=1
end if
if Cint(CurrentPage)> Cint(Rs.PageCount) then CurrentPage=Rs.PageCount
Rs.AbosultePage=CurrentPage
Do While Not Rs.EOF And i <Rs.PageSize
.......
i=+1
Loop
.....
Page=1
if CurrentPage <> 1 then
Response.Write " <a href= '#####.asp?CurrentPage=1 '> 首页 </a> "
Else
Response.Write "首页 "
End if
.........


------解决方案--------------------
<!--#include file=conn1.asp-->
<%
dim m,n
set rs=server.CreateObject( "adodb.recordset ")
sqlstr= "select * from message order by time desc "
rs.open sqlstr,conn,1,3
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
nowpage=request( "page ") '用request获取当前页数，注意page是自己定义的变量并非函数
if nowpage& "x "= "x " then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录

n=1
while not rs.eof and n <=rs.pagesize
response.Write(rs( "user ") & " <br> ")
response.Write(rs( "tt ") & " <br> ")
n=n+1
rs.movenext '显示页面的数据
wend
%>
共: <%=tatalpages%> 页 当前为: <%=nowpage%> 页
<%if nowpage> 1 then%>
<a href= "fy.asp?page= <%=nowpage-1%> "> 上一页 </a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k <> nowpage then %>
<a href= "fy.asp?page= <%=k%> "> <%=k%> </a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href= "fy.asp?page= <%=nowpage+1%> "> 下一页 </a>
<%else%>
下一页
<%end if%> '加上页码连接
<%if nowpage <> 1 then%>
<a href= "fy.asp?page= <%=1%> "> 首页 </a>
<%else%>
首页
<%end if%>
<%if nowpage <> tatalpages then %>
<a href= "fy.asp?page= <%=tatalpages%> "> 末页 </a>
<%else%>
末页
<%end if%>

最简单，最好理解，最容易修改、扩充的分页程序。
------解决方案--------------------
baidu
------解决方案--------------------
我有很好的一个分页器，要的话：QQ24996521