这段程序只能循环显示两幅图,请高手帮忙改成可以显示多幅图的,谢谢。
<SCRIPT>
// the name of your first picture-file
var picture1="http://wsxwt.y365.com/001s.jpg"
// the name of your second picture-file
var picture2="http://wsxwt.y365.com/003s.jpg"
// the width and height of your pictures (pixels)
var picturewidth=170
var pictureheight=100
</SCRIPT>
<SCRIPT>
if (document.all) {
document.write('<OBJECT ID="DAControl_Wipe" ')
document.write('STYLE="width:'+picturewidth+';height:'+pictureheight+'"')
document.write('CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">')
document.write('</OBJECT>')
m = DAControl_Wipe.MeterLibrary;
whatTransformation = new ActiveXObject("DXImageTransform.Microsoft.Wipe");
whatPictures = new Array();
whatPictures[0] = m.ImportImage(picture1);
whatPictures[1] = m.ImportImage(picture2);
forward = m.Interpolate(0,1, 8);
back = m.Interpolate(1, 0, 5);
whatMovement = m.Sequence(forward, back).RepeatForever();
whatTransformation.GradientSize = 1.0;
whatTransformation.WipeStyle = 0;
theResult = m.ApplyDXTransform( whatTransformation, whatPictures, whatMovement );
DAControl_Wipe.Image = theResult.OutputBvr;
DAControl_Wipe.Start();
}
</SCRIPT>