程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> 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() 指令,將臨時檔殺掉。

 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved