特效广告代码

<HEAD>
</HEAD>
<BODY>
<OBJECT ID="DAControl" STYLE="width:468;height:60; background-color:black"
CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">
</OBJECT>
<SCRIPT LANGUAGE="JScript">
// Note: for this example place all media in the same folder as the new transform html page.
// path to media folder, for this example a null string
mediaBase = "";

// path to media folder, for this example a null string
geoBase = mediaBase + "";

// path to image folder, for this example a null string
imageBase = mediaBase + "";

m = DAControl.MeterLibrary;

swGeo = m.ModifiableBehavior(m.EmptyGeometry);
swImg = m.ModifiableBehavior(m.EmptyImage);

rawImg1 = m.ImportImage("http://homepage.6to23.com/tantom/banners/51js_1.gif");
rawImg2 = m.ImportImage("http://homepage.6to23.com/tantom/banners/v2.gif");

xf =new ActiveXObject("DXImageTransform.Microsoft.Wipe");
holdTime1 = m.DANumber(0).Duration(2);
holdTime2 = m.DANumber(1).Duration(2);
forward = m.Interpolate(0, 1, 3);
back = m.Interpolate(1, 0, 3);
evaluator = m.Sequence(holdTime1, m.Sequence(forward, m.Sequence(holdTime2, back))).RepeatForever();

result = m.ApplyDXTransform(xf, new Array(rawImg1, rawImg2), evaluator);
realImg = result.OutputBvr;

swImg.SwitchTo(realImg);
DAControl.Image = swImg;
DAControl.Start();
</SCRIPT>
</BODY>
</HTML>