sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records) then total_records=Int(total_records) else total_records=0 end if
if IsNumeric (everypage_records) then everypage_records=Int(everypage_records) if everypage_records<=0 then everypage_records=10 end if else everypage_records=10 end if
if IsNumeric (current_page) then current_page=Int(current_page) else current_page=1 end if
'取总页数，即最后一页 if total_records mod everypage_records=0 then last_page=Int(total_records/everypage_records) else last_page=Int(total_records/everypage_records)+1 end if
'判断 current_page 是否符合标准,并附值给page if current_page>=last_page then page=last_page elseif current_page<=1 then page=1 else page=current_page end if
'上一页 if page<=0 then prepg=0 else prepg=page-1 end if '下一页 if page=last_page then nextpg=0 else nextpg=page+1 end if
'本页开始记录 firstcount=prepg*everypage_records '本页结束记录 if nextpg>=1 then lastcount=(nextpg-1)*everypage_records else lastcount=total_records end if '开始分页导航条代码 pagenav="" pagenav1="" pagenav=pagenav&"显示第<b>"&firstcount&"-"&lastcount&"</b>条记录 共<b>"&total_records&"</b> 条记录" pagenav1=pagenav1&"显示第<b>"&firstcount&"-"&lastcount&"</b>条记录 共<b>"&total_records&"</b> 条记录"
if last_page>1 then '当有前后页时 pagenav=pagenav&" <a href='"&url&"page=1'>首页</a> " pagenav1=pagenav1&" <a href='"&url&"page=1'>首页</a> " if prepg>=1 then pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>前页</a> " pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>前页</a> " else pagenav=pagenav&" 前页 " pagenav1=pagenav1&" 前页 " end if if nextpg>=1 then pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>后页</a> " pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>后页</a> " else pagenav=pagenav&" 后页 " pagenav1=pagenav1&" 后页 " end if pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>尾页</a> " pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>尾页</a> "
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
