PHP网页编程之PHP 留言簿（带Oracle数据库分页的显示...
也得学会了PHP。然后再学，见异思迁是最不可取的，狗熊掰玉米就是这个道理，如果经常中途放弃，只能是一无所获，还浪费了N多的时间和经历，得不偿失，最重要的是，你会被别人瞧不起。oracle|分页|数据|数据库|显示 大部分的网站，城市思索到和利用者之间的互动关系。这时候，用留言版的功效，可以让利用者留下到此一游，或是一些和网站的互动讯息。在设计上，可以很复杂的只留下利用者的短篇留言，也能够设计到依性质分门别类很庞杂的 Web BBS 体系。固然，要若何打造一个属于本人网站的留言版，就全靠网站的性质和 Web 网站开辟人员的巧思了。
在这里引见的典范，是复杂的列示一切留言的内容。供利用者可以一次看到多笔留言的材料。体系的后端寄存留言是用 Oracle 7.x 版的材料库体系。典范中的材料库(database) 称号为 WWW，连线的利用者帐号为 user38、暗码为 iam3849。要直接利用本例，必需先履行上面的 SQL 指令，创立 guestbook 的材料表格。
CREATE TABLE guestbook (
serial varchar2(255) not null,
ref varchar2(255) null,
id char(8) not null,
alias varchar2(32) not null,
ip varchar2(1024) null,
msgdate date not null,
email varchar2(1024) null,
msg varchar2(2000) not null,
flag char(1) default 1,
primary key(serial)
);
下面的 SQL 各栏位申明及具体材料见下表
序号 栏位 称号 材料形状 材料长度 栏位申明 限制 Key
0 流水号 serial varchar2 255 NN PK
1 参照流水号 ref varchar2 255 暂保存。供回
覆留言功效用
2 帐号 id char 8 利用者帐号 NN
3 匿名 alias varchar2 32 显示的名字 NN
4 网址 ip varchar2 1024 上彀 IP
5 工夫 msgdate date NN
6 电子邮件 email varchar2 1024
7 留言内容 msg varchar2 2000 NN
8 显示旗标 flag char 1 0: 不显示
1: 显示 (内定)
在本节的留言版相干程式中，若到场了利用者认证功效，则可以在 guestbook材料表的帐号栏中留下利用者的认证帐号，便利 Webmaster 往后找寻不妥的发信者。在这儿先留下栏位，让需求的读者们练习了。
要利用本节的程式，起首要先装好 Oracle 7.x 版，并肯定 Web Server 真个SQL*net 可以顺遂连上 Oracle 材料库。以后还要在编译 PHP 时加
--with-oracle=/home/oracle/product/7.3.2 的选项，固然改成其它的途径也不妨，只需该途径真的是 Oracle 的途径便可。有关 Oracle 装设及利用上的细节请参考相干书本。
上面的程式是将利用者的留言新闻加到 guestbook 留言材料表中。若要设定利用者认证功效，可在程式刚入手下手时反省，发留言者就能够确认身份，而读取留言就不用身份反省。这类设定可以避免不妥讲话，却又不会让留言功效只要多数人利用。
<?php
file://---------------------------
// 新增留言程式 addmsg.php
// Author: Wilson Peng
// Copyright (C) 2000
file://---------------------------
//
// 可自行在这儿到场身份反省功效
//
if (($alias!="") and ($msg!="")) {
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);
$serial=md5(uniqid(rand()));
$ref="";
$id=$PHP_AUTH_USER;
$ip=$REMOTE_ADDR;
$msg=base64_encode($msg);
$flag="1";
$query="INSERT into guestbook(serial, ref, id, alias, ip,
msgdate, email, msg, flag) values('$serial', '$ref', '$id', '$alias', '$ip',
sysdate, '$email', '$msg', '$flag')";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
ora_close($cursor);
ora_logoff($handle);
Header("Location: ./index.php");
exit;
} else {
?>
<html>
<head>
<title>填写留言</title>
</head>
<body bgcolor=ffffff>
<form method=POST action="<? echo $PHP_SELF; ?>">
<table border=0 cellpadding=2 width=395>
<tr>
<td nowrap><font color=004080>代号大名</font></td>
<td width=20%><input type=text name=alias size=8></td>
<td nowrap><font color=004080>电子邮件</font></td>
<td width=50%><input type=text name=email size=18></td>
</tr>
<tr>
<td nowrapvalign=top><font color=004080>内容</font></td>
<td width=80% colspan=3><textarea rows=5 name=msg
cols=33></textarea></td>
</tr>
<tr>
<td width=100% colspan=4 align=center>
<input type=submit value="送出留言">
<input type=reset value="擦失落留言">
</td>
</tr>
</table>
</form>
</body>
</html>
<?php
}
?>
下面的程式在履行时，先反省变数 alias 和 msg 是不是有材料，若无材料则送出填写留言的表格到利用者端，供利用者填写留言。
若利用者填好留言，按下 "送出留言" 的按钮后，则履行程式的前半部分。
程式也许分红五部分
1.. 设定 Oracle 需求的情况变数
2.. 连上 Oracle 材料库
3.. 收拾整顿材料，送入 Oracle 中
4.. 停止与 Oracle 的连线
5.. 停止程式，显示最新的留言材料
在设定 Oracle 情况的部分，用 PHP 的函式 putenv()，可设定功课体系层的情况变数。要利用中文要记得到场上面这行
putenv("NLS_LANG=american_taiwan.zht16big5");
以后就利用 Oracle 函式库的功效: ora_logon() 等等。详见 Oracle 材料库函式库。使用这个函式库，可以很等闲的操作 Oracle 材料库。
再来就是收拾整顿材料，以便置入 Oracle 材料库中
$serial=md5(uniqid(rand()));
$ref="";
$id=$PHP_AUTH_USER;
$ip=$REMOTE_ADDR;
$msg=base64_encode($msg);
$flag="1";
$query="INSERT into guestbook(serial, ref, id, alias, ip, msgdate,
email, msg, flag) values('$serial', '$ref', '$id', '$alias', '$ip', sysdate,
'$email', '$msg', '$flag')";
$serial 变数为举世无双的字串，程式先乱数发生共同的字串，再用 md5 编码，将字串弄乱，构成相似杂凑处置后的有意义字串。因为字串长，又变得很乱，可避免利用者，特别是骇客或飞客使用序号来戳体系。
$ref 变数量前是有效的。$id 变数为利用者认证用，若在程式入手下手处有到场利用者认证的程式，则 $PHP_AUTH_USER 会酿成利用者的帐号，传入 $id 变数中。
至于利用者写的字串，为了避免材料库或处置时的庞杂性甘脆将它用 BASE64 编码。可让中文字的奇异字元一字消逝，固然这是锯箭法，不外对 Web 程式而言，履行疾速、修正便利才是最主要的，其实没有需要再华侈精神去向理这些中文的冲码成绩了。值得注重的是利用 BASE64 编码，会让字串收缩大约 1/3，若材料库的贮存空间无限，能够就不合适用这个办法了，话又说回来，如今硬碟廉价，随意就是十几 GB 以
上，应当不会思索材料库空间无限的成绩才对。
最初，将变数收拾整顿成 $query 字串，供材料库履行 SQL 指令利用就能够了。
ora_parse($cursor, $query) or die;
ora_exec($cursor);
ora_close($cursor);
ora_logoff($handle);
要履行 Oracle 的 SQL 指令前，要先经由 parse 的举措。若在后面加上 @ (如: @ora_prase();)，可以不让利用者看到毛病讯息。在履行 query 指令后，就能够封闭与 Oracle 之间的连线了。
Header("Location: ./index.php");
exit;
这二行让阅读重视导到 index.php。让利用者看到他的新留言，就完成了留言的举措。
以后来看看留言的内容显示程式。
<html>
<head>
<meta content="text/html; charset=gb2312"
http-equiv=Content-Type>
<title>留言版</title>
</head>
<body bgcolor=ffffff>
<?php
file://---------------------------
// 留言显示程式 index.php
// Author: Wilson Peng
// Copyright (C) 2000
file://---------------------------
$WebmasterIPArray =
ay(
"10.0.1.30", // 办理人员甲的机械 IP
"10.0.2.28" // 办理人员乙的机械 IP
);
$WebmasterIP=false;
for ($i=0; $i<Count($WebmasterIPArray); $i++) {
if ($REMOTE_ADDR == $WebmasterIPArray[$i]) $WebmasterIP=true;
}
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 serial, ref, id, alias, ip, TO_CHAR(msgdate, 'yyyy/mm/dd hh:mi:ss'), email, msg FROM guestbook where flag='1' order by msgdate desc";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
$i=0;
while(ora_fetch($cursor)) {
$guestbook[$i] = ora_getcolumn($cursor,0);
$guestbook[$i] = ora_getcolumn($cursor,1);
$guestbook[$i] = ora_getcolumn($cursor,2);
$guestbook[$i] = ora_getcolumn($cursor,3);
$gu
estbook[$i] = ora_getcolumn($cursor,4);
$guestbook[$i] = ora_getcolumn($cursor,5);
$guestbook[$i] = ora_getcolumn($cursor,6);
$guestbook[$i] = ora_getcolumn($cursor,7);
$i++;
}
ora_close($cursor);
ora_logoff($handle);
echo "<a href=addmsg.php>新增留言....</a><p> ";
if ($QUERY_STRING!="")
$page = $QUERY_STRING;
} else
$page = 0;
}
$i=count($guestbook);
$msgnum=20; // 每页二十笔
$start = $page * $msgnum;
$end = $start + $msgnum;
if ($end > $i) $end=$i;
$totalpage=$i/$msgnum;
$pagestr="";
if ($page>0) $pagestr=$pagestr."<a
href=index.php?".($page-1)."><上页</a> - ";
$pagestr=$pagestr."[第 ";
for ($i=0; $i<$totalpage; $i++)
if ($i!=$page)
$pagestr = $pagestr."<a href=index.php?$i>".($i+1)."</a> ";
} else
$pagestr = $pagestr.($i+1)." ";
}
}
$pagestr=$pagestr." 页] ";
if ($page<($totalpage-1)) $pagestr=$pagestr."- <a
href=index.php?".($page+1).">下页></a> ";
$pagestr="<div align=center>$pagestr</div>";
echo "<p>".$pagestr."<hr><p> ";
for ($i=$start; $i<$end; $i++)
echo "<p><hr><p> ";
echo "<p> <font color=e06060>".$guestbook[$i]."</font>
";
if ($guestbook[$i]!="") echo "<a
href=mailto:".$guestbook[$i].">";
echo "<strong>".$guestbook[$i]."</strong>";
if ($guestbook[$i]!="") echo "</a>";
echo "<br> ";
if ($WebmasterIP) echo "<a
href=erase.php?".$guestbook[$i].">删除本篇!!</a> (".$guestbook[$i].")
";
echo "<font size=-1 color=c0c0c0>from:
".$guestbook[$i]."</font><p> ";
$msg=base64_decode($guestbook[$i]);
$msg=nl2br($msg);
echo $msg;
echo "<p> ";
}
echo "<p><hr><p> ";
echo $pagestr;
?>
</body>
</html>
在显示留言的部分，思索到留言内容若良多，加上彀路慢的话，能够会让利用者在线路慢的时分拖累全部材料库，因而，尽快的连上材料库，获得需求的材料后，即刻封闭材料库，再渐渐送给利用者，应是最好的对策。
程式分红四部分
1.. 初始化
2.. 取材料库中的材料
3.. 盘算要显示的页数
4.. 送出材料
这个程式在 BIGLOBE 上有实作，因为这是一间 ISP 公司，因而在设准时限制拨
接或专线的会员才干看到，进入前要输出帐号及暗码。有乐趣者无妨买个 BIGLOBE 的
拨接帐号参考。为了回护留言者的隐私，留言以马赛克处置。
$WebmasterIPArray = array(
"10.0.1.30", // 办理人员甲的机械 IP
"10.0.2.28" // 办理人员乙的机械 IP
);
$WebmasterIP=false;
for ($i=0; $i<Count($WebmasterIPArray); $i++) {
if ($REMOTE_ADDR == $WebmasterIPArray[$i]) $WebmasterIP=true;
}
// 以后初始化 Oracle 程式略
显示程式和留言程式的初始化部分都差不多，但显示程式多加了一个功效，设定Webmaster 的电脑。将 Webmaster 利用的 IP Address 加在 $WebmasterIPArray 阵列变数中，可以在显示留言时，显示删除留言的字串，便利处置不妥的留言。
$handle=ora_logon("user38@WWW","iam3849") or die;
$cursor=ora_open($handle);
ora_commitoff($handle);
$query="SELECT serial, ref, id, alias, ip, TO_CHAR(msgdate,
'yyyy/mm/dd hh:mi:ss'), email, msg FROM guestbook where flag='1' order by
msgdate desc";
ora_parse($cursor, $query) or die;
ora_exec($cursor);
$i=0;
while(ora_fetch($cursor)) {
$guestbook[$i] = ora_getcolumn($cursor,0);
$guestbook[$i] = ora_getcolumn($cursor,1);
$guestbook[$i] = ora_getcolumn($cursor,2);
$guestbook[$i] = ora_getcolumn($cursor,3);
$guestbook[$i] = ora_getcolumn($cursor,4);
$guestbook[$i] = ora_getcolumn($cursor,5);
$guestbook[$i] = ora_getcolumn($cursor,6);
$guestbook[$i] = ora_getcolumn($cursor,7);
$i++;
}
ora_close($cursor);
ora_logoff($handle);
在初始化后，就能够连上 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> ";
echo "<p> <font color=e06060>".$guestbook[$i]."</font> ";
if ($guestbook[$i]!="") echo "<a
href=mailto:".$guestbook[$i].">";
echo "<strong>".$guestbook[$i]."</strong>";
if ($guestbook[$i]!="") echo "</a>";
echo "<br> ";
if ($WebmasterIP) echo "<a href=erase.php?".$guestbook[$i].">删除
本篇!!</a> (".$guestbook[$i].") ";
echo "<font size=-1 color=c0c0c0>from:
".$guestbook[$i]."</font><p> ";
$msg=base64_decode($guestbook[$i]);
$msg=nl2br($msg);
echo $msg;
echo "<p> ";
}
这一段程式就是真正显示留言材料给利用者看的程式了。使用 for 回圈，将$guestbook 阵列的材料依照设定的页数掏出，显示给利用者看。值得一提的是，若看留言的机械 IP 为 $WebmasterIPArray 变数阵列中的一个元素的话，则会在留言者的匿称后显示 "删除本篇!!" 的字串，供办理人员删除不妥留言。
以下即为删除留言的程式。
<?php
file://---------------------------
// 留言删除程式 erase.php
// Author: Wilson Peng
// Copyright (C) 2000
file://---------------------------
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 就能够了，不必将材料真的从材料库上移除。
在相册系统的开发上，因为采用的是团队分工合作方式，更让我明白了在一个团队之中，团队成员之间的交流沟通的重要性，如果没有很好的沟通交流，成员之间的任务没有分配好。 当然这种网站的会员费就几十块钱。 兴趣是最好的老师，百度是最好的词典。 开发工具也会慢慢的更专业，每个公司的可能不一样，但是zend studio是个大伙都会用的。 遇到出错的时候，我经常把错误信息直接复制到 google的搜索栏，一般情况都是能搜到结果的，不过有时候会搜出来一大片英文的出来，这时候就得过滤一下，吧中文的弄出来，挨着式方法。 建数据库表的时候，int型要输入长度的，其实是个摆设的输入几位都没影响的，只要大于4就行，囧。 其实也不算什么什么心得，在各位大侠算是小巫见大巫了吧，望大家不要见笑，若其中有错误的地方请各位大虾斧正。 php是动态网站开发的优秀语言，在学习的时候万万不能冒进。在系统的学习前，我认为不应该只是追求实现某种效果，因为即使你复制他人的代码调试成功，实现了你所期望的效果，你也不了解其中的原理。 要进行开发，搭建环境是首先需要做的事，windows下面我习惯把环境那个安装在C盘下面，因为我配的环境经常出现诡异事件，什么事都没做环境有的时候就不能用啦。 写的比较杂，因为我也是个新手，不当至于大家多多指正。 如果你已经到这种程度了，那么你已经可以做我的老师了。其实php也分很多的区域， 不禁又想起那些说php是草根语言的人，为什么认得差距这么大呢。 曾经犯过一个很低级的错误，我在文件命名的时候用了一个横线\\\\\\\'-\\\\\\\' 号，结果找了好几个小时的错误，事实是命名的时候 是不能用横线 \\\\\\\'-\\\\\\\' 的，应该用的是下划线\\\\\\\'_\\\\\\\' ; 本文当是我的笔记啦，遇到的问题随时填充 作为一个合格的coder 编码的规范是必须，命名方面我推崇“驼峰法”，另外就是自己写的代码最好要带注释，不然时间长了，就算是自己的代码估计看起来都费事，更不用说别人拉。 写的比较杂，因为我也是个新手，不当至于大家多多指正。 你很难利用原理去编写自己的代码。对于php来说，系统的学习我认为还是很重要的，当你有一定理解后，你可你针对某种效果研究，我想那时你不会只是复制代码的水平了。 php是动态网站开发的优秀语言，在学习的时候万万不能冒进。在系统的学习前，我认为不应该只是追求实现某种效果，因为即使你复制他人的代码调试成功，实现了你所期望的效果，你也不了解其中的原理。 多看优秀程序员编写的代码，仔细理解他们解决问题的方法，对自身有很大的帮助。 使用zendstdio 写代码的的时候，把tab 的缩进设置成4个空格是很有必要的
页:
[1]