用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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>

相关文章推荐

ASP.NET一个翻页控件

  • 2006年02月23日 09:05
  • 20KB
  • 下载

一个简单jsp的翻页控制

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

GOOGLE地图自动翻页工具

  • 2007年10月10日 16:51
  • 203KB
  • 下载

ASP项目中的公共翻页模块

在大型的ASP项目中,很多的页面都涉及到翻页功能。如果每个页面都写一个翻页的程序的话,这样的工作即降低了工作效率,也不利于工程的模块化,不能使代码重用。因此,把翻页这样的功能模块化是很有必要的。   ...
  • tgw2000
  • tgw2000
  • 2015年01月20日 16:53
  • 123

一个翻页的 应用指导 效果

  • 2014年11月20日 11:16
  • 2.75MB
  • 下载

编写一个键盘翻页的Chrome插件

1.新建一个文件夹 2.其中bg.js是主要部分,具体代码如下,jquery是引用的文件 $(document).keydown(function(e) { var pagewi...

一个很好用的Ajax翻页控件

  • 2009年05月14日 14:31
  • 69KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP写的一个仿Google的翻页控制
举报原因:
原因补充:

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