文章詳情頁(yè)
PHP 留言簿（帶Oracle數(shù)據(jù)庫(kù)分頁(yè)的顯示功能）
瀏覽：108日期：2023-12-30 15:35:55
（摘自CCU新聞組，本來(lái)出處可能是臺(tái)灣出版的一本關(guān)于PHP的書(shū)：PHP寶典） 大部份的網(wǎng)站，都會(huì)考慮到和使用者之間的互動(dòng)關(guān)系。這時(shí)，用留言版的功能，可讓使用者留下到此一游，或者是一些和網(wǎng)站的互動(dòng)訊息。 在設(shè)計(jì)上，可以很簡(jiǎn)單的只留下使用者的短篇留言，也可以設(shè)計(jì)到依性質(zhì)分門(mén)別類(lèi)很復(fù)雜的 Web BBS 系統(tǒng)。當(dāng)然，要如何打造一個(gè)屬于自己網(wǎng)站的留言版，就端賴(lài)網(wǎng)站的性質(zhì)以及 Web 網(wǎng)站開(kāi)發(fā)人員的巧思了。 在這里介紹的范例，是簡(jiǎn)單的列示所有留言的內(nèi)容。供使用者可以一次看到多筆留言的資料。系統(tǒng)的后端存放留言是用 Oracle 7.x 版的資料庫(kù)系統(tǒng)。范例中的資料庫(kù)(database) 名稱(chēng)為 WWW，連線的使用者帳號(hào)為 user38、密碼為 iam3849。要直接使用本例，必須先執(zhí)行下面的 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 各欄位說(shuō)明及詳細(xì)資料見(jiàn)下表 序號(hào) 欄位 名稱(chēng) 資料形態(tài) 資料長(zhǎng)度 欄位說(shuō)明 限制 Key 0 流水號(hào) serial varchar2 255 NN PK 1 參照流水號(hào) ref varchar2 255 暫保留。供回 覆留言功能用 2 帳號(hào) id char 8 使用者帳號(hào) NN 3 匿名 alias varchar2 32 顯示的名字 NN 4 網(wǎng)址 ip varchar2 1024 上網(wǎng) IP 5 時(shí)間 msgdate date NN 6 電子郵件 email varchar2 1024 7 留言?xún)?nèi)容 msg varchar2 2000 NN 8 顯示旗標(biāo) flag char 1 0: 不顯示 1: 顯示 (內(nèi)定) 在本節(jié)的留言版相關(guān)程式中，若加入了使用者認(rèn)證功能，則可以在 guestbook資料表的帳號(hào)欄中留下使用者的認(rèn)證帳號(hào)，方便 Webmaster 日后找尋不當(dāng)?shù)陌l(fā)信者。在這兒先留下欄位，讓需要的讀者們實(shí)習(xí)了。 要使用本節(jié)的程式，首先要先裝好 Oracle 7.x 版，并確定 Web Server 端的SQL*net 可以順利連上 Oracle 資料庫(kù)。之后還要在編譯 PHP 時(shí)加 --with-oracle=/home/oracle/product/7.3.2 的選項(xiàng)，當(dāng)然改成其它的路徑也沒(méi)關(guān)系，只要該路徑真的是 Oracle 的路徑即可。有關(guān) Oracle 裝設(shè)及使用上的細(xì)節(jié)請(qǐng)參考相關(guān)書(shū)籍。 下面的程式是將使用者的留言資訊加到 guestbook 留言資料表中。若要設(shè)定使用者認(rèn)證功能，可在程式剛開(kāi)始時(shí)檢查，發(fā)留言者就可以確認(rèn)身份，而讀取留言就不必身份檢查。這種設(shè)定可以防止不當(dāng)發(fā)言，卻又不會(huì)讓留言功能只有少數(shù)人使用。 <?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>填寫(xiě)留言</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>代號(hào)小名</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>內(nèi)容</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 } ?> 上面的程式在執(zhí)行時(shí)，先檢查變數(shù) alias 和 msg 是否有資料，若無(wú)資料則送出填寫(xiě)留言的表格到使用者端，供使用者填寫(xiě)留言。 若使用者填好留言，按下 "送出留言" 的按鈕后，則執(zhí)行程式的前半部份。 程式大概分成五部份 1.. 設(shè)定 Oracle 需要的環(huán)境變數(shù) 2.. 連上 Oracle 資料庫(kù) 3.. 整理資料，送入 Oracle 中 4.. 結(jié)束與 Oracle 的連線 5.. 結(jié)束程式，顯示最新的留言資料 在設(shè)定 Oracle 環(huán)境的部份，用 PHP 的函式 putenv()，可設(shè)定作業(yè)系統(tǒng)層的環(huán)境變數(shù)。要使用中文要記得加入下面這行 putenv("NLS_LANG=american_taiwan.zht16big5"); 之后就使用 Oracle 函式庫(kù)的功能: ora_logon() 等等。詳見(jiàn) Oracle 資料庫(kù)函式庫(kù)。利用這個(gè)函式庫(kù)，可以很輕易的操作 Oracle 資料庫(kù)。 再來(lái)就是整理資料，以便置入 Oracle 資料庫(kù)中 $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 變數(shù)為獨(dú)一無(wú)二的字串，程式先亂數(shù)產(chǎn)生獨(dú)特的字串，再用 md5 編碼，將字串弄亂，形成類(lèi)似雜湊處理后的無(wú)意義字串。由于字串長(zhǎng)，又變得很亂，可防止使用者，尤其是駭客或飛客利用序號(hào)來(lái)戳系統(tǒng)。 $ref 變數(shù)目前是無(wú)效的。$id 變數(shù)為使用者認(rèn)證用，若在程式開(kāi)始處有加入使用者認(rèn)證的程式，則 $PHP_AUTH_USER 會(huì)變成使用者的帳號(hào)，傳入 $id 變數(shù)中。 至于使用者寫(xiě)的字串，為了防止資料庫(kù)或處理時(shí)的復(fù)雜性甘脆將它用 BASE64 編碼。可以讓中文字的奇怪字元一字消失，當(dāng)然這是鋸箭法，不過(guò)對(duì) Web 程式而言，執(zhí)行快速、修改方便才是最重要的，實(shí)在沒(méi)有必要再浪費(fèi)精力去處理這些中文的沖碼問(wèn)題了。值得注意的是使用 BASE64 編碼，會(huì)讓字串膨脹大約 1/3，若資料庫(kù)的儲(chǔ)存空間有限，可能就不適合用這個(gè)方法了，話又說(shuō)回來(lái)，現(xiàn)在硬碟便宜，隨便就是十幾 GB 以 上，應(yīng)該不會(huì)考慮資料庫(kù)空間有限的問(wèn)題才對(duì)。 最后，將變數(shù)整理成 $query 字串，供資料庫(kù)執(zhí)行 SQL 指令使用就可以了。 ora_parse($cursor, $query) or die; ora_exec($cursor); ora_close($cursor); ora_logoff($handle); 要執(zhí)行 Oracle 的 SQL 指令前，要先經(jīng)過(guò) parse 的動(dòng)作。若在前面加上 @ (如: @ora_prase();)，可以不讓使用者看到錯(cuò)誤訊息。在執(zhí)行 query 指令后，就可以關(guān)閉與 Oracle 之間的連線了。 Header("Location: ./index.php"); exit; 這二行讓瀏覽器重導(dǎo)到 index.php。讓使用者看到他的新留言，就完成了留言的動(dòng)作。 之后來(lái)看看留言的內(nèi)容顯示程式。 <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", // 管理人員甲的機(jī)器 IP "10.0.2.28" // 管理人員乙的機(jī)器 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][0] = ora_getcolumn($cursor,0); $guestbook[$i][1] = ora_getcolumn($cursor,1); $guestbook[$i][2] = ora_getcolumn($cursor,2); $guestbook[$i][3] = ora_getcolumn($cursor,3); $gu estbook[$i][4] = ora_getcolumn($cursor,4); $guestbook[$i][5] = ora_getcolumn($cursor,5); $guestbook[$i][6] = ora_getcolumn($cursor,6); $guestbook[$i][7] = ora_getcolumn($cursor,7); $i++; } ora_close($cursor); ora_logoff($handle); echo "<a href=addmsg.php>新增留言....</a><p>n"if ($QUERY_STRING!="") $page = $QUERY_STRING; } else $page = 0; } $i=count($guestbook); $msgnum=20; // 每頁(yè)二十筆 $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)."><上頁(yè)</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." 頁(yè)] "if ($page<($totalpage-1)) $pagestr=$pagestr."- <a href=index.php?".($page+1).">下頁(yè)></a> "$pagestr="<div align=center>$pagestr</div>"echo "<p>".$pagestr."<hr><p>n"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"} echo "<p><hr><p>n"echo $pagestr; ?> </body> </html> 在顯示留言的部份，考慮到留言?xún)?nèi)容若很多，加上網(wǎng)路慢的話，可能會(huì)讓使用者在線路慢的時(shí)候拖累整個(gè)資料庫(kù)，因此，盡快的連上資料庫(kù)，取得需要的資料后，馬上關(guān)閉資料庫(kù)，再慢慢送給使用者，應(yīng)是最好的對(duì)策。 程式分成四部份 1.. 初始化 2.. 取資料庫(kù)中的資料 3.. 計(jì)算要顯示的頁(yè)數(shù) 4.. 送出資料 這個(gè)程式在 BIGLOBE 上有實(shí)作，由于這是一間 ISP 公司，因此在設(shè)定時(shí)限定撥 接或?qū)＞€的會(huì)員才能看到，進(jìn)入前要輸入帳號(hào)及密碼。有興趣者不妨買(mǎi)個(gè) BIGLOBE 的 撥接帳號(hào)參考。為了保護(hù)留言者的隱私，留言以馬賽克處理。 $WebmasterIPArray = array( "10.0.1.30", // 管理人員甲的機(jī)器 IP "10.0.2.28" // 管理人員乙的機(jī)器 IP ); $WebmasterIP=false; for ($i=0; $i<Count($WebmasterIPArray); $i++) { if ($REMOTE_ADDR == $WebmasterIPArray[$i]) $WebmasterIP=true; } // 之后初始化 Oracle 程式略 顯示程式和留言程式的初始化部份都差不多，但顯示程式多加了一個(gè)功能，設(shè)定Webmaster 的電腦。將 Webmaster 使用的 IP Address 加在 $WebmasterIPArray 陣列變數(shù)中，可以在顯示留言時(shí)，顯示刪除留言的字串，方便處理不當(dāng)?shù)牧粞浴?$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][0] = ora_getcolumn($cursor,0); $guestbook[$i][1] = ora_getcolumn($cursor,1); $guestbook[$i][2] = ora_getcolumn($cursor,2); $guestbook[$i][3] = ora_getcolumn($cursor,3); $guestbook[$i][4] = ora_getcolumn($cursor,4); $guestbook[$i][5] = ora_getcolumn($cursor,5); $guestbook[$i][6] = ora_getcolumn($cursor,6); $guestbook[$i][7] = ora_getcolumn($cursor,7); $i++; } ora_close($cursor); ora_logoff($handle); 在初始化后，就可以連上 Oracle 資料庫(kù)，將留言的資料取出放在 $guestbook陣列中。取得資料后，就趕緊將資料庫(kù)關(guān)閉，再來(lái)處理 $guestbook 陣列的資料了。 if ($QUERY_STRING!="") { $page = $QUERY_STRING; } else { $page = 0; } 這一段程式判斷是要顯示第幾頁(yè)，內(nèi)定值是顯示第一頁(yè)。要顯示第三頁(yè)的頁(yè)面，需要使用 http://xxxxxx/index.php?2 的格式，也就是傳入 $QUERY_STRING，余類(lèi)推。之后的數(shù)行程式，都是用來(lái)處理顯示的頁(yè)數(shù)及筆數(shù)的資料。 $msgnum=20; // 每頁(yè)二十筆 要改變每頁(yè)的顯示筆數(shù)，可以改 $msgnum 變數(shù)。程式的內(nèi)定值為 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 陣列的資料按照設(shè)定的頁(yè)數(shù)取出，顯示給使用者看。值得一提的是，若看留言的機(jī)器 IP 為 $WebmasterIPArray 變數(shù)陣列中的一個(gè)元素的話，則會(huì)在留言者的匿稱(chēng)后顯示 "刪除本篇!!" 的字串，供管理人員刪除不當(dāng)留言。 以下即為刪除留言的程式。 <?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"); ?> 其實(shí)這個(gè)程式很單純，只要打開(kāi) Oracle 資料庫(kù)，將欲刪除的序號(hào)那筆資料的flag 欄位設(shè)成 0 就可以了，不用將資料真的從資料庫(kù)上移除。
標(biāo)簽：
PHP
排行榜
網(wǎng)公網(wǎng)安備