侧边栏tags模块修改

月上之木

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

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

复制代码

改成:

1. 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 添加一参数:

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

复制代码

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

1. Function BlogReBuild_Tags()
   
2. 
   
3.         Dim objRS
   
4.         Dim objStream
   
5. 
   
6.         Dim strTag
   
7.                 Dim i
   
8. 
   
9.         Set objRS=objConn.Execute("SELECT * FROM [blog_Tag] ORDER BY [tag_Count] DESC,[tag_Order] DESC,[tag_ID] ASC")
   
10.         If (Not objRS.bof) And (Not objRS.eof) Then
    
11.                    For i=1 to ZC_TAG_WORD_MAX
    
12.                                 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>"       
    
13.                         objRS.MoveNext
    
14.                         If objRS.eof Then Exit For
    
15.                 Next
    
16.         End If
    
17.         objRS.Close
    
18.         Set objRS=Nothing
    
19. 
    
20.         strTag=TransferHTML(strTag,"[no-asp]")
    
21. 
    
22.         Call SaveToFile(BlogPath & "/include/tags.asp",strTag,"utf-8",True)
    
23. 
    
24.         BlogReBuild_Tags=True
    
25. 
    
26. 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