模仿PHP写的ASP分页函数
来源:CSDN 发布时间:2008-04-13 06:11:00
标签:分页,函数,asp
分页程序sub show_page
参数说明:
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
%>
0
投稿
猜你喜欢
- 问题:如何在报表中每隔N行显示一条粗线如何为报表增加一个行号列?回答:1、在设计模式里打开该报表,在报表主体里面加一个TextBox,把Na
- Macromedia StandardMacromedia Dreamweaver MXMenu Commandsphotoshop快捷键大
- 最近在无忧脚本混了一阵子,回复了一些贴子,自己却没有做出什么东东让大家看看,心里有些不安,于是写了下边的一点东西,本来应该发在类封装区的,考
- 先声明一下,这是本人在某个项目中用到的,本人自己写的,如有雷同纯属巧合。同时也欢迎高人指正。这种星级的投票效果很常见,但是目前线上大多都是通
- 之前用Crystal做了一个数字转English Word的Formula刚刚心血来潮, 大半个晚上写了JS版本的数字转换, 由于JS的Bu
- 背景:pony是公司的首席体验官、首席产品经理。这次在产品峰会上pony将自己平时经验的积累与大家交流,体验较细。这次分享研发管理部,设计中
- 一、定位 oracle分两大块,一块是开发,一块是管理。开发主要是写写存储过程、触发器什么的,还有就是用Oracle的Develop工具做f
- 今天看到的这篇文章, 让我对Chrome能够带来的影响,有了点新想法。Update: 发现我在跟别人讨论时,比直接写作文说得清楚一些,对这个
- 元素浮动导致的问题及解决办法大家都应该很熟悉了,举个简单的例子:<style type="text/css">
- 1.彻底弄懂CSS盒子模式一(DIV布局快速入门) 2.彻底弄懂CSS盒子模式二(导航栏实例) 4.彻底弄懂CSS盒子模式四(绝对定位和相对
- 摸到她了!青翠的衣衫,奶白的肌肤,捧在手上的感觉真是太好了,心里美滋滋的。《悟透JavaScript》,一本偶然之作,终于成书并出版了。本书
- Ajax类  
- 网站或应用的登录页面有时候通常用户会看很多遍,同时也有机会诱使临时用户注册,所以,一个设计良好的登录页面会比你想象的更有用。这里是一些我们收
- 这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间。风格A
- 在向大家详细介绍Linux mysql之前,首先让大家了解下Linux mysql,然后全面介绍Linux mysql,希望对大家有用。1.
- 以下函数采用FSO对象,文件位置在FSO.ASP。FSO对象的文件编码属性只有三种,系统默认,Unicode,ASCII,并没有我们要的ut
- 利用ACCESS可以用查询创建视图这一功能来进行查询分析。选择查询->在设计视图中创建查询,然后关闭弹出的表选择对话框,在下面的窗口上
- 新一代W3C,xhtml代码规范,大家在设计网站的时候务必遵循这一规范 ,这将对网站的优化,网站的推广,搜索引擎的友好
- 《色彩解答》系列之一 色彩层次《色彩解答》系列之二 色彩比例我们知道在设计中有很多对比,大小的对比,形状的对比,长短的对比,多少的对比,这些
- 有时候想为我们的网页提供多语言支持,如果一种语言用一张网页来做实在太麻烦了,幸好Google提供了语言工具功能,下面介绍如何利用它来实现网页