[asp教程] asp模块化分页

 

模块化分页

1.查询语句块

rs.pagecount or pagecount


对不起，没有符合搜索条件的记录！


2.显示记录块



显示的记录

=rs.PageSize then exit do
loop                                                                   
%>

3.
分页效果

 
   
    共有[]条信息 当前显示第 1～条
 
 
   
   
      rs.recordcount then page_end=rs.recordcount end if%>
      共有[]信息
   
          5 and pagecount10 then
    qizu=pagecount-4
    min=pagecount+5
    response.write 首页 
    response.write 上一页                                                     
    for ipage=qizu to min
             if ipagepagecount then
             response.write +cstr(ipage)+ 
             else
             response.write &ipage&                                                
             end if
    next
    response.write 下一页 
    response.write 尾页
    end if
    if rs.PageCountpagecount then
             response.write +cstr(ipage)+ 
             else
             response.write &ipage&                                                
             end if
    next
    end if
    if pagecount 10 then
    for ipage=1 to 10
             if ipagepagecount then
             response.write +cstr(ipage)+ 
             else
             response.write &ipage&                                                
             end if
    next
    response.write 尾页
    end if
    if pagecount>rs.PageCount-6 and rs.PageCount>10 then
    response.write 首页   
    for ipage=rs.PageCount-9 to rs.PageCount
             if ipagepagecount then
             response.write +cstr(ipage)+ 
             else
             response.write &ipage&                                                
             end if
    next
    end if
             %>
    > 
                                             
   >>>>> 转到第
   页                              
   
   
   
 
     
 
 
 




转自：  ASP教程采集