国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > PHP > 正文

隨機廣告顯示(PHP函數)

2024-05-04 23:01:08
字體:
來源:轉載
供稿:網友


<?php
#########隨機廣告顯示##########  
function myads(){
$dir="ads";   #設置存放記錄的目錄  
//$dir="ads";   #設置存放記錄的目錄  
$ads="$dir/ads.txt"; #設置廣告代碼文件
$log ="$dir/ads.log"; #設置ip記錄文件

$ads_lines=file($ads);
$lines=count($ads_lines);#文件總行數

####讀出廣告總數$ads_count和顯示次數到數組$display_array########
$ads_count=0;
$display_count=0;
for ($i=0;$i<$lines;$i++){
    if((!strcmp(substr($ads_lines[$i],0,7),"display"))){
        $ads_count+=1;
        $display_array[$ads_count]=substr($ads_lines[$i],8);
        $display_count+=$display_array[$ads_count];
        }
}
####決定隨機顯示序號$display_rand#####
srand((double)microtime()*1000000);
$display_rand = rand(1,$display_count);

###決定廣告序號$ads_num######
$pricount=0;
$ads_num=1;
for($i=1; $i<=$ads_count; $i++) {
  $pricount += $display_array[$i];
  if ($display_rand<=$pricount) {$ads_num=$i;break;}
}

#####播放廣告代碼#########
$num=0;
$flag=0;

for($i=0;$i<$lines;$i++){
    if((!strcmp(substr($ads_lines[$i],0,7),"display"))){$num++;}
    if(($num==$ads_num)and($flag==0)){$flag=1;continue;}
    if(($flag==1)and strcmp($ads_lines[$i][0],"#")){echo $ads_lines[$i];continue;}
    if(($flag==1)and(!(strcmp($ads_lines[$i][0],"#")))){break;}
}
####紀錄廣告顯示次數#########
$fp=fopen($log,"a");
fputs($fp,date( "y-m-d h:i:s " ).getenv("remote_addr")."==>".$ads_num."/n");
fclose($fp);
}
?>

廣告代碼文件ads.txt

########每個廣告代碼之間用'#'隔開,display為顯示加權數,越大顯示次數越多################
################################
display=10

<a >  
<img src="/uploadpic/2007-7/200772155611599.gif" alt="chance2mail,好禮物送給您!"> </a>
################################
display=10

<a target=_blank>
<img src="http://www.free868.com/~xinyi/ads/8848.gif" width="468" height="60" alt="歡迎到my8848網站購物" border="0"></a>


調用<?php myads();?>即可
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 东乡县| 江孜县| 宁化县| 桐柏县| 奉节县| 西乡县| 左贡县| 奇台县| 巴彦淖尔市| 长垣县| 文水县| 法库县| 广南县| 尚志市| 徐闻县| 名山县| 宜黄县| 四子王旗| 玉环县| 焦作市| 集贤县| 商城县| 江陵县| 龙山县| 孝昌县| 益阳市| 策勒县| 墨竹工卡县| 龙游县| 大洼县| 新绛县| 阿拉尔市| 渭源县| 盘锦市| 吉安市| 白山市| 安龙县| 成武县| 彰化市| 宽甸| 韶山市|