中级会员
查看详细资料
TOP
离退组
原帖由 sunsoft 于 2006-12-20 22:48 发表 是不是这样? http://www.lyawen.com/tags.html
新手上路
原帖由 guangsz 于 2006-12-21 10:46 发表 顶,也想知道~~
原帖由 sunsoft 于 2006-12-21 21:35 发表 呵呵,其实很简单把这几句 找个合适的地方加入就行了,当然,你也可以再进行一些变通。 Randomize RndTmp=Int(Rnd*999) <span style='color:#"&RndTmp&";'>" & Tag.name &a ...
管理组
游走中。。。
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