发新话题
打印

【未解决】如何实现TAGS,同一颜色深浅变化

【未解决】如何实现TAGS,同一颜色深浅变化

以前有过多种颜色变化的修改,由于风格原因,搭配起来显得花俏。
如何实现TAGS,同一颜色深浅变化,不要那么多颜色了,呵呵。

演示地址(看演示下方英文):
http://www.bioneural.net/archives/



[ 本帖最后由 Google 于 2007-3-19 13:00 编辑 ]
附件: 您所在的用户组无法下载或查看附件

TOP

哇!这个好!有人给个代码么?我自己懒得写了
[AD]:个人BLOG:思想碎片@Zx.MYS
[说明]:1.有事请发帖,论坛短消息已禁用。2.写Z-Blog程序的不是我,是另外一个zx。3:准备高考,消失一年。

TOP

TOP

引用:
原帖由 Zx.MYS 于 2007-3-19 19:51 发表
哇!这个好!有人给个代码么?我自己懒得写了
要是连你这种人都等代码的话, 那是没希望了...

TOP

TOP

没写过这代码,大概如下
dim a,b,c
a="D,E,F"
b=split(a,",")
然后随机取b[0]b[1]b[2]中的一个(取6次),和#一起组合成颜色代码就行了。
应该比较接近你说的效果。

TOP

复制内容到剪贴板
代码:
        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 编辑 ]

TOP

不用tag

TOP

……真郁闷……
跑去楼主给的那个网站看了看,在看了看ZB的Tag页面,很沮丧的发现,没有class……
为什么要用嵌入的style呢?
为什么不用CSS控制呢?
有CSS的话就轻松多了呀……难道说这是Tag云的“行业标准”?
至少把title属性分类不是分得很好么?给每个链接照搬一个class,不就可以很轻松地自行搞定不同级别的Tag的样式了么?
————————————————————————
以上当我没说……
写完后才发现我永远不知道一共要定义几个class……
虽说可以加一个参数直接利用内核生成class分组,但是实在懒惰……
结果偶还是觉得月上之木的方法……实在是方便快捷……

TOP

回复 #9 PeriCHR 的帖子



如果勤快的话可以写个JS实现CSS控制,不过.....还是不如直接改的简单~~

TOP

发新话题