ASP分页

Hotus 2009-07-29 11:54:53

ASP+SQL如何实现这种分页效果呢?
...全文
96 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wpjwll 2009-07-30
  • 打赏
  • 举报
回复
百度一下,很多的!
liuwei_IT_love 2009-07-30
  • 打赏
  • 举报
回复
Dim page_size '声明每页多少条记录 Dim page_no '声明当前是第几页 Dim page_total '声明总页数
page_size=10 '每页显示记录数
If Request("page_no")="" Then page_no=1
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
Dim I,J
I=0 '该变量用来输出序号
J=page_size '该变量用来控制显示当前页
Do While Not rs.Eof And J>0 '循环直到当前页结束或文
I=I+1
J=J-1
%>

<tr align="center" bgcolor="#FFFFFF" class="t">
<td><span class="STYLE4 STYLE1">
<% =(page_no-1)*page_size+I %>
</span>
<td>显示的内容。。。。
</td>
</tr>

<%
rs.MoveNext
Loop
End If
%>



<%
private sub select_page(page_no,total_page)
Response.Write "请选择页码:"
Dim I
for I=1 to total_page
If I=page_no Then
Response.Write I & " "
Else
Response.Write "<a href='index.asp?page_no=" & I & "'>" & I & "</a> "
End If
next
End sub
%>



<% '调用子程序,写出有关各页的链接信息
Call select_page(page_no,page_total)
%>





  • 打赏
  • 举报
回复
呵呵,自己写一点问题都没有,又不是很复杂的效果,就是一些判断,客户端就是CSS的效果了
hookee 2009-07-29
  • 打赏
  • 举报
回复
用jquery的插件即可
http://d-scribe.de/webtools/jquery-pagination/demo/demo_options.htm
下载http://plugins.jquery.com/files/jquery_pagination.zip
wwwhhb4001 2009-07-29
  • 打赏
  • 举报
回复

同问
oywkkai 2009-07-29
  • 打赏
  • 举报
回复
学习
number123456 2009-07-29
  • 打赏
  • 举报
回复
你是想要那个CSS的样式效果呢,还是要页码显的效果呢?
页码显示的效果可以用以下方法
page '当前页数
paper'总页数
<a href=?page=1>1</a>
<%
for i = page - 3 to page + 3
if i > 1 and i < paper - 1 then
Response.write "<a href=?page="&i&">"&i&"</a> "
end if
next
for i = paper - 1 to paper
Response.write "<a href=?page="&i&">"&i&"</a> "
next
%>
lwjsw2320214 2009-07-29
  • 打赏
  • 举报
回复
那个能吧代码发出来 嘛

28,408

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧