风讯官方论坛FoosunCMS交流区Foosun4.x安装使用哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

1  /  1  页   1 跳转页 查看:4692

标题: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

离线 苍鹰
头像

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:191
  • 帖子:141
  • 注册: 2006-06-07
2007-05-12 11:37 | 只看楼主
树型| 收藏| 小 中 大 1

哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

如题,麻烦需要的都来顶一下
http://www.fzlshow.com
gototop
引用
 
离线 Fly颖
头像

  • 个人空间 相册
  • 组别:商业用户组
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:523
  • 帖子:475
  • 注册: 2004-11-13
2007-05-12 12:24 |
树型| 收藏| 小 中 大 2

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

以前的可以用的

/Admin/PublicSite
找到整段分页的代码（从Function Get_More_Page_Link_Str到End Function），用以下替换：


引用:
Function Get_More_Page_Link_Str(f_More_Page_Link_Type,f_More_Page_Link_Color,f_More_Page_Css,f_Page_Count,f_More_Page_Index,f_File_Name,f_File_Ext_Name)
Dim f_i,Str_Link,LinkUrl,Str_Style,Str_LinkUrl_Page
Dim str_nonLinkColor,str_toF,str_toP10,str_toP1,str_toN1,str_toN10,str_toL,StartPage,EndPage,I
If f_More_Page_Index>f_Page_Count Then
  f_More_Page_Index=f_Page_Count
End If
LinkUrl = "."&f_File_Name
Str_Link=""
If f_More_Page_Link_Type="" Then
  f_More_Page_Link_Type=0
End If
If f_More_Page_Link_Color<>"" Then
  Str_Style=Str_Style&" style=""color: #"&f_More_Page_Link_Color&";"""
End If
If f_More_Page_Css<>"" Then
  Str_Style=Str_Style&" class="""&f_More_Page_Css&""""
End If
If f_Page_Count>1 Then
  Select Case f_More_Page_Link_Type
  Case 1
    If f_More_Page_Index=1 Then
    Str_Link=Str_Link&"上一页"
    Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
    ElseIf (f_More_Page_Index+1)>f_Page_Count Then
    If f_More_Page_Index-1<2 Then
      Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    Else
      Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    End If
    Str_Link=Str_Link&" 下一页"
    Else
    If f_More_Page_Index-1<2 Then
      Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    Else
      Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    End If
    Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
    End If
  Case 2
    Str_Link="<b>共"&f_Page_Count&"页</b> "
    For f_i=1 To f_Page_Count
    If f_i>1 Then
      Str_LinkUrl_Page=LinkUrl&"_"&f_i
    Else
      Str_LinkUrl_Page=LinkUrl
    End If
    If f_i= f_More_Page_Index Then
      Str_Link=Str_Link&" <b>第"&f_i&"页</b>"
    Else
      Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">第"&f_i&"页</a>"
    End If
    Next
  Case 3
    Str_Link="<b>共"&f_Page_Count&"页</b> "
    For f_i=1 To f_Page_Count
    If f_i>1 Then
      Str_LinkUrl_Page=LinkUrl&"_"&f_i
    Else
      Str_LinkUrl_Page=LinkUrl
    End If
    If f_i= f_More_Page_Index Then
      Str_Link=Str_Link&" <b>"&f_i&"</b>"
    Else
      Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">"&f_i&"</a>"
    End If
    Next
  Case Else
    str_n '非热链接颜色
    str_toF="<font face="""">第一页</font>"    '第一页
    'str_toP10="<font face=""webdings"">7</font>"  '上十
    str_toP1="<font face="""">上一页</font>"    '上一
    str_toN1="<font face="""">下一页</font>"    '下一
    'str_toN10="<font face=""webdings"">8</font>"  '下十
    str_toL="<font face="""">尾页</font>"    '尾页
    Str_Link=""
    if f_More_Page_Index=1 then
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""第一页"">"&str_toF&"</font> " &vbNewLine
    Else
    Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""第一页"">"&str_toF&"</a> " &vbNewLine
    End If
    if f_More_Page_Index<11 then
    StartPage = 1
    else
    If f_More_Page_Index>(fix(f_More_Page_Index / 10) * 10) Then
      StartPage = (fix(f_More_Page_Index / 10) * 10)+1
    Else
      StartPage = ((fix(f_More_Page_Index / 10)-1) * 10)+1
    End If
    end if
    EndPage=StartPage+9
    If EndPage>f_Page_Count Then
    EndPage=f_Page_Count
    End If
    If StartPage>10 Then
    If (f_More_Page_Index - 10)<2 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 10&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上十页"">"&str_toP10&"</font> "  &vbNewLine
    End If
    If f_More_Page_Index > 1 Then
    If f_More_Page_Index=2 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上一页"">"&str_toP1&"</font> "  &vbNewLine
    End If
    For I=StartPage To EndPage
    If I=f_More_Page_Index Then
      Str_Link=Str_Link& "<b>"&I&"</b>"  &vbNewLine
    Else
      If I=1 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
      Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&I&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
      End If
    End If
    Next
    If f_More_Page_Index < f_Page_Count Then
    Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index + 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""下一页"">"&str_toN1&"</a> "  &vbNewLine
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""下一页"">"&str_toN1&"</font> "  &vbNewLine
    End If
    If EndPage<f_Page_Count Then
    If (f_More_Page_Index+10)>f_Page_Count Then
      Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index+10&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& " <font color="&str_nonLinkColor&"  title=""下十页"">"&str_toN10&"</font> "  &vbNewLine
    End If
    if f_More_Page_Index<f_Page_Count Then
    Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&" title=""尾页"">"&str_toL&"</a>"  &vbNewLine
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""尾页"">"&str_toL&"</font>"  &vbNewLine
    End If
  End Select
End If
Get_More_Page_Link_Str="<div class=""turnPage"">"&Str_Link&"</div>"
End Function


CSS:


引用:
.turnPage {
ADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 10px; MARGIN: 0px auto; WIDTH:auto; COLOR: #666; LINE-HEIGHT: 180%; PADDING-TOP: 13px; TEXT-ALIGN: center
}
.b1 {
CLEAR: both; BORDER-RIGHT: #666 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: #666 1px solid; PADDING-LEFT: 3px; FONT-WEIGHT: bold; BACKGROUND: #fff; PADDING-BOTTOM: 0px; BORDER-LEFT: #666 1px solid; COLOR: #bc2931; PADDING-TOP: 3px; BORDER-BOTTOM: #666 1px solid
}
b {
CLEAR: both; BORDER-RIGHT: #666 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: #666 1px solid; PADDING-LEFT: 3px; BACKGROUND: #fff; PADDING-BOTTOM: 0px; MARGIN: 0px 0px 5px; BORDER-LEFT: #666 1px solid; COLOR: #bc2931; PADDING-TOP: 3px; BORDER-BOTTOM: #666 1px solid
}
.turnPage A {
COLOR: #bc2931; BORDER-RIGHT: #666 1px solid; PADDING-RIGHT: 3px; BORDER-TOP: #666 1px solid; PADDING-LEFT: 3px; BACKGROUND: #fff; PADDING-BOTTOM: 0px; MARGIN: 0px 0px 5px; BORDER-LEFT: #666 1px solid; COLOR: #bc2931; PADDING-TOP: 3px; BORDER-BOTTOM: #666 1px solid
}
.turnPage A:visited {
COLOR: #bc2931;
}
.turnPage A:hover {
COLOR: #bc2931;background: orange;
}
俺的小站，多多指教
gototop
引用
 
离线 myhero
头像

  • 个人空间 相册
  • 组别:高级会员
  • 性别:
  • 生日:1900-1-1
  • 来自:福建漳州
  • 积分:1415
  • 帖子:1059
  • 注册: 2005-07-05
2007-05-12 12:25 |
树型| 收藏| 小 中 大 3

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

楼上正解...

效果可以看 http://www.qu91.com/Default.htm
今天太阳真大,天气真好,真开心:)
gototop
引用
 
离线 苍鹰
头像

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:191
  • 帖子:141
  • 注册: 2006-06-07
2007-05-12 15:08 | 只看楼主
树型| 收藏| 小 中 大 4

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

谢谢二楼,让更多的人受益,顶起


我试过了,只改Get_More_Page_Link_Str="<div class=""turnPage"">"&Str_Link&"</div>"
这里加了class=""turnPage"" 就可以了,然后在相应页页里面加上CSS就可以,只是还不够完美,用二楼的替换后不能生成
最后编辑苍鹰 最后编辑于 2007-05-12 16:10:48
http://www.fzlshow.com
gototop
引用
 
离线 ys1234
头像

  • 个人空间 相册
  • 组别:商业用户组
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:432
  • 帖子:250
  • 注册: 2006-07-24
2007-05-12 16:40 |
树型| 收藏| 小 中 大 5

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

那个CSS不是很好看,我用了这个论坛的CSS
http://www.shuaji.net/sjnews/sjpc/2007/426/07434257HBFI89JI5F1BF_2.shtml
看效果..还不错
gototop
引用
 
离线 梦随雨逝
头像

  • 个人空间 相册
  • 组别:贵宾
  • 性别:
  • 来自:
  • 积分:119
  • 帖子:118
  • 注册: 2007-04-23
2007-05-12 16:51 |
树型| 收藏| 小 中 大 6

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

:)
gototop
引用
 
离线 xin615
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:97
  • 帖子:51
  • 注册: 2006-10-11
2007-05-12 17:10 |
树型| 收藏| 小 中 大 7

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

:)
gototop
引用
 
离线 苍鹰
头像

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:191
  • 帖子:141
  • 注册: 2006-06-07
2007-05-12 21:28 | 只看楼主
树型| 收藏| 小 中 大 8

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起



引用:
原帖由 ys1234 于 2007-5-12 16:40:00 发表
那个CSS不是很好看,我用了这个论坛的CSS
http://www.shuaji.net/sjnews/sjp ... FI89JI5F1BF_2.shtml
看效果..还不错


你太有才了
http://www.fzlshow.com
gototop
引用
 
离线 bestczw
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:31
  • 帖子:31
  • 注册: 2004-04-16
2007-05-13 01:26 |
树型| 收藏| 小 中 大 9

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起



引用:
原帖由 ys1234 于 2007-5-12 16:40:00 发表
那个CSS不是很好看,我用了这个论坛的CSS
http://www.shuaji.net/sjnews/sjp ... FI89JI5F1BF_2.shtml
看效果..还不错



样式不错，能提供具体的修改方法吗？
gototop
引用
 
离线 Fly颖
头像

  • 个人空间 相册
  • 组别:商业用户组
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:523
  • 帖子:475
  • 注册: 2004-11-13
2007-05-13 09:26 |
树型| 收藏| 小 中 大 10

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

回楼上，用二楼的方法修改文件以后，在你的CSS文件内加入
.turnPage {
PADDING-RIGHT: 0px; PADDING-LEFT: 0px; PADDING-BOTTOM: 10px; MARGIN: 0px auto; WIDTH:auto; COLOR: #666; LINE-HEIGHT: 180%; PADDING-TOP: 13px; TEXT-ALIGN: center
}

.b1 {
CLEAR: both; BORDER-RIGHT: #D7D7D7 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #D7D7D7 1px solid; PADDING-LEFT: 6px; FONT-WEIGHT: bold; BACKGROUND: #FF6600; PADDING-BOTTOM: 2px; MARGIN: 0px 0px 10px; BORDER-LEFT: #D7D7D7 1px solid; COLOR: #656565; PADDING-TOP: 3px; BORDER-BOTTOM: #D7D7D7 1px solid
}
.b0 {
CLEAR: both; BORDER-RIGHT: #D7D7D7 1px solid; PADDING-RIGHT: 6px; BORDER-TOP: #D7D7D7 1px solid; PADDING-LEFT: 6px; BACKGROUND: #fff; PADDING-BOTTOM: 2px; MARGIN: 0px 0px 10px; BORDER-LEFT: #D7D7D7 1px solid; COLOR: #656565; PADDING-TOP: 4px; BORDER-BOTTOM: #D7D7D7 1px solid
}
.turnPage A {
COLOR: #656565; BORDER-RIGHT: #D7D7D7 1px solid; PADDING-RIGHT:6px; BORDER-TOP: #D7D7D7 1px solid; PADDING-LEFT: 6px; BACKGROUND: #fff; PADDING-BOTTOM: 2px; MARGIN: 0px 0px 10px; BORDER-LEFT: #D7D7D7 1px solid; COLOR: #656565; PADDING-TOP: 3px; BORDER-BOTTOM: #D7D7D7 1px solid
}
.turnPage A:visited {
COLOR: #656565;
}
.turnPage A:hover {
COLOR: #FF6600;background:#F3F3F3;
}

.pagenumber {
    margin:0 auto;
    text-decoration: none;
}
.pagenumber a {
    border: #ddd 1px solid;
    padding: 2px 6px 2px 6px;
    background: #FFFFFF;
    color: #333333;
    margin-right:1px;
    vertical-align: middle;
}
.pagenumber a:hover {
    border-color: #FF3300;
    background: #FF9900;
    color: #FFFFFF;
}
俺的小站，多多指教
gototop
引用
 
离线 ys1234
头像

  • 个人空间 相册
  • 组别:商业用户组
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:432
  • 帖子:250
  • 注册: 2006-07-24
2007-05-13 12:26 |
树型| 收藏| 小 中 大 11

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起



引用:
原帖由 bestczw 于 2007-5-13 01:26:00 发表
[quote] 原帖由 ys1234 于 2007-5-12 16:40:00 发表
那个CSS不是很好看,我用了这个论坛的CSS
[url=http://www.shuaji.net/sjnews/sjpc/2007/426/07434257HBFI89JI5F1BF_2.shtml]http://www.shuaji.net/sjne......



方法是一样的,只是引用的样式不同而已
我用的样式是:


引用:
.pagenumber {
margin:0 auto;
text-decoration: none;
}
.pagenumber a {
border: #ddd 1px solid;
padding: 2px 6px 2px 6px;
background: #FFFFFF;
color: #333333;
margin-right:1px;
vertical-align: middle;
}
.pagenumber a:hover {
border-color: #FF3300;
background: #FF9900;
color: #FFFFFF;
}



其实改动的就两部, 一是把不用的什么下十页之类的屏蔽,

str_n '非热链接颜色
    str_toF="<font face="""">首页</font>"    '首页
    'str_toP10="<font face=""webdings"">7</font>"  '上十
    str_toP1="<font face="""">上一页</font>"    '上一
    str_toN1="<font face="""">下一页</font>"    '下一
    'str_toN10="<font face=""webdings"">8</font>"  '下十
    str_toL="<font face="""">尾页</font>"    '尾页

二是在输出分页效果时应用样式~

Get_More_Page_Link_Str="<p><div class=""pagenumber"" align=""center"">"&Str_Link&"</div>"



这个是分页那段子程序,


引用:

Function Get_More_Page_Link_Str(f_More_Page_Link_Type,f_More_Page_Link_Color,f_More_Page_Css,f_Page_Count,f_More_Page_Index,f_File_Name,f_File_Ext_Name)
Dim f_i,Str_Link,LinkUrl,Str_Style,Str_LinkUrl_Page
Dim str_nonLinkColor,str_toF,str_toP10,str_toP1,str_toN1,str_toN10,str_toL,StartPage,EndPage,I
If f_More_Page_Index>f_Page_Count Then
  f_More_Page_Index=f_Page_Count
End If
LinkUrl = "."&f_File_Name
Str_Link=""
If f_More_Page_Link_Type="" Then
  f_More_Page_Link_Type=0
End If
If f_More_Page_Link_Color<>"" Then
  Str_Style=Str_Style&" style=""color: #"&f_More_Page_Link_Color&";"""
End If
If f_More_Page_Css<>"" Then
  Str_Style=Str_Style&" class="""&f_More_Page_Css&""""
End If
If f_Page_Count>1 Then
  Select Case f_More_Page_Link_Type
  Case 1
    If f_More_Page_Index=1 Then
    Str_Link=Str_Link&"上一页"
    Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
    ElseIf (f_More_Page_Index+1)>f_Page_Count Then
    If f_More_Page_Index-1<2 Then
      Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    Else
      Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    End If
    Str_Link=Str_Link&" 下一页"
    Else
    If f_More_Page_Index-1<2 Then
      Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    Else
      Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
    End If
    Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
    End If
  Case 2
    Str_Link="共"&f_Page_Count&"页 "
    For f_i=1 To f_Page_Count
    If f_i>1 Then
      Str_LinkUrl_Page=LinkUrl&"_"&f_i
    Else
      Str_LinkUrl_Page=LinkUrl
    End If
    If f_i= f_More_Page_Index Then
      Str_Link=Str_Link&" 第"&f_i&"页"
    Else
      Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">第"&f_i&"页</a>"
    End If
    Next
  Case 3
    Str_Link="共"&f_Page_Count&"页 "
    For f_i=1 To f_Page_Count
    If f_i>1 Then
      Str_LinkUrl_Page=LinkUrl&"_"&f_i
    Else
      Str_LinkUrl_Page=LinkUrl
    End If
    If f_i= f_More_Page_Index Then
      Str_Link=Str_Link&" "&f_i&""
    Else
      Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">"&f_i&"</a>"
    End If
    Next
  Case Else
    str_n '非热链接颜色
    str_toF="<font face="""">首页</font>"    '首页
    'str_toP10="<font face=""webdings"">7</font>"  '上十
    str_toP1="<font face="""">上一页</font>"    '上一
    str_toN1="<font face="""">下一页</font>"    '下一
    'str_toN10="<font face=""webdings"">8</font>"  '下十
    str_toL="<font face="""">尾页</font>"    '尾页
    Str_Link=""
    if f_More_Page_Index=1 then
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""第一页"">"&str_toF&"</font> " &vbNewLine
    Else
    Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""第一页"">"&str_toF&"</a> " &vbNewLine
    End If
    if f_More_Page_Index<11 then
    StartPage = 1
    else
    If f_More_Page_Index>(fix(f_More_Page_Index / 10) * 10) Then
      StartPage = (fix(f_More_Page_Index / 10) * 10)+1
    Else
      StartPage = ((fix(f_More_Page_Index / 10)-1) * 10)+1
    End If
    end if
    EndPage=StartPage+9
    If EndPage>f_Page_Count Then
    EndPage=f_Page_Count
    End If
    If StartPage>10 Then
    If (f_More_Page_Index - 10)<2 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 10&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上十页"">"&str_toP10&"</font> "  &vbNewLine
    End If
    If f_More_Page_Index > 1 Then
    If f_More_Page_Index=2 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上一页"">"&str_toP1&"</font> "  &vbNewLine
    End If
    For I=StartPage To EndPage
    If I=f_More_Page_Index Then
      Str_Link=Str_Link& "<b>"&I&"</b>"  &vbNewLine
    Else
      If I=1 Then
      Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
      Else
      Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&I&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
      End If
    End If
    Next
    If f_More_Page_Index < f_Page_Count Then
    Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index + 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""下一页"">"&str_toN1&"</a> "  &vbNewLine
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""下一页"">"&str_toN1&"</font> "  &vbNewLine
    End If
    If EndPage<f_Page_Count Then
    If (f_More_Page_Index+10)>f_Page_Count Then
      Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
    Else
      Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index+10&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
    End If
    Else
    Str_Link=Str_Link& " <font color="&str_nonLinkColor&"  title=""下十页"">"&str_toN10&"</font> "  &vbNewLine
    End If
    if f_More_Page_Index<f_Page_Count Then
    Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&" title=""尾页"">"&str_toL&"</a>"  &vbNewLine
    Else
    Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""尾页"">"&str_toL&"</font>"  &vbNewLine
    End If
  End Select
End If
Get_More_Page_Link_Str="<p><div class=""pagenumber"" align=""center"">"&Str_Link&"</div>"
End Function
gototop
引用
 
离线 南京么么茶
头像

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:257
  • 帖子:195
  • 注册: 2005-04-14
2007-05-13 15:49 |
树型| 收藏| 小 中 大 12

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

3楼蛮聪明的，风讯改成了DVBBS似的~
开始我还真没在意
看到帖子时才发现竟然是风讯
好好活，做有意义的事..
gototop
引用
 
离线 某人的马甲
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 来自:
  • 积分:48
  • 帖子:48
  • 注册: 2007-05-15
2007-05-15 10:24 |
树型| 收藏| 小 中 大 13

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

为什么我根据大家说的改了，添加新闻后，显示错误。恢复原文件就没有问题了？
gototop
引用
 
离线 ys1234
头像

  • 个人空间 相册
  • 组别:商业用户组
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:432
  • 帖子:250
  • 注册: 2006-07-24
2007-05-19 18:30 |
树型| 收藏| 小 中 大 14

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起



引用:
原帖由 某人的马甲 于 2007-5-15 10:24:00 发表
为什么我根据大家说的改了，添加新闻后，显示错误。恢复原文件就没有问题了？



那你直接改我说的那两部分就行了....肯定不会有问题的
gototop
引用
 
离线 zhihao
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:48
  • 帖子:28
  • 注册: 2005-08-23
2007-06-02 23:32 |
树型| 收藏| 小 中 大 15

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

用你们说的方法改
出现
Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'str_n'

/Admin/PublicSite/Public_Function.asp，行 484

看看是怎么回事
gototop
引用
 
离线 绵羊虫
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 来自:
  • 积分:4
  • 帖子:4
  • 注册: 2007-05-18
2007-06-05 10:09 |
树型| 收藏| 小 中 大 16

回复: 哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

不能发布的问题出在这一句



引用:
Case Else
    str_n '非热链接颜色
    str_toF="<font face="""">第一页</font>"    '第一页
    'str_toP10="<font face=""webdings"">7</font>"  '上十
    str_toP1="<font face="""">上一页</font>"    '上一
    str_toN1="<font face="""">下一页</font>"    '下一
    'str_toN10="<font face=""webdings"">8</font>"  '下十
    str_toL="<font face="""">尾页</font>"    '尾页
    Str_Link=""


改成
s t r_n o n L i n k C o l o r="#000000" '非热链接颜色

就好了
把s t r_n o n L i n k C o l o r的空格去掉

="#000000"写你自己想要的颜色
最后编辑绵羊虫 最后编辑于 2007-06-05 10:14:12
gototop
引用
 
离线 星草
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:31
  • 帖子:14
  • 注册: 2006-11-10
2007-07-31 15:23 |
树型| 收藏| 小 中 大 17

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

感觉依然不够理想.点第一页的时候,前面两个小选项没框框.点最后一页的时候,最后两个没框框
gototop
引用
 
离线 masanli
头像
半只青蛙

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:
  • 积分:360
  • 帖子:328
  • 注册: 2007-03-30
2007-07-31 16:28 |
树型| 收藏| 小 中 大 18

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

修改完毕，谢谢大家，顶起，让大家都看到！呵呵
-------------------------------------我还活着，我还在折腾！
gototop
引用
 
离线 camlin
头像

  • 个人空间 相册
  • 组别:注册会员
  • 性别:
  • 生日:1900-1-1
  • 来自:灵宝
  • 积分:174
  • 帖子:152
  • 注册: 2006-11-16
2007-10-26 18:00 |
树型| 收藏| 小 中 大 19

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

:'( 好东西  喜极而泣~~~~~~~~~~
我就是蚂蚁
http://www.youngbar.com
gototop
引用
 
离线 wjcreator
头像
wjcreator

  • 个人空间 相册
  • 组别:贵宾
  • 性别:
  • 生日:1984-1-19
  • 来自:
  • 积分:1370
  • 帖子:1370
  • 注册: 2008-04-21
2008-06-05 10:27 |
树型| 收藏| 小 中 大 20

回复：哪位高手再写个SP4"美化的分页效果"实在太需要了,支持的来顶起

写得不错，喜欢的朋友都来顶一下
gototop
引用
 
离线 流氓书生
头像

  • 个人空间 相册
  • 组别:新手上路
  • 性别:
  • 来自:
  • 积分:15
  • 帖子:15
  • 注册: 2008-04-23
2008-10-15 17:04 |
树型| 收藏|