复制内容到剪贴板
代码:
If IsObject(Tag) Then
Dim intTagColor
intTagColor=(200-Tag.Count*5)
If intTagColor<0 Then intTagColor=0 End If
strTagCloud=strTagCloud & "<a style='color:RGB("& intTagColor &","& intTagColor &","& intTagColor &");font-family:verdana,sans-serif;line-height:150%;font-size:"& 12 + (Tag.Count/2) &"px;margin:10px;'title='"& Tag.name &" ("& Tag.Count & ")' alt='"& Tag.Count &"' href='" & Tag.Url &"'>" & Tag.name & "</a>"
End If具体数据可作调整,不过如果tag不多的话基本上都很模糊,而且最好还要定义下鼠标悬停时的样式(下划线什么的),不然也难看
ps:

感觉弄这个没多大意思的说...
[
本帖最后由 月上之木 于 2007-3-20 13:29 编辑 ]