查看完整版本: 侧边栏tags模块修改

侧边栏tags模块修改

改成跟TagCloud页一样的:
FUNCTION\c_system_event.asp 1211行左右
[code]strTag=strTag & "<li><a href="""& Tags(objRS("tag_ID")).Url & """>"+Tags(objRS("tag_ID")).Name + " (" & Tags(objRS("tag_ID")).Count & ")" +"</a></li>"[/code]

改成:
[code]strTag=strTag & "<span style='font-family:verdana,sans-serif;line-height:150%;font-size:"& 12 + (Tags(objRS("tag_ID")).Count/2) &"px;margin:10px;'><a title='" & Tags(objRS("tag_ID")).Count & "' alt='"&  Tags(objRS("tag_ID")).Count  &"' href='" & Tags(objRS("tag_ID")).Url &"'>" & Tags(objRS("tag_ID")).Name  & "</a></span>"
[/code]

好贴, 已经修改.

帅哥，再搞一下，，把它弄成截取前N个的tag就好了，，要是tag太多了，页面N长。。。

前N个?指文章关联数多到少吗?

好，做个记号，日后完善

蛮不错的想法!

[quote]原帖由 [i]月上之木[/i] 于 2007-3-14 13:01 发表
前N个?指文章关联数多到少吗? [/quote]


yes....

比如整个blog共有150个tag,,,按文章关联数从多到少排,,把排在前50的提出来...


然后还有一点就是

在访问不同分类时，只显示该分类下的Tag...也是要提取出来前N个出来


不知道有没有办法弄..可呵..

嗯嗯.只要前面的30个就够了.:)

没实现分类tags....

1.c_option 添加一参数:
[code]'侧边栏tags显示数目
Const ZC_TAG_WORD_MAX=30[/code]

2.将FUNCTION/c_system_event.asp中BlogReBuild_Tags()函数换成以下:
[code]Function BlogReBuild_Tags()

        Dim objRS
        Dim objStream

        Dim strTag
                Dim i

        Set objRS=objConn.Execute("SELECT * FROM [blog_Tag] ORDER BY [tag_Count] DESC,[tag_Order] DESC,[tag_ID] ASC")
        If (Not objRS.bof) And (Not objRS.eof) Then
                   For i=1 to ZC_TAG_WORD_MAX
                                strTag=strTag & "<span style='font-family:verdana,sans-serif;line-height:150%;font-size:"& 12 + (Tags(objRS("tag_ID")).Count/2) &"px;margin:10px;'><a title='" & Tags(objRS("tag_ID")).Count & "' alt='"&  Tags(objRS("tag_ID")).Count  &"' href='" & Tags(objRS("tag_ID")).Url &"'>" & Tags(objRS("tag_ID")).Name  & "</a></span>"       
                        objRS.MoveNext
                        If objRS.eof Then Exit For
                Next
        End If
        objRS.Close
        Set objRS=Nothing

        strTag=TransferHTML(strTag,"[no-asp]")

        Call SaveToFile(BlogPath & "/include/tags.asp",strTag,"utf-8",True)

        BlogReBuild_Tags=True

End Function[/code]

3.再索引重建就可以了

[[i] 本帖最后由 月上之木 于 2007-4-13 22:31 编辑 [/i]]

:victory:

[quote]原帖由 [i]月上之木[/i] 于 2007-4-13 22:21 发表
没实现分类tags....

1.c_option 添加一参数:
'侧边栏tags显示数目
Const ZC_TAG_WORD_MAX=30

2.将FUNCTION/c_system_event.asp中BlogReBuild_Tags()函数换成以下:
Function BlogReBuild_Tags()

        Di ... [/quote]


太好了..哈哈..

好久没看贴子了,,,都不知道已经弄成了..嘿嘿...:hug: :hug:

月月,,不如顺便,,我想个相册的东东出来,,你实现如何..HOHO

相册的话这边有一个了: [url]http://bbs.rainbowsoft.org/viewthread.php?tid=12714&extra=page%3D1[/url]

这个不错的

不错~~

这个不合要求的说,,

加上颜色怎么弄，字体不要因日志多而变大，影响侧栏美观，最好用颜色反应日志多少！

支持下

tags的字体颜色怎么该呢？

哇，谢谢，正在找。:victory:

以后再改咯

都是牛人

:victory: :victory:

到底是什么效果 没演示啊