赵海峰的博客

　　对于分类栏目的tag一直以来就有想修改的意思，只是一直没有时间研究他，今天终于改了，现在栏目下只显示关联度最高的tag标签，省得我的100多个标签把页面搞得长长的。

　　具体修改如下：

　　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.再索引重建就可以了。

　　但是，发现那个tag有些乱，觉得还是原来一行一个，大小不变的好，所以又改了一句。将

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

　　改成：

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

("tag_ID")).Count & ")" +"</a></li>"