zblog博客Tags标签增加颜色特效
网友提问：现在的Tags标签重复多了，会有字体大小之分，能不能修改成：有字体大小之分外，还有颜色之区别？
回复：可以的，
根目录下tags.asp,找到从“Dim Tag”开始 到 next 结束的位置，替换如下：
|
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 |
也可以这么改：
RndTmp=Hex(Int(Rnd*3822))
因为999是3E7，红色这一块最多达到3，绿E，蓝7，能表现的颜色比较偏向一个色系，且明度较低。
3822是EEE，就是很淡的灰色。这样色系也均匀分布。这样一改颜色会鲜艳许多。
为什么不用4095呢，因为那是FFF白色，看不到了。
你也可以用16777215，就是FFFFFF 24位色，很广的色域。不过其实没必要，徒增负担而已。
www.51talkenglish.com 免费英语在线学习