参照这个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
粗体字为增加的代码
评论
Nffish
回复新年快乐!