注册 | 登录
欢迎注册会员

当前位置:首页 > 狗万 怎么玩 > ASP技术 > 正文

2栏分页显示(附显示的形式[1][2])

来源:程序人生 【 】 浏览:221 添加日期:2010-05-27 23:20:08 我要评论(0)
显示形式:
?????????ID1????NAME???| ID2???NAME
?????????1??????JULIET |??2?????SPIRIT
?????????3??????BABY???|??4?????BOY
??[1] [2] [3] [4]??页数:1/4页???4条/页???总记录数:13条
代码:





<% '是有两列的分页(1,2,3,4的形式)。数据表:page,字段:id,testname
????dim rs
????dim sql
????msg_per_page????=????4????????????????????????????????????????????????????????'定义每页显示记录条数
????set rs????=????server.createobject("adodb.recordset")
????sql = "select * from page order by id"??????????????????????????????????????'改成你自己的SQL语句
????rs.cursorlocation????=????3????????????????????????????????????????????????????'使用客户端游标,可以使效率提高
????
????rs.pagesize????=????msg_per_page????????????????????????????????????????????????'定义分页记录集每页显示记录数
????rs.open sql,conn,0,1????????????????????????????????????????????????????????

????if err.number<>0 then????????????????????????????????????????????????????????'错误处理
????????response.write "数据库操作失败:" & err.description
????????err.clear
????else
????????if not (rs.eof and rs.bof) then????????????????????????????????????????????'检测记录集是否为空
????????????totalrec????=????RS.RecordCount????????????????????????????????????????'totalrec:总记录条数
????????????if rs.recordcount mod msg_per_page????=????0 then????????????????????????'计算总页数,recordcount:数据的总记录数
????????????????n????=????rs.recordcount\msg_per_page????????????????????????????????'n:总页数
????????????else????????????????????????????????????????????????????????????????
????????????????n????=????rs.recordcount\msg_per_page+1????????????????????????
????????????end if????????????????????????????????????????????????????????????????

????????????currentpage????=????request("page")????????????????????????????????????????'currentpage:当前页
????????????If currentpage <> "" then
????????????????currentpage =??cint(currentpage)
????????????????if currentpage < 1 then??
????????????????????currentpage = 1
????????????????end if??
????????????????if err.number <> 0 then
????????????????????err.clear
????????????????????currentpage????=????1
????????????????end if
????????????else
????????????????currentpage = 1
????????????End if????????????????????????????????????????????????????????????????
????????????if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
????????????????currentPage=1
????????????end if
????????????rs.absolutepage????=????currentpage????????????????????????????????????'absolutepage:设置指针指向某页开头
????????????rowcount????????=????rs.pagesize????????????????????????????????????'pagesize:设置每一页的数据记录数
????????????
????????????dim i
????????????dim k
%>
????????
????????????
????????????
????????????
????????????
????????
????????<%do while not rs.eof and rowcount > 0%>
????????
????????????
????????????
????????????
????????????
????????
<%
????????????????????????rowcount=rowcount-1
????????????????????????rs.MoveNext
????????????????????else
????????????????????????Response.Write " "
????????????????????end if
??????????loop
????????end if
????end if
????rs.close
????set rs=nothing
%>
??
ID1name1ID2name2
<%=rs("id")%><%=rs("testname")%>
????????????????<%
????????????????????rowcount=rowcount-1
????????????????????rs.MoveNext
????????????????????if not rs.EOF then
????????????????%>
????????????????????????<%=rs("id")%>
????????????
<%=rs("testname")%>
 


??
????
??

??????<%call listPages()%>
????



狗万 怎么玩<%
????sub listPages()????????????????????????????????????????????????????????????????
????????if n <= 1 then exit sub????????????????????????????????????????????????????
????????????for i=0 to n\msg_per_page-1
????????????????for j=1 to msg_per_page
%>
????????????????????
?????????????????????page=<%=i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]

?????????<%?????
????????????????next
????????????next
????????????EndPage = n mod msg_per_page
????????????for j=1 to EndPage
?????????%>
????????????????
?????????????????page=<% =i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]

??????????<%next%>
??????????
????????  Page:<%=currentpage%>/<%=n%>pages  <%=msg_per_page%>notes/page   Total:<%=totalrec%>notes

??<%end sub%>


你浏览的文章是 - 《2栏分页显示(附显示的形式[1][2])》!
文章出处:https://www.procedurelife.com/content/jjea.html
0% (0)
0% (0)
评论0
头像 游客
1 2