更换了BLOG的skin

今天难的的有空去修改了一下blog--突然发觉我真的好久好久没有去动过blog了(除了用他写日志)^&^
原先的微软风格用了快一年了,感觉已经有些让我视觉疲劳了,这次找了一个live风格换上--哈,我既然是喜欢那些大气的清爽的风格*^)^*

另外对blog的左边栏内容进行了一些修改与调整--pjblog的三栏风格,我一直使用上感觉不便:(
blog已经写了有近一年半的时间了,Archive栏按月归档的链接真是越拖越长了,十多行的链接排在那里将网页拖得长长的-_-
只得上QQ问何昕要了他的修改方法,修改很简单,只要改common文件夹里面的cache.asp一处地方就可以了。
下面是修改办法,用记事本打开cache.asp,找到下面内容
程序代码 程序代码
'========================日志归档缓存============================
function archive(ByVal action)'日志归档
    Dim blog_archive,i
    '-----------------写入日志归档缓存--------------------
    IF Not IsArray(Application(CookieName&"_blog_archive")) or action=2 Then
        Dim log_archives
        SQL="Select Count(log_ID) AS [count], Year([log_PostTime]) AS PostYear, Month([log_PostTime]) AS PostMonth " &_
            "FROM blog_Content where blog_Content.log_IsDraft=false "&_
            "GROUP BY Year([log_PostTime]), Month([log_PostTime]) "&_
            "ORDER BY Year([log_PostTime]) Desc, Month([log_PostTime]) Desc"
        Set log_archives=Conn.Execute(SQL)
        SQLQueryNums=SQLQueryNums+1
        if log_archives.eof or log_archives.bof then
            ReDim blog_archive(0,0)
        else
            blog_archive=log_archives.GetRows()
        end if
        Set log_archives=Nothing

        Application.Lock
        Application(CookieName&"_blog_archive")=blog_archive
        Application.UnLock
    Else
        blog_archive=Application(CookieName&"_blog_archive")
    End IF
    
    '-----------------读取日志归档缓存--------------------
    if action<>2 then
            Dim archive_item_Len,Month_array
            if ubound(blog_archive,1)=0 then archive="":exit function
            Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
            archive_item_Len=ubound(blog_archive,2)
            For i=0 to archive_item_Len
                archive=archive&"<a class=""sideA"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title=""查看当前日期的日志"">"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</a>"
            Next
    end if
end function
'=====================End Function========================

替换为
程序代码 程序代码
'========================日志归档缓存============================
function archive(ByVal action)'日志归档
    Dim blog_archive,i
    '-----------------写入日志归档缓存--------------------
    IF Not IsArray(Application(CookieName&"_blog_archive")) or action=2 Then
        Dim log_archives
        SQL="Select Count(log_ID) AS [count], Year([log_PostTime]) AS PostYear, Month([log_PostTime]) AS PostMonth " &_
            "FROM blog_Content where blog_Content.log_IsDraft=false "&_
            "GROUP BY Year([log_PostTime]), Month([log_PostTime]) "&_
            "ORDER BY Year([log_PostTime]) Desc, Month([log_PostTime]) ASC"  '//2006-02-27 修改日志归档 Desc
        Set log_archives=Conn.Execute(SQL)
        SQLQueryNums=SQLQueryNums+1
        if log_archives.eof or log_archives.bof then
            ReDim blog_archive(0,0)
        else
            blog_archive=log_archives.GetRows()
        end if
        Set log_archives=Nothing

        Application.Lock
        Application(CookieName&"_blog_archive")=blog_archive
        Application.UnLock
    Else
        blog_archive=Application(CookieName&"_blog_archive")
    End IF
    
    '-----------------读取日志归档缓存--------------------
    '//2006-02-27 修改日志归档
     if action<>2 then
          Dim archive_item_Len,Month_array,TempYear,MonthCounter
          if ubound(blog_archive,1)=0 then archive="":exit function
          Month_array=Array("01月","02月","03月","04月","05月","06月","07月","08月","09月","10月","11月","12月")
          archive_item_Len=ubound(blog_archive,2)
          TempYear=blog_archive(1,0)
          MonthCounter=0
               For i=0 to archive_item_Len
                IF i=0 Then archive="<a class=""sideA"" style=""margin:0px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"年</a>"
                IF blog_archive(1,i)=TempYear Then
                   archive=archive&"<a style=""margin:0px 3px 0px 1px;"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title="""&blog_archive(1,i)&"年"&blog_archive(2,i)&"月有"&blog_archive(0,i)&"篇日志"">"&Month_array(blog_archive(2,i)-1)&"</a>"
                   MonthCounter=MonthCounter+1
                   IF MonthCounter=6 Then MonthCounter=0:archive=archive&"<br/>"
              Else
                   MonthCounter=1
                   archive=archive&"<a class=""sideA"" style=""margin:3px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"年</a>"
                   archive=archive&"<a style=""margin:0px 3px 0px 1px;"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title="""&blog_archive(1,i)&"年"&blog_archive(2,i)&"月有"&blog_archive(0,i)&"篇日志"">"&Month_array(blog_archive(2,i)-1)&"</a>"
                   TempYear=blog_archive(1,i)
              End IF
               Next
     end if
     '//2006-02-27 修改日志归档
end function
'=====================End Function========================

即可。

ps.又一年过去了,整理了blog,顺便去检查了一下友情链接的其他blog,发现还好,大部分blog都还是坚持下去了,没有成为现在“流行”的“睡眠博客”:P,但是还是有少量的blog已经关门大吉或溉改头换面了:(,清理了大约10个链接。欢迎喜欢曼联和动漫的朋友与我交换链接*^_^*

[本日志由 Doraemon 于 2007-01-13 01:13 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Blog SKIN
相关日志:
评论: 0 | 引用: 0 | 查看次数: 8121
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 3000 字 | UBB代码 开启 | [img]标签 开启