2006-6-5 17:21
lansfb
图片随机滤镜变换效果
因为这里没有图片所以就，直接贴上去
[code]
<body onload="setimg()">
<img src=001.jpg id=img1 style="filter:revealtrans(duration=4,transition12)">
<script language="vbscript">
dim bg,x1
x1=0
bg=array("001.jpg","002.jpg","003.jpg","004.jpg","005.jpg")
sub setimg()
randomize
img1.filters(0).apply()
img1.filters(0).transition=cint(rnd*24)
if x1<4 then
x1=x1+1
else
x1=0
end if
img1.src=bg(x1)
img1.filters(0).play()
end sub
window.setinterval "setimg()",5000
</script>
</body>
[/code]
[color=red]说明：[/color] <body>内的on load="setimg()"是网页一打开就自动播放
这里一共有5张图片，您可以自己加图片或减图片，保存时候图片与此网页放在同个目录下
"if x1<4 then" 你放几张图片，就改成"x1<图片张数-1"
最下面的 windo....,5000,"5000"一张图片与下张图片相隔的时间，代表5秒。
因为这里没有图片所以就，直接贴上去
[code]
<body onload="setimg()">
<img src=001.jpg id=img1 style="filter:revealtrans(duration=4,transition12)">
<script language="vbscript">
dim bg,x1
x1=0
bg=array("001.jpg","002.jpg","003.jpg","004.jpg","005.jpg")
sub setimg()
randomize
img1.filters(0).apply()
img1.filters(0).transition=cint(rnd*24)
if x1<4 then
x1=x1+1
else
x1=0
end if
img1.src=bg(x1)
img1.filters(0).play()
end sub
window.setinterval "setimg()",5000
</script>
</body>
[/code]
[color=red]说明：[/color] <body>内的on load="setimg()"是网页一打开就自动播放
这里一共有5张图片，您可以自己加图片或减图片，保存时候图片与此网页放在同个目录下
"if x1<4 then" 你放几张图片，就改成"x1<图片张数-1"
最下面的 windo....,5000,"5000"一张图片与下张图片相隔的时间，代表5秒。
2006-6-6 09:43
欧文
我支持一下你~！ [s:2] [s:2]
2006-6-6 11:03
露比
我也支持一下
2006-6-6 13:07
lansfb
谢谢了 。怎么弄成可以浏览的那种啊 ，就是点下浏览可以到的到效果
我看你们发的都是那种的啊，是不是要 斑竹才有的哦 ？
我看你们发的都是那种的啊，是不是要 斑竹才有的哦 ？
2006-6-6 13:14
蓝鼠狼
用[ run]..[ /run]
2006-6-6 14:57
曾经最美
支持一下!
2006-6-6 15:12
木舟
用run时, 把左侧的"自动分析url" 去除!
2006-6-6 15:37
lansfb
谢谢``大家支持咯！
页: [1]
查看完整版本: 图片随机滤镜变换效果
Powered by Discuz! Archiver 5.5.0 © 2001-2006 Comsenz Inc.