高分求 asp完整的，可用的分页代码
从数据库读出来记录，有N条， 每 10条 分一页
如果是函数更好，请标住要传的参数
试过后能用，立马给分！！
[解决办法]
<%
sqlcmd= "select * from 表名 "
rs.open sqlcmd,conn,1,1
'打开数据集后写一下内容
pagesize=10
rscount=rs.recordcount
pagecount=rscount\pagesize
if pagecount <rscount/pagesize then pagecount=pagecount+1
page=clng(request( "page "))
rs.pagesize=pagesize
if page <1 then page=1
if page> rs.pagecount then page=rs.pagecount
if rscount> 0 then rs.absolutepage=page
%>
<% '下面的 就是分页了
PageList rscount,pagecount,pagesize,page
rs.close
%>
[解决办法]
http://www.yeat.org/blog/blogview.asp?logID=248
这个是叶子的分页～
下了用吧！记得给分哟！
[解决办法]
<%
dim keyword
keyword=request( "key ")
dim page
page=request( "page ")
PageSize = 10
sql= "select * from table "
set rs=server.createobject( "adodb.recordset ")
rs.open sql,conn,1
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page= " " or clng(page) <1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum> 0 then rs.AbsolutePage=page
%>
-------------读库
<tr> <form action= " ">
<td align=right>
[ <b> <%=rs.pagecount%> </b> / <%=page%> 页] [共 <%=totalfilm%> 个] <%if page=1 then%> [首 页] [上一页] <% else %> [ <a href= "?page=1&liaohao_s= <%=request( "liaohao_s ")%> &daihao_s= <%=request( "daihao_s ")%> &paixu= <%=request( "paixu ")%> "> 首 页 </a> ]
[ <a href= "?page= <%=page-1%> &liaohao_s= <%=request( "liaohao_s ")%> &daihao_s= <%=request( "daihao_s ")%> &paixu= <%=request( "paixu ")%> "> 上一页 </a> ] <%end if%> <%if rs.pagecount-page <1 then%> [下一页] [尾 页] <%else%> [ <a href= "?page= <%=page+1%> &liaohao_s= <%=request( "liaohao_s ")%> &daihao_s= <%=request( "daihao_s ")%> &paixu= <%=request( "paixu ")%> "> 下一页 </a> ] [ <a href= "?page= <%=rs.pagecount%> &liaohao_s= <%=request( "liaohao_s ")%> &daihao_s= <%=request( "daihao_s ")%> &paixu= <%=request( "paixu ")%> "> 尾 页 </a> ] <%end if%> <input type=hidden name= "paixu " value= " <%=request( "paixu ")%> "> <input type=hidden name= "liaohao_s " value= " <%=request( "liaohao_s ")%> "> <input type=hidden name= "daihao_s " value= " <%=request( "daihao_s ")%> "> <input type= 'text ' name= 'page ' size=2 maxlength=10 style= "font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000 " value= " <%=request( "page ")%> " align=center> <input style= "border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal " type= 'submit ' value= ' Goto ' size=2> </td>
</form>
</tr>
---------分页
<%
for iPage=1 to 10
if rs.eof then
exit for
response.end
end if
%>
------------------表格
<%
rs.movenext
next
rs.close
set rs=nothing
%>
[解决办法]
set rsnews = server.CreateObject( "ADODB.Recordset ")
sql = "select * from new_show where bigclassname = ' "&bigclassname& " ' and shouye = True order by time desc "
rsnews.open sql , conn,1,1
if rsnews.eof and rsnews.bof then
response.Write "暂无产品 "
else
' <!--大类所显示的新闻-->
'分页程序开始
i =13
'每页显示的产品 数目
totalCount = rsnews.recordcount
maxpage = cint(totalcount/i)
if maxpage < totalcount/i then
maxpage = maxpage +1
end if
page = request ( "page ")
if page <1 or page = " " then
page =1
end if
if (page-1)*i > totalCount then
page = maxpage
end if
'分页程序结束
'显示内容
rsnews.move((page-1) *i)
for z=0 to i
if not rsnews.eof then
%>
<tr>
<td id= "news_center_middle_detail " width= "60px "> <%=rsnews( "id ")%>
<td id= "news_center_middle_detail "> <a href= "newsshow.asp?bigclassname= <%=rsnews( "bigclassname ")%> &id= <%=rsnews( "id ")%> "> <%=rsnews( "name ")%> </a>
<td id= "news_center_middle_detail "> <%=rsnews( "date ")%>
<td id= "news_center_middle_detail " width= "30px "> <%=rsnews( "hit ")%>
</tr>
<%rsnews.movenext
else
%>
<tr>
<td id= "news_center_middle_detail ">
<td id= "news_center_middle_detail ">
<td id= "news_center_middle_detail ">
<td id= "news_center_middle_detail ">
</tr>
<%end if
next
%>
<tr> <td colspan= "4 ">
<%if page = 1 then%>
<%else%>
<a href= "news.asp?bigclassname= <%=bigclassname%> &page=1 ">
<img src= "image/news/news_arrrow1.png " border= "0 " />
</a>
<%end if
k = page-1
if k < 1 then
%>
<%else%>
<a href= "news.asp?bigclassname= <%=bigclassname%> &page= <%=page-1%> ">
<img src= "image/news/news_arrrow2.png " border= "0 " />
</a>
<%end if%>
<%=page
%>
<%
k = page +1
if k> maxpage then
%>
<%else%>
<a href= "news.asp?bigclassname= <%=bigclassname%> &page= <%=page+1%> ">
<img src= "image/news/news_arrrow3.png " border= "0 " />
</a>
<a href= "news.asp?bigclassname= <%=bigclassname%> &page= <%=maxpage%> ">
<img src= "image/news/news_arrrow4.png " border= "0 " />
</a>
<%end if%>
</tr>
<%end if
%>
刚刚写的，测试成功！
[解决办法]
try this~!
Set conn=Server.CreateObject( "ADODB.Connection ")
conn.open connstr
sql= "select count(*) from table "
set rs = conn.execute(sql)
T_Total = rs(0)
rs.close
sql= "select * from table "
rs.open sql,conn,1
if not rs.eof then
rs.pagesize = 10
PageCount = rs.PageCount
PageNo = request( "PageNo ")
if not isnumeric(PageNo) then
Response.Write " <Script Language=JavaScript> alert( '参数传递出错！ ');history.back(-1) </Script> "
response.End()
end if
if PageNo = " " or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo
这里可以写头部
i=0
while not rs.eof and i <rs.pagesize
这里是要显示的信息
i = i + 1
rs.movenext
wend
else
response.Write "没有记录！ "
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
页次： <%=PageNO%> / <%=PageCount%> 记录条数： <%=T_Total%>
<a href= "OB.asp?PageNo=1 "> 第一页 </a>
<a href= "OB.asp?PageNo= <%= PageNo - 1 %> "> 上一页 </a>
<a href= "OB.asp?PageNo= <%= PageNo + 1 %> "> 下一页 </a>
<a href= "OB.asp?PageNo= <%= PageCount %> "> 最后一页 </a>
[解决办法]
http://www.cnblogs.com/known/archive/2007/07/25/830234.html
[解决办法]
http://hi.baidu.com/chiang821/blog/item/c9f2c2177c6e2d08c93d6da1.html
