30
2006
12

Tags标签加上随机颜色效果

参照这个http://bbs.rainbowsoft.org/viewthread.php?tid=1534&extra=page%3D1我修改了我的tags.asp

Dim Tag
Dim strTagCloud
Dim RndTmp
For Each Tag in Tags
 
 If IsObject(Tag) Then
     Randomize
     RndTmp=Int(Rnd*999)

      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>"
End If
Next

粗体字为增加的代码

« 上一篇: 突破网易相册的反盗链... 下一篇: 报名应聘中国邮政集团公司... »
与此文相关的文章,有兴趣就接着看看吧:

 

评论列表:

1.Nffish  2007-01-01 11:40:36 回复该评论
新年快乐!

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。