用 vbscript 编写，没有专门的类别，只好放到 javascript 分类了。
<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">
'***************************************************
' 模拟幻灯片播放脚本程序
' 夜雨休闲 by 2003-11
'***************************************************
dim filelist,filelistarr
filelist = "001.jpg,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg,009.jpg,010.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
