【参加讨论】<html>
<head>
<title>幻灯片播放</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link href="images/style.css" rel="stylesheet">
</head>
<script language="vbscript">
dim filelist,filelistarr
filelist = "001.jpg,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg"
filelistarr = split(filelist,",")
dim canplay
canplay = cint(split(split(navigator.appversion,";")(1)," ")(2))>5
dim filterstr
filterstr = "revealtrans(duration=2,transition=23)"
filterstr = filterstr + ";blendtrans(duration=2)"
if canplay then
filterstr = filterstr + ";progid:dximagetransform.microsoft.pixelate(,enabled=false,duration=2,maxsquare=25)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.fade(duration=2,overlap=0)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.gradientwipe(duration=2,gradientsize=0.25,motion=forward )"
filterstr = filterstr + ";progid:dximagetransform.microsoft.stretch(duration=2,stretchstyle=push)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.wheel(duration=2,spokes=16)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.randomdissolve(duration=2)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.spiral(duration=2,gridsizex=50,gridsizey=50)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.slide(duration=2,bands=1,slidestyle=swap)"
filterstr = filterstr + ";progid:dximagetransform.microsoft.radialwipe(duration=2,wipestyle=clock)"
else
msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为ie5.5或以上版本，否则您将只能看到部分的切换效果。",64
end if
dim filterarr
filterarr = split(filterstr,";")
dim playimg_m
playimg_m = 5 * 1000 '切换时间（毫秒）
dim i
i = 1
sub changeimg
do while filelistarr(i)=""
i = i + 1
if i>ubound(filelistarr) then i = 0
loop
dim j
if i>ubound(filelistarr) then i = 0
randomize
j = int(rnd * (ubound(filterarr)+1))
img.style.filter = filterarr(j)
img.filters(0).apply
img.src = filelistarr(i)
img.filters(0).play
i = i + 1
if i>ubound(filelistarr) then i = 0
tempimg.src = filelistarr(i)
settimeout "changeimg",playimg_m
end sub
</script>
<body bgcolor="#000000">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr id="noscript">
<td align="center" style="color:white">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</td>
</tr>
<tr style="display:none" id="canrunscript">
<td height="100%" align="center" valign="center">
<img id="img" border="0" >
</td>
</tr>
<tr style="display:none">
<td><img id="tempimg" border="0"></td>
</tr>
</table>
<script language="vbscript">
noscript.style.display = "none"
canrunscript.style.display = ""
img.src = filelistarr(0)
settimeout "changeimg", playimg_m
</script>
当前位置：首页>>网页设计>>网页特效>>正文 
易特网络技术