兄弟的博客-【兄弟波段趋势操盘】-L-BLOG列表模式分页函数 -

海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大中小】
L-BLOG被修改以后，功能变得越来越强大，很早网上就有了文章列表模式显示的功能，但是开发者的功夫只做了一半而已，没有将分页的功能加上去，所以点了按某某分类列表，只能显示第一页，这样就没意思了。于是在网上搜索，找到了一个分页的函数，在调试的时候发现，分页函数还是有小小的BUG,就是在显示最尾页的时候，忘记将分页的标志关键字加进去，可能是作者疏忽了吧！

打开博客程序的include\function.asp，在适当的位置插入以下代码：

程序代码： [ 复制代码到剪贴板 ]

Function MultiPage_l(Numbers,Perpage,Curpage,Url_Add) '列表分页函数
 CurPage=Int(Curpage)
 Dim URL
 URL=Request.ServerVariables("Script_Name")&Url_Add
 MultiPage_l=""
 Dim Page,Offset,PageI
 If Int(Numbers)>Int(PerPage) Then
 Page=10
 Offset=2
 Dim Pages,FromPage,ToPage
 If Numbers Mod Cint(Perpage)=0 Then
 Pages=Int(Numbers/Perpage)
 Else
 Pages=Int(Numbers/Perpage)+1
 End If
 FromPage=Curpage-Offset
 ToPage=Curpage+Page-Offset-1
 If Page>Pages Then
 FromPage=1
 ToPage=Pages
 Else
 If FromPage<1 Then
 Topage=Curpage+1-FromPage
 FromPage=1
 If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page
 ElseIF Topage>Pages Then
 FromPage =Curpage-Pages +ToPage
 ToPage=Pages
 If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1
 End If
 End If
 MultiPage_l="<a href="""&Url&"sortBy="&sortBy&"&page=1""><img src=""images/icon_ar.gif"" border=""0"" align=""absmiddle""></a> "
 For PageI=FromPage TO ToPage
 If PageI<>CurPage Then
 MultiPage_l=MultiPage_l&"<a href="""&Url&"sortBy="&sortBy&"&page="&PageI&""">["&PageI&"]</a> "
 Else
 MultiPage_l=MultiPage_l&"["&PageI&"] "
 End If
 Next
 If Int(Pages)>Int(Page) Then
 MultiPage_l=MultiPage_l&" ... <a href="""&Url&"sortBy="&sortBy&"&page="&Pages&"""> ["&pages&"] <img src=""images/icon_al.gif"" border=""0"" align=""absmiddle""></a> <input type=""text"" name=""custompage"" size=""1"" class=""custompage"" onKeyDown=""javascript: if(window.event.keyCode == 13) window.location='"&Url&"page='+this.value;"">"
 Else
 MultiPage_l=MultiPage_l&" <a href="""&Url&"sortBy="&sortBy&"&page="&Pages&"""><img src=""images/icon_al.gif"" border=""0"" align=""absmiddle""></a>"
'原作者在这里忘记把SORTBY加进入了！
 End If
 End If
End Function

然后打开default.asp,找到以下代码：
Dim Log_Num,MultiPages,PageCount
MultiPages=""&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&""

修改为：
Dim Log_Num,MultiPages,PageCount
 if viewMode="list" Then
 MultiPages=""&MultiPage_l(Log_Num,blogPerPage,CurPage,Url_Add)&""
 else
 MultiPages=""&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&""
 end if
即可。

水清于 2010-10-22 20:07:15 发表评论：

这是asp语言吗？看懂有点难度

jimolr 于 2010-10-22 11:51:46 发表评论：

什么时候来个通俗易懂的建站教程。

hbdmfzj119 于 2010-10-22 09:15:09 发表评论：

兄弟真有才啊

香香公主于 2010-10-22 09:04:21 发表评论：

兄第辛苦了

Thanatus 于 2010-10-22 08:57:06 发表评论：

强大得博客，强大得博主。。。

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：我要注册验证码：
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!

评论：

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布？


最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!