首页 | 编程语言 | 网站建设 | 游戏天堂 | 冲浪宝典 | 网络安全 | 操作系统 | 软件时空 | 硬件指南 | 病毒相关 | IT 认证
软讯网络 > 网站建设 > ASP > 动态显示图片的函数(显示广告条)
【标  题】:动态显示图片的函数(显示广告条)
【关键字】:动态,函数,图片,广告
【来  源】:网络

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

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);
}

发送带附件的HTML格式邮件例程可以带附件:【上一篇】
安装framework以后出现不能显示aspx页面:【下一篇】
【相关文章】
没有相关文章
【随机文章】
  • 什么时候应该使用Web Service
  • 一个典型局域网安装配置实例(转载)
  • Word2003新鲜体验四:支持XML语言
  • Swing and SWT: A Tale of Two Java GUI Libraries
  • 也许是变色龙
  • 原来国家的名字如此浪漫[转载]
  • Director 8.5 简单基础实例教程(7)
  • vim 加密
  • 管理感悟:沟通,沟通,再沟通
  • MSSQL内存模式(细节)不断补充
  • 【相关评论】
    没有相关评论
    【发表评论】
    姓名:
    邮件:
    随机码*
    评论*
          
    |  首 页  |  版权声明  |  联系我们   |  网站地图  |
    CopyRight © 2004-2007 软讯网络 All Rigths Reserved.