扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:E路 来源:E路 2007年9月15日
关键字: 软件
CREATE TABLE ad (
url varchar2(1024) not null,
banner varchar2(1024) not null,
alt varchar2(255) null,
descript varchar2(255) null,
priority number(4) not null default 1
);
序号 栏位 名称 资料形态 资料长度 栏位说明
0 广告网址 url varchar2 1024
1 图片路径 banner varchar2 1024
2 字串显示 alt varchar2 255
3 广告说明 descript varchar2 255
4 显示加权 priority number 4 1 为内定值,0 表停用
值得一提的是在这加入了加权的功能,若一个广告要提升曝光率,则可以将显示加权的栏位数字加大,例如 5,它的出现机率就会比只设为 1 的高五倍。
< ?php
// ad.php
putenv("ORACLE_SID=WWW");
putenv("NLS_LANG=american_taiwan.zht16big5");
putenv("ORACLE_HOME=/home/oracle/product/7.3.2");
putenv("LD_LIBRARY_PATH=/home/oracle/product/7.3.2/lib");
putenv("ORA_NLS=/home/oracle/product/7.3.2/ocommon/nls/admin/data");
putenv("ORA_NLS32=/home/oracle/product/7.3.2/ocommon/nls/admin/data");
$handle=ora_logon("user38@WWW","iam3849") or die;
$cursor=ora_open($handle);
ora_commitoff($handle);
$query="SELECT url, banner, alt, priority FROM ad where priority > 0";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
$i=$pricount=0;
while(ora_fetch($cursor)) {
$ad[$i][0] = ora_getcolumn($cursor,0);
$ad[$i][1] = ora_getcolumn($cursor,1);
$ad[$i][2] = ora_getcolumn($cursor,2);
$ad[$i][3] = ora_getcolumn($cursor,3);
$pricount += $ad[$i][3];
$i++;
};
ora_close($cursor);
ora_logoff($handle);
srand((double)microtime()*1000000);
$pri = rand(1,$pricount);
$pricount=0;
for($i=0; $i< count($ad); $i++) {
$pricount += $ad[$i][3];
if ($pri < = $pricount) {
$ad1[]="< a href=".$ad[$i][0]." target=new >< img src=/ad/".$ad[$i][1]." width=468 height=60 border=0 alt=\"".$ad[$i][2]."\" >< /a >";
}
}
echo $ad1[0];
?>
上面的程式为公用的广告显示程式,其中的 $pricount 变数为所有广告 priority 加起来的和。程式先将所有的广告资讯读到阵列变数 $ad 中,随即关上资料库。再依时间取乱数种子,之后再从 1 到 $pricount 间随机取一个数字。
网页中要用广告程式,只要在需要广告的地方加上 < ? include("ad.php"); ? > 就可以了,当然 Include 的路径 (在 httpd.conf 中) 要先设好才行。
上面的程式还有改进空间,可以加入广告的 Click Log 功能,或是显示的 Log 功能,改动显示加权的程式....等等,就不做范例了,毕竟在这儿是要介绍 PHP 的实际应用及程式开发,而不是套件开发。真的需要现成的广告套件,不妨到 http://www.phpwizard.net/phpAds,这是一套用 PHP 开发出来的广告程式。
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。