1栏分页显示（附显示的形式12） -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 1栏分页显示（附显示的形式12）

1栏分页显示（附显示的形式12） 时间：2004/11/7 2:58:00来源：本站整理作者：蓝点我要评论(0)

显示形式：

ID NAME

1 JULIET

2 SPIRIT

3 GIRL

4 BOY

[1] [2] [3] [4] 页数：1/4 页 4条/页总记录数：13条

代码：

<%

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

loop

end if

end if

rs.close

set rs=nothing

%>

ID	name
<%=rs("id")%>	<%=rs("testname")%>

<%call>

<%

sub listPages()

if n <= 1 then exit sub

for i=0 to n\msg_per_page-1

for j=1 to msg_per_page

%>

[<% j="">]

<%

next

next

EndPage = n mod msg_per_page

for j=1 to EndPage

%>

[<% j="">]

<%next%>

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

<%end>

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。