程式師世界 >> 編程語言 >> 網頁編程 >> PHP編程 >> PHP綜合 >> 一個簡單的PHP入門源程序如留言板

一個簡單的PHP入門源程序如留言板

編輯：PHP綜合

引用“星空浪子”PHP中文文檔的例子：

聊天室，是 Web 站上打發無聊人士的秘密武器。同時，站長或其它人員也可以在這兒殺時間。甚至發生一段轟轟烈烈的網路戀情呢，就算沒有，起碼可以增加打字的速度。
聊天室，其實就是多人共同使用的 CGI 程式。程式將每個人輸入的字串，依系統接收完成的時間整理過後，再送給各個使用者。而 Web 聊天室和 BBS 的聊天室不同的地方是 BBS 聊天室可以每收到一句話，就馬上分送給每位在聊天室的網路使用者；Web 由於 CGI 程式不能像 BBS 的 telnet 一直連線，Web CGI 必須以最快的速度將資訊送出，然後結束連線。會形成這種情形，就是因為 Web 聊天室還是使用 HTTP 傳輸協定，在 HTTP 實作的版本，無論是 0.9、1.0 或是 1.1 版都不能長期占據網路連線的 Port。

為了解決資料無法馬上傳輸的問題，及更新訊息的問題，Netscape 在 3.0 版浏覽器之後使用了新的技術，而 Internet Explorer 也實作了這些 Netscape 研發出來的技術。Netscape 將它分成 Server Push 及 Client Pull 二種技術。Server Push 由 Web 伺服器將資料以多重 MIME 編碼，送給使用者端，目前較少網站使用這種方式；而 ClIEnt Pull 則利用了 Html 的 meta 標簽，並利用 http-equiv="Refresh" 的屬性，表示資料要重新載入，至於載入時間，則利用 content 屬性來達成。

<meta> 標簽通常都放在 <head>..</head> 的區段中，以便讓浏覽器可以僅早准備更新使用者端的網頁。下面為 meta 和 PHP 合用的例子，設定為每十五秒重新載入一次。

<meta http-equiv="Refresh" content="15; url=<? echo $PHP_SELF; ?>">

如果不用 Server Push 或是 ClIEnt Pull 來做聊天室，是否有其它的方法，讓 Web 的浏覽器能聊天呢？答案是肯定的。可以使用 Java 或是 ActiveX (限 IE4、5) 來做甚至自行開發專屬的 Browser Plug-in 程式 (如奇摩的聊天室)，不過這就和 PHP 沒有關系了，不是我們要的重點。

除此之外，由於定期更新所有網友的留言，為了怕寫了一半因為 refresh 而被清掉尚未寫好的字串，因此將聊天室以 frame 的頁框技術來做是有必要的。下例就是聊天室的主程式。

<Html>
<head>
<title>聊天室</title>
</head>
<frameset rows="*,40" border=1>
<frame src="list.PHP" name=list scrolling=auto>
<frame src="post.PHP" name=post scrolling=no>
<noframes>
<body>
本聊天室需使用頁框，您的浏覽器無法使用
</body>
</noframes>
</frameset>
</Html>

程式中以 frame 帶出二支 PHP 程式，建議將它們放在同一目錄之中，例如 /chatroom，以便日後維護。另外，為了 list.php 及 post.php 可以使用相同的變數，下例將共通的變路路徑放在 env.inc 中，可以將它放在 /chatroom 或是 Web 伺服器 (如 apache) 的 PHP include 設定路徑中。

<?PHP
// 檔名: env.inc
$tempdir="/tmp/";
$chatfile="/tmp/abc";
?>

聊天室的後端可以設計的很簡單，單純的使用檔案來做，也可以弄個資料庫，將聊天的內容丟入，若是真的很在意系統效率，或許可以考慮使用 UNIX 的行程通訊 IPC 了。

本節即將使用者留言的內容放入檔案中，在這兒的例子大部份都使用 UNIX/Linux 的外部指令。若系統無該指令 (或稱程式)，請自行安裝相關程式。

實際上將資料丟入檔案中會比使用資料庫還快，若還很在乎速度，可以在 UNIX 機器中裝上 RAM Disk，再將檔案的存取路徑都設在該 RAM Disk 上，保證存取速度能滿足嚴苛的要求。在有些以高速度搜尋引擎為號召的網站，甚至將整個資料庫資料都放到 RAM Disk 中，馬上讓系統速度提高十倍百倍，而且 RAM 的價格和其它解決方案相比的話還算很便宜。若使用 Windows NT，那就沒辦法了，看微軟什麼時候提供，或者用 Third Party 的產品了。

有些使用者可能對 UNIX 還不是很熟，在這兒先簡介會用到的指令：

touch: 建立新檔案，或修改舊檔的最後更新日期。

echo 加上二個大於符號: 將字串顯示轉向到指定的地方。

tail: 顯示檔案最後數行的資料，內定值為十行，可使用減號加數字，修改欲顯示的行數。

下面為送出及處理留言字串的程式，程式用到 env.inc 的檔案。

<?PHP
// 檔名: post.PHP
require("env.inc");
if (($chatuser!="") and ($chattext!="")) {
  $chatstr="<font color=8080ff>".date("h:i:s")."</font>-<font color=ff8080>".$chatuser."</font>: ".$chattext;
  $cmdstr="echo \"".$chatstr."\" >> ".$chatfile;
  if (!file_exists($chatfile)) passthru("touch ".$chatfile);
  passthru($cmdstr);
}
?><Html>
<body bgcolor=ffffff leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>
<form action=<? echo $PHP_SELF; ?> method=post>
<table border=0 width=100%><tr>
<td align=right>匿稱:</td>
<td><input type=text name=chatuser size=8 value="<? echo $chatuser; ?>"></td>
<td align=right>發言:</td>
<td><input type=text name=chattext size=30 maxlength=500></td>
<td><div align=right><input type=submit value="送出"></td>
</tr></table>
</form>
</body>
</Html>

程式先檢查是否有輸入字串，若無匿名及發言內容字串則顯示發言的表單 (Form)，若有資料則將字串及當時時間存入檔案中 (利用 UNIX 的轉向指令)。當然，為了防止錯誤，先檢查是否有檔案可存檔，若沒有則先 touch 該檔，例中的檔案就是 /tmp/abc。

<Html>
<meta http-equiv="Refresh" content="5; url=<? echo $PHP_SELF; ?>">
<meta content="text/Html; charset=gb2312" http-equiv=Content-Type>
<body bgcolor=ffffff leftmargin=0 topmargin=0 marginheight=0 marginwidth=0>
<?
// 檔名: list.PHP
require("env.inc");

if (!file_exists($chatfile)) {
  echo "尚未開張</body></Html>";
  exit;
}

$uniqfile=$tempdir.uniqid(rand());
$shellcmd="/usr/bin/tail -50 ".$chatfile. " > ".$uniqfile;
passthru($shellcmd);
$chatfilearray=file($uniqfile);
$j=count($chatfilearray);
for ($i=1; $i<=$j; $i++) {
  echo $chatfilearray[$j-$i]."<br>\n";
}
unlink($uniqfile);
?>
</body>
</Html>

上面的程式就是使用 ClIEnt Pull 的技術，每五秒就重新更新一次。同樣地，它也 require 共用的 env.inc 檔，要改變其中的變數時，馬上就可以讓所有的程式用到，這對開發網站來說，是蠻重要的方法，可以將網頁程式中都會出現的地方。例如 Copyright (C) 1996-2000 的字串，放在一個檔案上，到了新的一年，只要改一個檔，整個站都改了。

if (!file_exists($chatfile)) {
  echo "尚未開張</body></Html>";
  exit;
}

$uniqfile=$tempdir.uniqid(rand());
$shellcmd="/usr/bin/tail -50 ".$chatfile. " > ".$uniqfile;
passthru($shellcmd);

程式先檢查有沒有使用者發送聊天內容的檔案 /tmp/abc，若沒有就顯示尚未開張，等使用者送聊天內容。若已有聊天資料，就抓出最後五十筆，在在另外的檔案中准備顯示。

$chatfilearray=file($uniqfile);
$j=count($chatfilearray);
for ($i=1; $i<=$j; $i++) {
  echo $chatfilearray[$j-$i]."<br>\n";
}
unlink($uniqfile);

將檔案讀入陣列變數 $chatfilearray 中，並以最後的資料最先顯示的方式送給浏覽器端，當然可以使用對陣列排序的方法，但確定一定時最後存入的資料在最後面，將它排序實在很浪費 CPU 時間，因此就從最後 echo 到最前面的資料。使用完成還要用 unlink() 指令，將臨時檔殺掉。