Linux中国 Linux中国门户站!
设为主页 设为主页
收藏本站 收藏本站
 
当前位置 :首页 ->编程语言 ->ASP ->正文

动态显示图片的函数(显示广告条) 

来源:Linuxdby.com 作者:Webmaster 时间:2007-06-01 点击: [收藏] [投稿]
function ShowAd(){
  var Ad_Img=new Array(10);
  var Ad_Link=new Array(10);
  var Ad_Showtime=new Array(10);
  var Totle_Showtim=0;
  
  //投放广告的图片路径
  Ad_Img[0]="/img/banner/01.jpg";
  Ad_Img[1]="/img/banner/02.gif";
  Ad_Img[2]="/img/banner/03.gif";
  Ad_Img[3]="/img/banner/04.gif";
  Ad_Img[4]="/img/banner/05.gif";
  Ad_Img[5]="/img/banner/06.gif";
  Ad_Img[6]="/img/banner/07.gif";
  Ad_Img[7]="/img/banner/08.gif";
  Ad_Img[8]="/img/banner/09.gif";
  Ad_Img[9]="/img/banner/10.gif";
  
  //投放广告的链接名称
  Ad_Link[0]="#";
  Ad_Link[1]="#";
  Ad_Link[2]="#";
  Ad_Link[3]="#";
  Ad_Link[4]="#";
  Ad_Link[5]="#";
  Ad_Link[6]="#";
  Ad_Link[7]="#";
  Ad_Link[8]="#";
  Ad_Link[9]="#";
  
  //投放广告的出现概率,数值越大可能性越大,必须大于等于0
  Ad_Showtime[0]=0;
  Ad_Showtime[1]=1;
  Ad_Showtime[2]=2;
  Ad_Showtime[3]=3;
  Ad_Showtime[4]=4;
  Ad_Showtime[5]=5;
  Ad_Showtime[6]=6;
  Ad_Showtime[7]=7;
  Ad_Showtime[8]=8;
  Ad_Showtime[9]=9;

  var i;
  
  for(i=0;i<10;i++){
    Totle_Showtim+=Ad_Showtime[i];
  }

  for(i=0;i<10;i++){
    if(i!=0){
      Ad_Showtime[i]+=Ad_Showtime[i-1];
    }
  }

  for(i=0;i<10;i++){
      Ad_Showtime[i]/=Totle_Showtim
  }

  var Display_Ad;
  var rnd;
  rnd=Math.random();
  
  if(rnd<=Ad_Showtime[0]){
    Display_Ad=0;
  }
  else if(rnd<=Ad_Showtime[1]){
    Display_Ad=1;
  }
  else if(rnd<=Ad_Showtime[2]){
    Display_Ad=2;
  }
  else if(rnd<=Ad_Showtime[3]){
    Display_Ad=3;
  }
  else if(rnd<=Ad_Showtime[4]){
    Display_Ad=4;
  }
  else if(rnd<=Ad_Showtime[5]){
    Display_Ad=5;
  }
  else if(rnd<=Ad_Showtime[7]){
    Display_Ad=6;
  }
  else if(rnd<=Ad_Showtime[7]){
    Display_Ad=7;
  }
  else if(rnd<=Ad_Showtime[8]){
    Display_Ad=8;
  }
  else {
    Display_Ad=9;
  }

writeHTML="<a href="+Ad_Link[Display_Ad]+"><img src="+Ad_Img[Display_Ad]+" border=0></a>";
document.write (writeHTML);
}



 如果您对本文有任何疑问或者建议,请到讨论区发表您的意见: >> 论坛入口 <<



上一篇:基于ACCESS数据库的纯asp论坛制作心得    下一篇:使用asp实现支持附件的邮件系统(一) 

文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论
更多相关文章
Power by linux-cn.com 粤ICP备05006655号