月上之木

改成跟TagCloud页一样的:
FUNCTION\c_system_event.asp 1211行左右

复制内容到剪贴板

代码:

strTag=strTag & "<li><a href="""& Tags(objRS("tag_ID")).Url & """>"+Tags(objRS("tag_ID")).Name + " (" & Tags(objRS("tag_ID")).Count & ")" +"</a></li>"

改成:

复制内容到剪贴板

代码:

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>"

weiqunxing

好贴, 已经修改.

vanne

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

月上之木

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

asongzhang

好，做个记号，日后完善

wolfit

蛮不错的想法!

vanne

引用:

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

yes....

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


然后还有一点就是

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


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

stephen

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

月上之木

没实现分类tags....

1.c_option 添加一参数:

复制内容到剪贴板

代码:

'侧边栏tags显示数目
Const ZC_TAG_WORD_MAX=30

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

复制内容到剪贴板

代码:

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

3.再索引重建就可以了

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

washun

vanne

引用:

原帖由 月上之木 于 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 ...

太好了..哈哈..

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

vanne

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