一种特殊效果的图片滚动代码[网页特效]

<html>

<head>

<title>网页教学网图片擦洗幻灯片特效演示</title>

</head>

<tr>

var i=0,pictures=new Array();

pictures[i++]="/img/200406301.jpg"

pictures[i++]="/img/200406302.jpg"

pictures[i++]="/img/200406303.jpg"

pictures[i++]="/img/200406304.jpg"

pictures[i++]="/img/200406305.jpg"//可增加图片

var picturewidth=180

var pictureheight=144//图片宽度和高度设置

var delay=3

</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");

whatTransformation.GradientSize = 1.0;

whatTransformation.WipeStyle = 0;

var myArr=new Array(),myArr2=new Array();

var len=Math.floor(pictures.length/2)

for(var i=0;i<len;i++){

myArr[i]=m.ImportImage(pictures[2*i])

myArr2[i]=m.ImportImage(pictures[2*i+1])

}

myArr[i]=m.ImportImage(pictures[2*i])

myArr=m.Array(myArr)

myArr2=m.Array(myArr2)

Index = m.Interpolate(0.5,len+0.5,len*2*delay).RepeatForever();

Index2 = m.Interpolate(0,len,len*2*delay).RepeatForever();

var whatPictures=new Array();

whatPictures[0] = myArr.NthAnim(Index);

whatPictures[1] = myArr2.NthAnim(Index2);

forward = m.Interpolate(0, 1, delay);

back = m.Interpolate(1, 0, delay);

whatMovement = m.Sequence(forward, back).RepeatForever();

theResult = m.ApplyDXTransform( whatTransformation, whatPictures, whatMovement );

DAControl_Wipe.Image = theResult.OutputBvr;

DAControl_Wipe.Start();

}//more javascript from http://www.knowsky.com

</SCRIPT>

<tr>

</table>

</center>

</body>

</html>