首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论

日志搜索

 标题   内容


利用震荡行情继续高抛低吸! 高位震荡,个股活跃!
未知 L-BLOG列表模式分页函数   [ 日期:2010-10-22 08:12:07 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速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>&nbsp;"
            Else
                MultiPage_l=MultiPage_l&"<b>["&PageI&"]</b>&nbsp;"
            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>&nbsp;<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="<span class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"

修改为:
Dim Log_Num,MultiPages,PageCount
    if viewMode="list" Then
    MultiPages="<span class=""smalltxt"">"&MultiPage_l(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"
    else
    MultiPages="<span class=""smalltxt"">"&MultiPage(Log_Num,blogPerPage,CurPage,Url_Add)&"</span>"
    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条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com