当前位置: 首页 > 图文教程 > 网络编程 > ASP > 动态显示图片的函数(显示广告条)

ASP
ASP页面随机添加字符实现防复制的代码
ASP中应用事务处理技巧
asp下比较全面的获取IP地址的代码
ASP实现缓存类无错版
asp下实现批量插入数据的方法
asp下用ADODB.Stream代替FSO读取文本文件
asp之基于adodb.stream的文件操作类
自己写的文件操作的function和Sub vb.net dll
kesion科讯V4.0管理员Key工具
asp 获取access系统表,查询等操作代码
asp之字符串函数示例
asp之日期和时间函数示例
ASP 关于动态数据显示页面得锚点
Asp无组件上传进度条解决方案
ASP控制每页打印行数
用ASP实现分级权限控制
ASP在服务器自动解压RAR文件
用ASP实现远程将文件批量改名的代码
在Asp程序中取得表单所有内容的代码
使用ASP实现网站的“目录树”管理的代码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 133 ::
收藏到网摘: n/a

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="/img/banner/02.gif";
Ad_Img="/img/banner/03.gif";
Ad_Img="/img/banner/04.gif";
Ad_Img="/img/banner/05.gif";
Ad_Img="/img/banner/06.gif";
Ad_Img="/img/banner/07.gif";
Ad_Img="/img/banner/08.gif";
Ad_Img="/img/banner/09.gif";
Ad_Img="/img/banner/10.gif";

//投放广告的链接名称
Ad_Link[0]="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";
Ad_Link="#";

//投放广告的出现概率,数值越大可能性越大,必须大于等于0
Ad_Showtime[0]=0;
Ad_Showtime=1;
Ad_Showtime=2;
Ad_Showtime=3;
Ad_Showtime=4;
Ad_Showtime=5;
Ad_Showtime=6;
Ad_Showtime=7;
Ad_Showtime=8;
Ad_Showtime=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){
Display_Ad=1;
}
else if(rnd<=Ad_Showtime){
Display_Ad=2;
}
else if(rnd<=Ad_Showtime){
Display_Ad=3;
}
else if(rnd<=Ad_Showtime){
Display_Ad=4;
}
else if(rnd<=Ad_Showtime){
Display_Ad=5;
}
else if(rnd<=Ad_Showtime){
Display_Ad=6;
}
else if(rnd<=Ad_Showtime){
Display_Ad=7;
}
else if(rnd<=Ad_Showtime){
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);
}