以下即为删除留言的程式。
//---------------------------
// 留言删除程式 erase.php
// Author: Wilson Peng
// Copyright (C) 2000
//---------------------------
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="UPDATE guestbook set flag='0' where serial='".$QUERY_STRING."'";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
ora_close($cursor);
ora_logoff($handle);
Header("Location: ./index.php");
?>
其实这个程式很单纯,只要打开 Oracle 资料库,将欲删除的序号那笔资料的 flag 栏位设成 0 就可以了,不用将资料真的从资料库上移除。
--------------------------------------------------------------------意见信箱 --------------------------------------------------------------------- 当使用者在参观网页时,有时想 Email 给 Webmaster 但是再执行 Email 程式总是不方使,使用者在按下 mailto:abc@abc.abc.tw 还要花段时间打开自己这儿的 Outlook 岂不麻烦。这时,若是 Homepage 能提供写信的功能就太酷了。同时意见信箱还是以提醒或者要求使用者一定要填入哪些资料,这对资料仓储而言,也是了解客户的最好方法。
整个意见信箱其实就像 Outlook 或者其它电子邮件软体,开启寄发新邮件的功能,不同的地方在于使用 Outlook 时,寄件人是固定的,而要填上收件人的地址;而网站上的意见信箱,收件人几乎都是 Webmaster,反而是要填上寄件人的电子邮件地址。当然另一个不同之处是 Outlook 处理寄信的动作;而意见信箱是由 Web 伺服器处理使用者发送的信件。
在更进阶的设计后,甚至可以变成 Web Mail,像 HotMail 般,只要用浏览器就可以在任何地方用任何电脑收发信件。
当然,也可以做进阶的设计,将使用者的意见储放在资料库中,留待日后整理成更有用的资料。不过这就不是这节要讨论的部份了。
在 UNIX 的系统中,大部份和电子邮件有关的问题都和 sendmail 有关,除非系统管理员较偏执,才会用其它的系统。因此,意见信箱的设计开发,也是使用 sendmail 来达成所需要的功能。而 WindowsNT 系统中,由于没有 sendmail 程式,需要另行符费购买,或使用其它的邮件派送软体,因此本节程式无法在 WindowsNT 系统执行。
程式的流程如下
送出填写意见的表格到使用者的浏览器上。
使用者填好后送出资料到伺服器。
伺服器将使用者填的资料整理后,存入档案。
利用 UNIX 的管道指令及 sendmail 程式将意见送给系统管理人员。
伺服器通知使用者意见已送出。
以下就是完整的范例程式
意见信箱
$mailto="yourname@hahaha.com.tw";
if (($topic!="") and ($Email!="") and ($body!="")) {
$tmpfilename = tempnam("/tmp", "dm");
$fp = fopen($tmpfilename, "w");
fwrite($fp, "From: ".$Email."\n");
fwrite($fp, "Subject: ".$topic." <访客来信>\n\n");
fwrite($fp, $body."\n\n");
fwrite($fp, "送信人:".$sender."\n");
fwrite($fp, "发信IP:".$REMOTE_ADDR."\n");
fclose($fp);
$execstr="cat ".$tmpfilename." | /usr/lib/sendmail ".$mailto;
exec($execstr);
$execstr="echo $sender $REMOTE_HOST >> /var/log/mail.log";
exec($execstr);
echo "信件已送出!!本站工作人员尽快处理您的问题 ";
} else {
?>
}
?>
程式在 PHP 处理剖析时,先判断使用者是否填入资料。若没有资料则送出意见表单给使用者,若有资料则表示使用者已输入相关的资料,则进行处理。处理的原则是先将使用者填写的资料写入暂存档案中,但为了防止多使用者同时填写意见时,会造成档案被覆盖,因此需要每次都有不同的暂存档,这个问题可以使用 tempnam() 函式来解决,用来建立独一无二的临时档。 在档名的问题处理完后,利用 PHP 提供的档案处理功能,将使用者填写的资料写入方才建立的档案中。将档案关闭就初步完成。即使资料没有邮寄出去,系统仍能保存意见档案。值得注意的是,若存放在 /tmp 中,有些 UNIX 的系统 (如 SUN Solaris) 会在重新启动系统时遗失这些资料,而有些则不会 (如 Slackware Linux),这方面可能要先规划好,要保存的话需要存在不会被清掉的目录下。UNIX 中最强的功能就是管道,可以利用管道来处理寄信的动作,如下cat tmpfilename | /usr/lib/sendmail wilson@biglobe.net.tw这个指令的意思为将档案送给管道彼端的 sendmail 程式,而 sendmail 将该档案寄给 wilson@biglobe.net.tw。因此可利用本管道指令将意见寄给 Webmaster 或是客服部门的人员。若要寄给多人,可利用 mailing list 或是多用几次寄信的管道指令。在 PHP 程式中要使用 UNIX 的程式或者外部指令,可以使用 exec() 函式来做。寄完信后,通知使用者已经在处理了,就完成了意见处理的初步工作。当然之后要如何处理,就不是 PHP 书中所能讨论的。当然执行寄信的方式不只一种,可以利用 mail() 函式来寄信,亦可利用 UNIX 的网路 socket 来做,所谓戏法人人会变,巧妙各有不同。--------------------------------------------------------------------- 广告轮播-------------------------------------------------------------网路广告,变成了 Internet 上的热门学问。而 468x60 更变成了广告人员绞尽脑汁的尺寸。在处理广告时,若能直接使用浏览器将广告的 468x60 图档送到处理广告的伺服器中,相信是件很舒服的事,不用再开 FTP 程式,搞大半天只为了 upload。这个问题,是所有 Web CGI 程式的痛,包括 ASP、Prel....等等,都需要再经过系统元件的增加才能达成。号称最强的 Web CGI 程式: PHP,在这方面的表现没有令人失望,甚至傲视其它的 CGI 工具。File Upload 功能在 RFC 1867 文件有有详细的说明,是利用特殊的文件格式 (content-type) multipart/form-data。值得注意的是浏览器一定要用 Netscape 3.0 以上或 MS Internet Explorer 4.0 以上的版本才能将档案上传。
先看下面的 HTML 原始码
您的大名:
档案名称:
在 form 的标签中,要加入 enctype="multipart/form-data" 的字串,表示使用者输入的资料上有档案上传,同时 method 一定要用 POST 而不能用 GET。在上面的码中,若使用者姓名填入 Wilson Peng,并选 c:\myphoto.gif 的档案,在使用者按下送出键后,浏览器则传送出下面的 POST 资料。
Content-type: multipart/form-data, boundary=AaB03x
--AaB03x
content-disposition: form-data; name="user"
Wilson Peng
--AaB03x
content-disposition: form-data; name="myfile"
Content-type: multipart/mixed, boundary=BbC04y
--BbC04y
Content-disposition: attachment; filename="myphoto.gif"
Content-type: image/gif
Content-Transfer-Encoding: binary
...myphoto.gif 内容略...
--BbC04y--
--AaB03x--
看到上面的资料中,boundary=AaB03x 即为分开不同栏位资料的讯息,其中的 AaB03x 编码方法,视浏览器的版本不同而异,通常是浏览器杂凑产生的。之后就可以看到用 --AaB03x 来隔开不同的栏位。以上面为例,处理 form 的 action 程式 next.php,会主动产生四个变数,见下表变数名 说明
$myfile 即上传的档案内容
$myfile_name 上传档案在使用者端的名称
$myfile_size 上传档案的大小
$myfile_type 上传档案的格式,如 "image/gif"
在 next.php 程式要做的最重要动作,就是好好的使用这四个变数,否则程式一结束,使用者上传的档案就消失了。因此,要先将 $myfile 复制到存放广告图的目录中
copy($banner,"/home1/biglobe3/ad/".$banner_name);
这行程式就是将档案存在 /home/htdocs/ad 的目录中,就上面的例子而言,就将档案存到 /home/htdocs/ad/myphoto.gif。重要的是,存放的目录不能是 Web Server 无法读到的目录,而应放在网站的 Homepage 所在目录中,才可以在网路上看到。
或许程式要更细部的处理,例如比对取得的档案大小与系统回报的是否相同....等等,就可以用 $myfile_size 变数了。
若在 form 中设定 input file 的名称改掉,则在 Upload 的变数也一起改,如
则变数就改成 $upfile、$upfile_name、$upfile_size、与 $upfile_type。
因此,下面的例子就利用 File Upload 及 Oracle 7.x 后端资料库,将档案放在 Web Homepage 目录中,相关资讯则存在 Oracle 中。当然,加上使用者认证,让有帐号的使用者才能上传图片,可避免刽客 (cracker) 等将不雅或不适当的广告上传。例中有关资料库的设定和 5.4 留言版的设定相同。
// adadd.php
if (($banner=="") and ($url=="")) {
?>
新增广告
加权值数字愈大,图片出现的机率就愈高,内定值为 1。
} else {
if (file_exists("/home/htdocs/ad/".$banner_name)) {
CommonHeader("档案 ".$banner_name." 已存在");
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 "广告新增完成 ";
echo "";
echo "";
echo "";
echo "广告网址: ".$url;
echo "辅助字串: ".$alt;
echo "广告说明: ".$descript;
echo "显示加权: ".$priority;
echo "";
}
?>