带有关闭按纽的对联广告 -- Asp学习资料-- 编程爱好者博客

像新浪网站一打开后，左右两侧出现各一个flash广告
index.html
<html>
<head>
<title>带有关闭的对联广告代码</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

<script language=JavaScript src="ad-02.js"></script>

</body>
</html>

ad-02.js
var delta=0.8;
var collection;
var closeB=false;
function floaters() {
 this.items = [];
 this.addItem = function(id,x,y,content)
 {
 document.write('<DIV id='+id+' style="Z-INDEX: 10; POSITION: absolute; width:80px; height:60px;left:'+(typeof(x)=='string'?eval(x):x)+';top:'+(typeof(y)=='string'?eval(y):y)+'">'+content+'</DIV>');

 var newItem = {};
 newItem.object = document.getElementById(id);
 newItem.x = x;
 newItem.y = y;

this.items[this.items.length] = newItem;
 }
 this.play = function()
 {
 collection = this.items
 setInterval('play()',30);
 }
 }
 function play()
 {
 if(screen.width<=800 || closeB)
 {
 for(var i=0;i<collection.length;i++)
 {
 collection[i].object.style.display = 'none';
 }
 return;
 }
 for(var i=0;i<collection.length;i++)
 {
 var followObj = collection[i].object;
 var followObj_x = (typeof(collection[i].x)=='string'?eval(collection[i].x):collection[i].x);
 var followObj_y = (typeof(collection[i].y)=='string'?eval(collection[i].y):collection[i].y);

    if(followObj.offsetLeft!=(document.body.scrollLeft+followObj_x)) {
     var dx=(document.body.scrollLeft+followObj_x-followObj.offsetLeft)*delta;
     dx=(dx>0?1:-1)*Math.ceil(Math.abs(dx));
     followObj.style.left=followObj.offsetLeft+dx;
     }

    if(followObj.offsetTop!=(document.body.scrollTop+followObj_y)) {
     var dy=(document.body.scrollTop+followObj_y-followObj.offsetTop)*delta;
     dy=(dy>0?1:-1)*Math.ceil(Math.abs(dy));
     followObj.style.top=followObj.offsetTop+dy;
     }
    followObj.style.display = '';
   }
  }
  function closeBanner()
  {
   closeB=true;
   return;
  }

var theFloaters = new floaters();
theFloaters.addItem('followDiv1','document.body.clientWidth-106',80,'<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="97" height="233"><param name="movie" value="images/ad-02.swf"><param name="quality" value="high"><embed src="images/ad-02.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="97" height="233"></embed></object> <img src=images/close.gif onClick="closeBanner();">');
theFloaters.addItem('followDiv2',6,80,'<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="97" height="233"><param name="movie" value="images/ad-02.swf"><param name="quality" value="high"><embed src="images/ad-02.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="97" height="233"></embed></object> <img src=images/close.gif onClick="closeBanner();">');
theFloaters.play();

关闭按纽图片

swf文件:http://upload.programfan.com/upfile/20070718142363.rar

博客介绍

正文

带有关闭按纽的对联广告2007-07-18 14:22:00

评论