以前可以显示,现在在很多的机器上都不能显示 提示有对象为空!

以前可以显示,现在在很多的机器上都不能显示  
 
有的机器可以!  
 
提示有对象为空!  
 
 
<script>    
var  i=0,pictures=new  Array();//设置图片数组    
var  picbase="";    
pictures[i++]="image/intermec.jpg"    
pictures[i++]="image/siemens_marke.jpg"    
pictures[i++]="image/microscan.jpg"    
pictures[i++]="image/Redi.jpg"    
pictures[i++]="image/codesoft.jpg"  
pictures[i++]="image/bardender.jpg"  
pictures[i++]="image/Newstech.GIF"  
pictures[i++]="image/intermec.jpg"  
 
var  picturewidth=160//图片宽度    
var  pictureheight=45//图片高度    
var  delay=4//延迟时间    
       </script>  
           <script>    
if  (document.all)  {    
document.write('<OBJECT  WIDTH="165"  HEIGHT="50"  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  =  0.5;//设置渐变度    
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(picbase+pictures[2*i])    
myArr2[i]=m.ImportImage(picbase+pictures[2*i+1])    
}    
if(pictures[2*i])    
myArr[i]=m.ImportImage(picbase+pictures[2*i])    
else    
myArr[i]=m.ImportImage(picbase+pictures[0])  ;    
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();//开始    
}    
           </script>  

 

升级到IE最新的补丁,IE为了安全起见给禁用了。  
 
卸载IE补丁KB918899，KB922760又可以了。  
 
new  ActiveXObject(  "DXImageTransform.Microsoft.Wipe  ");