用php实现广告轮播

有帐号的使用者才能上传图片，可避免刽客 (cracker) 等将不雅或不适当的广告上传。例中有关资料库的设定和 5.4 留言版的设定相同。


< html >
< head >
< ?php
// adadd.php
if (($banner=="") and ($url=="")) {
? >
< title >新增广告< /title >
< /head >
< body >
加权值数字愈大，图片出现的机率就愈高，内定值为 1。
< FORM ENCTYPE="multipart/form-data" ACTION="adadd.php" METHOD=POST >
< table border=0 >
< tr >< td align=right >广告 Banner: < /td >< td >< input name=banner TYPE="file" >< /td >< /tr >
< tr >< td align=right >广告网址 URL: < /td >< td >< input name=url type=text size=30 >< /td >< /tr >
< tr >< td align=right >辅助字串 ALT: < /td >< td >< input name=alt type=text size=30 >< /td >< /tr >
< tr >< td align=right >广告说明: < /td >< td >< input name=descript type=text size=30 >< /td >< /tr >
< tr >< td align=right >显示加权: < /td >< td >< input name=priority type=text size=5 value=1 >< /td >< /tr >
< tr >< td colspan=2 align=right >< input type="submit" VALUE="确定" >< /td >< /tr >
< /table >
< /FORM >
< ?
} else {
if (file_exists("/home/htdocs/ad/".$banner_name)) {
CommonHeader("档案 ".$banner_name." 已存在");
echo "< p >< br >< br >广告档案已经存在\n< p >< br >< br >< /body >< /html >";
exit;
};

copy($banner,"/home1/biglobe3/ad/".$banner_name);

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="insert into ad(url, banner, alt, descript, priority) values(''$url'', ''$banner_name'', ''$alt'', ''$descript'', $priority)";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
ora_close($cursor);
ora_logoff($handle);

echo "< title >广告新增完成< /title >";
echo "< /head >";
echo "< body >";
echo "< a href=".$url." >< img src=/ad/".$banner_name." alt=\"".$alt."\" border=0 >< /a >< p >";
echo "< ul type=disc >";
echo "< li >广告网址: ".$url;
echo "< li >辅助字串: ".$alt;
echo "< li >广告说明: ".$descript;
echo "< li >显示加权: ".$