 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\' 分页程序 \\\' total_records 总记录数 \\\' everypage_records 每页显示条数 \\\' current_page 当前页数 \\\' url 要传递的url，这里可以含有要传递的变量，比如 "list.asp?" 或者"list.asp?keyword=key&" \\\' 程序调用比较简朴，不过还是比PHP的麻烦，继承努力中 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> " pagenav=pagenav&"到第<input type=text name=text100 id=text100 value="&page&" size=3>页<input type=button name=button100 value=go onclick=\\\'window.location="""&url&"page=""+text100.value\\\'>" pagenav=pagenav&" 共 "&last_page&" 页" pagenav1=pagenav1&"到第<input type=text name=text101 id=text101 value="&page&" size=3>页<input type=button name=button101 value=go onclick=\\\'window.location="""&url&"page=""+text101.value\\\'>" pagenav1=pagenav1&" 共 "&last_page&" 页" end if end sub %> 返回类别: 教程 上一教程: RS.OPEN语句具体说明 下一教程: 制作一个简朴的服务器端控制 您可以阅读与"模拟PHP写的ASP分页"相关的教程: · 动态网页技术--CGI:ASP:JSP:PHP(2) · 在ASP中使用均速分页法提高分页速度 · 在ASP中轻松实现记录集分页显示 · ASP编写的一个简朴的颜色吸取器 · 用ASP实现长文章用分页符来分页显示 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
