快乐小虾米

原贴: http://bbs.rainbowsoft.org/viewt ... p;extra=&page=1

借用的sun的方法,很简单,但讲起来挺麻烦的,直接对照改吧

根目录下tags.asp,找到相应位置,替换成下面代码:


[Copy to clipboard]CODE:
Dim Tag
Dim strTagCloud
Dim RndTmp
For Each Tag in Tags

        If IsObject(Tag) Then

         Randomize
         RndTmp=Int(Rnd*999)
         strTagCloud=strTagCloud & "<a style=' color:#"&RndTmp&";font-size:"& 12 + (Tag.Count/2) &"px; margin:10px;' title='" & Tag.Count & "' alt='"&  Tag.Count  &"' href='" & Tag.Url &"'>" & Tag.name & "</a>"

        End If
Next

这样就可以了


请问我加了后,颜色有了,可是字体大小怎么都一样啊?  能和你们一样能变化吗?

angelwing

字体的大小是和该TAGS的文章数量成正比的~~
但是如果要修改所有TAGS的默认大小，可以到CSS里修改~~

快乐小虾米

请你能说的具体 些吗/

快乐小虾米

就象likk 版主这样的:  http://www.likk.com/blog/tags.asp

haphic

楼主想法不错, 建议改成这样:

复制内容到剪贴板

代码:

                        strTagCloud=strTagCloud & "<span style='font-family:verdana,sans-serif;line-height:150%;font-size:"& 12 + (Tag.Count/2) &"px;margin:10px;'><a style='color:#"&RndTmp&";' title='" & Tag.Count & "' alt='"&  Tag.Count  &"' href='" & Tag.Url &"'>" & Tag.name & "</a></span>"

快乐小虾米

谢谢 haphic 版主
我去试一试!

wuqiqiang

说的不清不楚的~！~~听不懂~！~

ericdj

请问大家.能把这种效果调用到首页显示吗?谢谢了