程序分成四部份
1.. 初始化
2.. 取数据库中的数据
3.. 计算要显示的页数
4.. 送出资料
这个程序在 biglobe 上有实作,由于这是一间 isp 公司,因此在设定时限定连结或专线的会员才能看到,进入前要输入帐号及密码。为了保护留言者的隐私,留言以马赛克处理。
$webmasteriparray = array( $webmasterip=false; |
显示程序和留言程序的初始化部份都差不多,但显示程序多加了一个功能,设定webmaster 的电脑。将 webmaster 使用的 ip address 加在 $webmasteriparray 阵列变数中,可以在显示留言时,显示删除留言的字串,方便处理不当的留言。
$handle=ora_logon(“user38@www”,”iam3849″) or die; $query=”select serial, ref, id, alias, ip, to_char(msgdate, |
在初始化后,就可以连上 oracle 资料库,将留言的资料取出放在 $guestbook阵列中。取得资料后,就赶紧将资料库关闭,再来处理 $guestbook 阵列的资料了。
if ($query_string!=””) { $page = $query_string; } else { $page = 0; } |
这一段程序判断是要显示第几页,内定值是显示第一页。要显示第三页的页面,需要使用 http://xxxxxx/index.php?2 的格式,也就是传入 $query_string,余类推。之后的数行程序,都是用来处理显示的页数及笔数的资料。
$msgnum=20; // 每页二十笔
要改变每页的显示笔数,可以改 $msgnum 变数。程序的内定值为 20 笔。
for ($i=$start; $i<$end; $i++) { echo “<p><hr><p>\n”; echo “<p>\n<font color=e06060>”.$guestbook[$i][5].”</font> “; if ($guestbook[$i][6]!=””) echo “<a href=mailto:”.$guestbook[$i][6].”>”; echo “<strong>”.$guestbook[$i][3].”</strong>”; if ($guestbook[$i][6]!=””) echo “</a>”; echo “<br>\n”; if ($webmasterip) echo “<a href=erase.php?”.$guestbook[$i][0].”>删除 本篇!!</a> (“.$guestbook[$i][2].”) “; echo “<font size=-1 color=c0c0c0>from: “.$guestbook[$i][4].”</font><p>\n”; $msg=base64_decode($guestbook[$i][7]); $msg=nl2br($msg); echo $msg; echo “<p>\n”; } |
这一段程序就是真正显示留言资料给使用者看的程序了。利用 for 回圈,将$guestbook 阵列的资料按照设定的页数取出,显示给使用者看。值得一提的是,若看留言的机器 ip 为 $webmasteriparray 变数阵列中的一个元素的话,则会在留言者的匿称后显示 “删除本篇!!” 的字串,供管理人员删除不当留言。
以下即为删除留言的程序。
<?php 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; $query=”update guestbook set flag=0 where ora_close($cursor); header(“location: ./index.php”); |
其实这个程序很单纯,只要打开 oracle 资料库,将欲删除的序号那笔资料的flag 栏位设成 0 就可以了,不用将资料真的从资料库上移除。