动网论坛,站长建站首选,国内使用量最多的论坛软件 动网论坛官方技术讨论区 站长工具 申请属于您自己的免费论坛
首页 | 新闻资讯 | 网站运营 | 网络编程 | 数据库 | 服务器 | 网页设计 | 图像媒体 | 网络应用 | 搜索优化 | 资源下载 | 动网主机 | DVBOX
    本站内  互联网 ASP论坛  ASP.Net论坛  PHP论坛
   Asp → 阅读文章

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

作者:junjunsoft 来源:开发者俱乐部 
阅读 7488 人次 , 2002-1-30 

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

 
 收藏本文  打印本文  论坛讨论  关闭窗口
· 上一篇:C#,深入浅出全接触(一)
· 下一篇:发送带附件的HTML格式邮件例程可以带附件
· IMail基础教程(二) 安装IMail
· ASP提速技巧五则
· 在VB组件中使用串缓冲 - 3
· 将汉字转换成汉语拼音的一段代码
· ASP内置对象 Request对象 详解


关于本站 | 联系我们 | 业务合作 | 客户案例 | 诚聘英才 | 广告合作 | 收藏本站
海口动网先锋网络科技有限公司版权所有
Copyright © 2000 - 2006 Cndw.Com
中华人民共和国电信与信息服务业务经营许可证编号 琼 ICP 020077