查看完整版本: 【Tags标签】Tags标签效果修改 （特指颜色）

【Tags标签】Tags标签效果修改 （特指颜色）

【Tags标签】Tags标签效果修改 （特指颜色）

现在的Tags标签重复多了，会有字体大小之分
能不能修改成：有字体大小之分外，还有颜色之区别，这样用户浏览起来识别性更强，看起来更爽。


[b]我说的就是类似下面效果：
打开下面连接后，看右边关键词[/b]
[url=http://www.papav.com/play/45ed859f-6c15-43da-82e4-1c59e860ec48.htm]http://www.papav.com/play/45ed859f-6c15-43da-82e4-1c59e860ec48.htm[/url]

希望高手研究下，分享下，谢谢 :handshake

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
[color=Red]答案在11楼
进一步色彩修改请参考16楼
[/color]
[color=White].[/color]
[color=White].[/color]

[[i] 本帖最后由 月上之木 于 2007-11-21 10:16 编辑 [/i]]

:)

是不是这样?
[url]http://www.lyawen.com/tags.html[/url]

[quote]原帖由 [i]sunsoft[/i] 于 2006-12-20 22:48 发表
[color=red]是不是这样?
[url=http://www.lyawen.com/tags.html]http://www.lyawen.com/tags.html[/url][/color] [/quote]

:lol  是的，类似这样。就是不知道怎么改。

顶，也想知道~~

[quote]原帖由 [i]guangsz[/i] 于 2006-12-21 10:46 发表
[color=red]顶，也想知道[/color]~~ [/quote]

呵呵，其实很简单把这几句找个合适的地方加入就行了，当然，你也可以再进行一些变通。
Randomize
RndTmp=Int(Rnd*999)
<span style='color:#"&RndTmp&";'>" & Tag.name & "</span>

说起来简单得恨,但是做起来,好象没有那么容易吧

因为我是程序草根,一根也不懂得怎么改,希望有那位英雄跟大家分享一下

[quote]原帖由 [i]sunsoft[/i] 于 2006-12-21 21:35 发表
[b][size=4][color=red]呵呵，[/color][color=red]其实很简单把[size=6]这几句:D  [/size]找个合适的地方加入就行了[/color]，[color=red]当然，你也可以再进行一些[size=6]变通[/size]。[/color][/size][/b]
[color=blue]Randomize[/color]
[color=darkgreen]RndTmp=Int(Rnd*999)
[/color][color=red]<span style='color:#"&RndTmp&";'>" & Tag.name &a ...[/color] [/quote]




:Q  说白点，大家才都看得懂，否则只能一部分人看得懂（[size=4][color=red][b]对于新手，你的回答只算说了一半，比如：最好来个修改步骤全解[/b][/color][/size]）。 还有，如果能达到[size=6][color=#ff0000][b]变[/b][b]通[/b][size=2][color=black]水平:L ，那估计就不会发这个帖子了。[/color][/size][/color][/size] 最后说声[b][size=5]谢谢。[/size][/b]

[color=white].[/color]
[color=white].[/color]
[color=white].[/color]

[[i] 本帖最后由 Google 于 2006-12-22 19:41 编辑 [/i]]

借用的sun的方法,很简单,但讲起来挺麻烦的,直接对照改吧

根目录下tags.asp,找到相应位置,替换成下面代码:

[code]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
[/code]

这样就可以了

不错。我的也修改了一下。谢谢月上之木。

[url]http://www.likk.com/blog/tags.asp[/url]

所谓的相应位置是在哪啊？大哥

[quote]原帖由 [i]kola110[/i] 于 2006-12-25 02:22 发表
所谓的相应位置是在哪啊？大哥 [/quote]
从“Dim Tag”开始 到 next 结束。

已修改,我顶,不过我的页面有些字太黑暗了
[url]http://www.1kps.com/tags.asp[/url]

楼上的朋友你可以这么改
RndTmp=Hex(Int(Rnd*3822))

因为999是3E7，红色这一块最多达到3，绿E，蓝7，能表现的颜色比较偏向一个色系，且明度较低。
3822是EEE，就是很淡的灰色。这样色系也均匀分布。这样一改颜色会鲜艳许多。
为什么不用4095呢，因为那是FFF白色，看不到了。

效果是这样
[url]http://azurez.org/tags.asp[/url]

你也可以用16777215，就是FFFFFF 24位色，很广的色域。不过其实没必要，徒增负担而已。

[[i] 本帖最后由 zeuxis 于 2006-12-31 02:00 编辑 [/i]]

[quote]原帖由 [i]月上之木[/i] 于 2006-12-22 20:26 发表
借用的sun的方法,很简单,但讲起来挺麻烦的,直接对照改吧

根目录下tags.asp,找到相应位置,替换成下面代码:

Dim Tag
Dim strTagCloud
Dim RndTmp
For Each Tag in Tags

        If IsObject(Tag) Then

   ... [/quote]


请问我加了后,颜色有了,可是字体大小怎么都一样啊?  能和你们一样能变化吗?

这么改对原版的忠实度最大, 也更适合更换主题和样式.

[code]                        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>"[/code]

回复 #16 zeuxis 的帖子

换成16进制是个好办法, 如果能控制一下色彩范围就更好了. 比如分成亮色, 暗色, 偏红, 偏绿, 偏蓝等.

还请问,如何把这种效果调用到首页侧栏显示呢?
我现在首页的调用效果是一行一个,拖的很长.
谢谢.

[url]http://bbs.rainbowsoft.org/viewthread.php?tid=13532&extra=page%3D1[/url]

回复 #11 月上之木 的帖子

修改成功，谢谢

回复 16# 的帖子

都没来回复了，谢谢啊，现在效果挺不错的，呵呵

先看看再说