kola110

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

likk

引用:

原帖由 kola110 于 2006-12-25 02:22 发表
所谓的相应位置是在哪啊？大哥

从“Dim Tag”开始 到 next 结束。

kola110

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

zeuxis

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

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

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

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

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

快乐小虾米

引用:

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

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

Dim Tag
Dim strTagCloud
Dim RndTmp
For Each Tag in Tags

        If IsObject(Tag) Then

   ...

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

haphic

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

复制内容到剪贴板

代码:

                        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>"

haphic

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

ericdj

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

软件兔

http://bbs.rainbowsoft.org/viewt ... &extra=page%3D1

ponychen

修改成功，谢谢

kola110

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

cyhxql

先看看再说