|
#2
yms1232010-02-02 13:20
|
形如百度的页面链接 最多显示20页
[上一页] 2 3 ....21 [下一页]这样的
3 回复
|
#3
hmhz2010-02-02 13:26
有分页代码的，看来你是初学者了，给你个简单的分页代码吧，当然也是我常用的分页代码，当然是在数据量不大的时候才用这个分页代码，数据量大的时候我通常都使用存储过程分页代码
 程序代码：<% set rs=server.createobject("adodb.recordset") rs.open "select * from Gold order by id desc",conn,1,1 if rs.eof and rs.bof then Response.Write("暂时无订单！") else page=request.querystring("page") if page="" then page=1 end if pages = 20 '每页显示条数 rs.pagesize = pages maxpagecount=rs.pagecount rs.absolutepage = page i=0 pagestart=page-9 pageend=page+9 if pagestart<1 then pagestart=1 end if if pageend>maxpagecount then pageend=maxpagecount end if rcount=rs.RecordCount do while not rs.eof and i<rs.pagesize Response.Write("循环显示内容部分") rs.movenext i=i+1 loop end if rs.close set rs=nothing Response.Write("<a href=""?page=1""><<</a>") for n=pagestart to pageend if n=int(page) then Response.Write(" <font color=red><b>"&n&"</b></font> ") else Response.Write(" <a href=""?page="&n&""">"&n&"</a> ") end if next Response.Write("<a href=""?page="&maxpagecount&""">>></a>") Response.Write(" 共<font color=red>"&maxpagecount&"</font>页") Response.Write(" 每页<font color=red>"&pages&"</font>条") Response.Write(" 共<font color=red>"&rcount&"</font>条") %> |
|
#4
liu3501242010-02-02 14:34
|
1