教育、读书、生活 | BLOG.LIKK.com | 行走在教育和生活的风景线上
24 十二月
Tags标签重复多了,会有字体大小之分外,还有颜色之区别,这样浏览起来识别性更强,看起来更爽。
根目录下tags.asp,找到相应位置,替换成下面代码:
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&";line-height:300%;font-size:"& 12 + (Tag.Count/20) &"px; margin:10px;' title='" & Tag.Count & "' alt='"& Tag.Count &"' href='" & Tag.Url &"'>" & Tag.name & "</a>"
End If
Next
欢迎您留言发表看法
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。