fenyedefengmian

自己写的一段带省略号的asp分页代码

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一枚!

分享到:

11 条评论

点击这里取消回复。

昵称
  1. 理财返利

    feelunique:http://www.xinmieli.com 国外美妆网购平台。

  2. 一嗨租车

    一嗨租车:http://yuansaibi.com 优惠券,拥有折扣租车。

  3. 淘宝客招募

    你网站首页非常漂亮,非常喜欢,现在可以交换链接吗?

  4. Uncle.E

    图片只是装饰罢了,能写出这段代码才是核心,不过如果面向用户的话,装饰也是必不可少的,传说中的UI

  5. 冷知识

    代码不分家。。 思路都是一样的。

  6. 请教

    哥们,我需要这段代码,不过set pageall = document(“pages”)看不懂,如何能把rs.pageCount转换成对象集合或数组呢,请教下

    1. 子涛

      set pageall = document(“pages”);这句你不必太看懂,set pageall 类似于通常的赋值 这里的document(“pages”)是我的系统在模板页面提取参数值的一个方法,将document(“pages”) 赋给 pageall;
      你需要先通过TypeName() 函数 打印一下rs.pageCount的 类型出来,判断出类型以后再通过相关函数转化成数组形式…

  7. siyue's 小栈

    厉害厉害,学习下。

  8. 执子之手

    我以为上面的那个比较质感的是你写的呢。HOHO,下面的也不错,至少我不会哈哈

    1. 子涛

      不要被图片蒙蔽了双眼,,~~~吼吼!! 不过图片上的真心不错,需要的时候可以弄弄~~ 这个图片可以借用一下,做个背景!