用ASP写的一个仿Google的翻页控制

原创 2006年02月08日 14:23:00
最近在做一个全文检索时突发奇想,既然大家都习惯了用Google去搜东西,就干脆写一个类似Google的翻页吧,代码如下,使用时只需调用goGoogle()函数即可,样式在一个包含文件中懒的去找了,有兴趣的就自己写吧~~

google-style.asp:
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Google-style Page Control
'@by Janylee at 2006.1.6
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

function goGoogle(countRecord,thisPage,perItems,url)
'params:countRecord - total record count; thisPage - current page number; perItems - items count per page; url: turn to url address(include url params).
 dim totalPageCount
 totalPageCount = (countRecord / perItems) - cInt(countRecord mod perItems <> 0)
 if totalPageCount > 0 then
dim arr,perPageHtml,nextPageHtml
arr = GetMinAndMaxPage(thisPage,totalPageCount)
if thisPage > 1 then
 perPageHtml = "<a href="""& url & GetUrlSign(url) &"page="& thisPage-1 &""" class=""btnper"">上一页</a>"
else
 perPageHtml = "<span class=""btnper"">上一页</span>"
end if
if thisPage < totalPageCount then
 nextPageHtml = "<a href="""& url & GetUrlSign(url) &"page="& thisPage+1 &""" class=""btnnext"">下一页</a>"
else
 nextPageHtml = "<span class=""btnnext"">下一页</span>"
end if
goGoogle = perPageHtml& makeControlItems(arr(0),arr(1),thisPage,url) &nextPageHtml
 else
goGoogle = ""
 end if
end function

function GetMinAndMaxPage(thisPage,totalPageCount)
 dim arr(1)
 if thisPage > 10 then
arr(0) = thisPage - 10
 else
arr(0) = 1
 end if
 if thisPage + 9 < totalPageCount then
   arr(1) = thisPage + 9
 else
   arr(1) = totalPageCount
 end if
 GetMinAndMaxPage = arr
end function

function GetUrlSign(url)
 if inStr(url,"?") <> 0 then
GetUrlSign = "&"
 else
GetUrlSign = "?"
 end if
end function

function makeControlItems(dw,up,nw,url)
 dim i,thisPageStyle,html
 for i = dw to up
if i = nw then
 thisPageStyle = " <span class=""seled"">"& i &"</span> "
else
 thisPageStyle = " <a href="""& url & GetUrlSign(url) &"page="& i &""">"& i &"</a> "
end if
html = html& thisPageStyle
 next
 makeControlItems = html
end function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>

android 仿日历翻页特效、仿htc时钟翻页特效、数字翻页切换

废话不多说,效果图: 自定义控件找自网络,使用相对简单,具体还没有来得及深入研究,只是先用笨方法大概实现了想要的效果,后续有空会仔细研究再更新文章, 本demo切换方法是用的笨...
  • fan7983377
  • fan7983377
  • 2017年07月11日 21:56
  • 1009

高仿GooglePlay(一)

一,概述这是高仿goole市场的一个项目。配有服务端。这里我们只关注客户端。由于CSDN对图片大小有限制,有的功能没演示出来。后续会一点点的贴出。基本效果如下: 二,分析和市场上很多项目整体模式一样...
  • AI_96
  • AI_96
  • 2016年03月20日 14:55
  • 615

一个简单jsp的翻页控制

总是要用到翻页,重复代码不想写,直接做个小页面
  • zmonile
  • zmonile
  • 2014年06月06日 15:44
  • 245

ASP.NET 自定义分页按钮

继昨晚用存储过程实现之后,以前一直打算着写个自己定义的分页按钮终于
  • pandeng4639088
  • pandeng4639088
  • 2014年11月21日 01:28
  • 793

自己仿写一个ucosii (一)

简单谈谈我对uc的一些认识级对于部分源码的分析和调试,作为对近一段时间学习的阶段性总结。下文将分两部分介绍,前半部分主要谈谈我个人对一些问题的认识以及一些疑惑,后半部分是通过阅读ucosii,按照uc...
  • lidec
  • lidec
  • 2014年01月18日 15:50
  • 859

仿谷歌自动补全js

大四那年在东软实习时,编写的一个仿谷歌自动补全的js。而且已改造通用模板,根据onfocus="init('hotKeyword1','1','/google/googlesearch.mvc')"几...
  • ardo_pass
  • ardo_pass
  • 2017年01月10日 15:34
  • 171

【jQueryMobile】使用jQueryMobile实现滑动翻页的效果

滑动手势在移动设备是很流行的,在移动设备中滑动翻页中很常见 虽然这个功能可以在jQueryMobile中实现,但是个人与之前写的《【jQuery】论手机浏览器中拖拽动作的艰难性》(点击打开链接)中的观...
  • yongh701
  • yongh701
  • 2014年12月11日 20:19
  • 3190

改变ViewPager的翻页速率

当你在使用ViewPager控件时,是否觉得
  • qiyijay
  • qiyijay
  • 2014年05月05日 18:22
  • 1446

css+html5仿写淘宝首页

问题定义 为了锻炼自己原生的能力,我决定仿写一下淘宝的首页。一下记录,仿写的全部步骤。按照软件工程的方法来实现。(ps,纯为学习,没有什么不良居心~~) 可行性研究技术采用原生js+html5+c...
  • qq_28300493
  • qq_28300493
  • 2016年08月19日 17:03
  • 2981

C#——数据翻页

一、页面部分:      1、所需控件:             bindingNavigator       2、操作:             网页面中拖一个bindinNavigator    ...
  • yixianfeng41
  • yixianfeng41
  • 2014年12月23日 10:33
  • 2007
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP写的一个仿Google的翻页控制
举报原因:
原因补充:

(最多只允许输入30个字)