当前位置：首页 -> 网页设计 -> 网页特效 -> VBscript超强幻灯片效果代码

VBscript超强幻灯片效果代码

时间： 2021-07-31 作者：daque

<html> <head> <title>幻灯片播放</title> <meta http-equiv="content-type" content="text/html; charset=utf8"> <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>

VBscript超强幻灯片效果代码

相关推荐

推荐下载

热门阅览

最新排行