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

来源:互联网 发布:excel剔除重复数据公式 编辑:程序博客网 时间:2024/05/01 20:27
最近在做一个全文检索时突发奇想,既然大家都习惯了用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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
原创粉丝点击
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防,我是瞎子 被东亚钳蝎蛰了怎么办 孕37周羊水过多怎么办 孕38周羊水过多怎么办 孕39周羊水过多怎么办 生完孩子腿关节疼怎么办 手指上长了倒刺怎么办 肥肉吃多了恶心怎么办 大便粘稠怎么回事还便秘怎么办 狗狗大便次数多怎么办 宝宝拉白色稀便怎么办 5个月宝宝流鼻涕怎么办 5个月婴儿流鼻涕怎么办 五个月宝宝流鼻涕鼻塞怎么办 4个月宝宝流鼻涕怎么办 大便经常是稀的怎么办 拉黑色的稀大便怎么办 孕晚期半夜饿了怎么办 肠胃不好大便不成型怎么办 螃蟹吃多了过敏怎么办 吃螃蟹过敏很痒怎么办 吃螃蟹喝啤酒了怎么办 1个月宝宝拉肚子怎么办 被雨林蝎子蛰了怎么办 在家被蜈蚣咬了怎么办 宝宝被蝎子蜇了怎么办 仓鼠只吃面包虫怎么办 套装但是装等低怎么办 被香港人骗了钱怎么办 被红头蛇咬了怎么办 爸妈吵架闹离婚怎么办 包包用酒精擦了怎么办 灰色泰迪毛发白怎么办 手被野猫抓伤了怎么办 想去香港玩两天怎么办 受凉了一直想吐怎么办 受寒后头晕想吐怎么办 肚子受凉了想吐怎么办 想吐但吐不出来怎么办 抽烟抽的牙黄怎么办 借了大耳窿的钱怎么办 5岁左眼视力不好怎么办