asp分页代码

2025-04-20 03:10:59
推荐回答(3个)
回答1:

没有代码,不知道你的问题出在那里,给你个分页代码吧.是我自己程序的,你改一下就行,不明白问我Q24722
<%
bbc=request("name")
page=clng(request("page"))
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from LM_article where class='"&bbc&"' and yanzhen=true order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "对不起,没有任何文章"
else
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize %>

·&name=<%=Server.URLEnCode(rs("class"))%>&cy=<%=Server.URLEnCode(rs("title"))%>" target="_blank"><%=rs("title")%>[<%=rs("date")%>]


<%
rs.movenext
if rs.eof then exit for
next
%>



<%if Page<2 then
response.write "首页 上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write ""
response.write "下一页
尾页"
end if
response.write " 页次:"&Page&"/"&rs.pagecount&"页 "
response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页"
response.write " 转到:"
response.write "

"
%>


<%
end if
rs.close
set rs=nothing
%>

回答2:

asp分页有两种,一种是用存储过程,另外一种是用rs.absolutepage
当你点击页数,记得传递页数rs.absolutepage=nowpapge,当nowpapge为空时,设为1,数据多时,最好用存储程分页,网上很多

回答3:

http://www.qinzhouonline.com
搜索那效果??