一个简单的PHP入门源程序
程序员文章站
2022-07-02 20:50:53
引用“星空浪子”php中文文档的例子： 聊天室，是 web 站上打发无聊人士的秘密武器。同时，站长或其它人员也可以在这儿杀时间。甚至发生一段轰轰烈烈的网路恋情呢，就算没有，...
引用“星空浪子”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() 指令，将临时档杀掉。
聊天室，是 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() 指令，将临时档杀掉。