首页 信息技术正文

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

粗体字为增加的代码

评论

精彩评论
«   2021年2月   »
1234567
891011121314
15161718192021
22232425262728

控制面板

您好,欢迎到访网站!
  查看权限

文章归档