PS:作为一个php开发者来说,突然让写一段asp的分页代码真是有点摸不着头脑。思想有、逻辑有,就是不会asp。于是乎,看了1个多小时的书写出了这样一堆厚重的分页代码!不过好的一点是:一次成型、效果堪称完美!
因为好多的asp函数什么的,都不太清楚,所以下面的代码完全是用php的感觉写出来的,如果觉得乱请使劲拍砖!
先上效果图:
下面贴上代码:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | //带省略号分页 Dim Num,pPage,nPage,a,pageid pPage = Document("PrevPage") //上一页 nPage = Document("NextPage") //下一页 Num = document("pageNum") //当前页 pageid = document("id") //当前页id (例12145.shtml、12145_2.shtml) set pageall = document("pages") a=0 For each page in pageall a=a+1 Next If Trim(pPage) <> "" Then Response.Output "<a href=" & pPage & " id=""pre_page"">上一页</a>" End If If Num - 1 > 4 then Response.Output "<a href=" & pageid & ".shtml>1</a>" Response.Output "..." For i=Num-3 To Num-1 Response.Output "<a href="& pageid &"_"& i &".shtml>" & i & "</a>" Next Else For i=1 To Num-1 If i=1 then Response.Output "<a href=" & pageid & ".shtml>" & i & "</a>" Else Response.Output "<a href=" & pageid & "_" & i & ".shtml>" & i & "</a>" End if Next End If If Num = 1 Then Response.Output "<a href="& pageid &".shtml class=""de"">" & Num & "</a>" Else Response.Output "<a href="& pageid & "_" & Num & ".shtml class=""de"">" & Num & "</a>" End if If a - Num > 4 Then For i=Num+1 To Num+3 Response.Output "<a href=" & pageid & "_"& i & ".shtml>" & i & "</a>" Next Response.Output "..." Response.Output "<a href=" & pageid & "_" & a & ".shtml>" & a & "</a>" Else For i=Num+1 To a Response.Output "<a href=" & pageid & "_" & i & ".shtml>" & i & "</a>" Next End If If Trim(nPage) <> "" Then Response.Output "<a href=" & nPage & " id=""next_page"">下一页</a>" End If |
希望有asp的大神给予建议,本人phper一枚!
feelunique:http://www.xinmieli.com 国外美妆网购平台。
一嗨租车:http://yuansaibi.com 优惠券,拥有折扣租车。
你网站首页非常漂亮,非常喜欢,现在可以交换链接吗?
图片只是装饰罢了,能写出这段代码才是核心,不过如果面向用户的话,装饰也是必不可少的,传说中的UI
http://www.qp1001.com,厉害人物啊,值得学习的楷模啊
代码不分家。。 思路都是一样的。
哥们,我需要这段代码,不过set pageall = document(“pages”)看不懂,如何能把rs.pageCount转换成对象集合或数组呢,请教下
set pageall = document(“pages”);这句你不必太看懂,set pageall 类似于通常的赋值 这里的document(“pages”)是我的系统在模板页面提取参数值的一个方法,将document(“pages”) 赋给 pageall;
你需要先通过TypeName() 函数 打印一下rs.pageCount的 类型出来,判断出类型以后再通过相关函数转化成数组形式…
厉害厉害,学习下。
我以为上面的那个比较质感的是你写的呢。HOHO,下面的也不错,至少我不会哈哈
不要被图片蒙蔽了双眼,,~~~吼吼!! 不过图片上的真心不错,需要的时候可以弄弄~~ 这个图片可以借用一下,做个背景!