<!--#include file="conn.asp" --> <% set rs = server.createobject("adodb.recordset") sql = "select * from [表名]" rs.open sql,conn,1,1 '-------只需要改动这3个地方----------- rs.pagesize = 10 '每页显示条数 const Pname="p" '当前页变量名 UrlParam="&keyword=关键词&class=深圳" 'Url条件参数 '------------------------------------- GETpage=trim(request(""&Pname&"")) if GETpage<>"" then page = int(GETpage) if page<1 then page = 1 if page>rs.pagecount then page = rs.pagecount else page = 1 end if rs.absolutepage = page '设置当前页等于page for i = 0 to rs.pagesize -1 '循环显示数据 if rs.eof then exit for '如果到记录集末尾则退出for循环 response.write(rs("lid")&"<br>") rs.movenext '记录集下移一行 next %> <%'------------------------------------------------------ call FenYe(page,rs.pagecount,rs.pagesize,pname,UrlParam) '调用函数 '------------------------------------------------------%> <% function FenYe(Page,MaxCount,Psize,Pname,UrlParam) 'Page为当前点击页,MaxCount为记录集总条数,Psize为每页显示条数,Pname为当前页变量名,UrlParam为Url参数 Page=Cint(Page) '输出首页 上一页 if Page<2 then response.write "首页" response.write "上一页" else response.write "<a href =?"&Pname&"=1"&UrlParam&">首页</a> " response.write "<a href =?"&Pname&"="&Page-1&UrlParam&">上一页</a> " end if '输出数字分页部分,如果不需要数字分页,可删掉 if Page>Psize-1 and MaxCount >Psize then if (Page+int((Psize-1)/2))>MaxCount then PageNow = MaxCount - Psize+1 else PageNow = Page - int((Psize-1)/2) end if for i = 1 to Psize response.write "<a href=?"&Pname&"="&PageNow&UrlParam&">"&PageNow&"</a> " PageNow = PageNow + 1 next else if MaxCount < Psize then for i = 1 to MaxCount response.write "<a href=?"&Pname&"="&i&UrlParam&">"&i&"</a> " next else for i = 1 to Psize response.write "<a href=?"&Pname&"="&i&UrlParam&">"&i&"</a> " next end if end if '输出下一页 尾页 if Page>=MaxCount then response.write "下一页 " response.write "尾页" else response.write "<a href = ?"&Pname&"="&Page+1&UrlParam&">下一页</a> " response.write "<a href = ?"&Pname&"="&MaxCount&UrlParam&">尾页</a>" end if end function %>