基于 PHP 的聊天室（三）

现在我们有了需要通过$REMOTE_ADDR变量来交叉引用的文件，这样我们可以区分出想要发贴的用户是否已经被扁或没有被扁。很简单：
<?php
for ($counter=0;$counter<sizeof($banned_array);$counter++) {
　　 if ($banned_array[$counter] == $REMOTE_ADDR) {
　　 print("<font color="red" face="arial" align="center">".
　　 "You have been banned from this chat</font>");
　　 exit;
　　 }
}
?>
　　exit命令将立即停止脚本的执行。在开始对传递过来的变量执行处理之前，插入对被扁用户的检查，这样被扁用户就不能使用聊天室了。
　　比较好的解决在某些情况下动态IP地址的问题的一个意见就是，检查IP地址块的所属范围。一个简单的函数可以容易地实现它。
<?php
function makeMask($ip) {
　　 // remember to escape the . so PHP doesn't think it's a concatenation
　　 $ip_array = explode(".", $ip);
　　 $ip_mask = "$ip_array[0].$ip_array[1].$ip_array[2]";
　　 return $ip_mask;
}
?>
　　然后我们把循环中的if替换成
<?php
for ($counter=0;$counter<sizeof($banned_array);$counter++) {
　　 if (makeMask($REMOTE_ADDR) == makeMask($banned_array[$counter])) {
　　 print("<font color="red" face="arial" align="center">".
　　 "You have been banned from this chat</font>");
　　 exit;
　　 }
}
?>
　　我们有了针对动态IP地址的保护措施。
　　最后我们需要一种方法最先得到惹麻烦的IP。我的实现是将$name和$REMOTE_ADDR记录到一个名为
iplist.html的文件中。对于一个分离的，秘密的URL，我可以在浏览消息的同时监控IP地址。这可以增加一些意外的好处，就是能够发现假冒者--在这些地方最常犯的“罪”。
　　iplist.html与messages.html的创建方法基本上一样。首先将当前的值从iplist.html中取出来，我们剥离掉头信息，脚标和旧的IP记录，然后创建一个新的记录，新的头信息，新的脚标。为了让布局更清楚，我使用了表格。
数组在 php 里的运用至少比 C 来的简单,在一般的 php 程序里很少用到数组这个概念,用的较多的是判断,循环和 cookie,但是掌握数组的运用技巧却是很重要,因为它能够使程序的功能更加自动化,让客户在功能强大但操作性能差和功能小巧玲珑但操作性非常方便的程序里选择,我想客户会选择后者.
在介绍数组运用之前,我得在这声明,我在这只是介绍运用数组的思路,即在什么情况下可以运用数组来简化完成任务,其中举的例子也只是提供一个思路,不会面面俱到.
什么时候使用数组,一般在碰到大范围变量传送和处理的情况下考虑用数组来完成.
我用数组完成任务的一个实例:
有一次我为客户写了一个后台管理程序,程序完成后,客户很满意,但过了不久客户就来找我了,并对我说:"我发现里面有很多垃圾信息,我不想保留它们,在删除时,我遇到麻烦了,我不得不每次点'删除'去删除每一条信息你能不能帮我设计一个一次过把全部垃圾删除的功能...";当然我接受了这个任务,因为客户就是上帝.
在开始加入这个功能进管理程序的时候,我考虑用数组来完成它,于是就写了一个流程图:
查找垃圾信息唯一识别字 id -->数组-->对应数组内的 id 删除数据库记录
好了由这个流程图,就可以开始设计程序了,为了使用数组成功传递变量,我使用了提交表挡的 checkbox,具体的写法:
echo "<input type=checkbox name=delete[$id] value='y'>";
这样我就将垃圾信息的 id 与数组下标对应的空间附值,这样就可以对数据库进行实质操作了,下面来看看数组被传到删除功能块时是如何完成任务的;
//首先查找数据库所有记录的 id:
.....
for ($i=0;$i<$num;$i++) {
$id=mysql_result($result,$i,"id");
//判断数组
if (!empty($delete[$id])) {
//执行删除命令
mysql_query("delete from table where id=$id");
}
}
......
一个自动化的删除功能完成了,用数组还可完成很多不同的任务如:随机更新图片,对比等等...
活用数组可以完成一些看上去很难完成的任务
现在我们终于有了写新文件所需的所有东西了：
<?php
// 打开文件，并且将文件长度截为0
$open_file = fopen("messages.html", "w");
// 写入文件的头信息
fputs($open_file, $header);
// 新的一行
// (使用stripSlashes，因为我们不想让所有的转义字符出现在消息文件中)
fputs($open_file, stripslashes($new_message));
// 旧的行
fputs($open_file, $old_messages);
// 脚标
fputs($open_file, $footer);
// 关闭文件
fclose($open_file);
?>
摘自：http://www.9headbird.com/detail.php3?id=8970

从前有一个相当流行的web聊天室，叫做Star Trekker 聊天室。我能够来到这个聊天室要感谢我的一个朋友，并且即使Star Trekker的聊友们几乎与我不是同一个圈中的，但是我发现对于他们的大部分人来说，都很友好和有意思。但是当Star Trekker关闭之后，这不得不谢谢运行在后台的Perl了，是它吞掉了服务器的资源，所以这些快乐和友善的人们不得不离开，无处可去了。我有幸在那段时间开张了自已的仿Star
Trekker的聊天室，并且开始设法与许多原来的Trekker的那些无家可归的聊友进行联系。出于对Perl所引起的资源消耗问题的警惕，当一个朋友向我推荐PHP时，我非常的高兴。
　　这个经过精心设计的web聊天室使用了从表单传递过来的变量，并且把它们处理为HTML ，然后将其写入文件。把表单和信息文件放在一个框架中，你可以看到它与一个叫BeSeen的聊天室很象。当然它的好处在于，
我们的聊天室比起它的BeSeen堂兄弟来说要聪明一些。
<form action="chat.php3" method="post">
Name : <input type="text" name="name"><br>
Message : <input type="text" name="message"><br>
<input type="submit" value="Send">
</form>
　　上面就是基本的用于输入的表单。你可能想把它弄得更美观一些，但是不管出于什么目的，这个就是你要处理的。它发送两个变量给chat.php3，分别叫做$name和$message。
　　不过，在处理那些变量之前，我们需要从消息文件中把当前的内容取出来，否则在一个时间里我们只能看到一条消息了。几乎没有一个方法可以管理对话。只有象我一样对自已的消息文件的结构很熟悉，我就知道每一条消息都以一个回车符结束。这就是说，可以使用file()函数来将消息文件读到一个数组中去。
　　消息文件有12行。在12行中，第1行为头信息，第2行到11行为旧的消息，第12行包含了我的脚标。
　　我最感兴趣的是得到一个能够包含所有那些旧消息的字符串。
<?php
// 把文件读到一个数组中
$message_array = file("messages.html");
// 编辑字符串
for ($counter = 1; $counter < 10; $counter++) {
　　 $old_messages .= $message_array[$counter];
}
?>
　　在处理字符串的时候，我将for循环的$counter初始化为1而不是0。这是因为我知道$message_array 数组的第0个元素包含的是我的头信息，我不需要它循环结束条件为$counter < 10，意思是只有数组中1到9的元素被读到字符串中。对于剩下的两个元素，第11个包含我的脚标，第10个包含的是最旧的消息。这两个我都想删除，因为在任何时刻我只让屏幕显示10条消息。修改$counter < 10 表达式，可以允许你改变所包含消息的数量。
<?php
// 网络技术主管座右铭：三人行，其必有我师焉。http://www.ctohome.com
// 这个代码可以是说是非常的SMART，我改动了小小部分使它更容易用。
$moreinfolist = array( // 储存WHOIS查询主机的连接方法
'at' => 'www.ripe.net/cgi-bin/whois?query=',
'au' => 'www.aunic.net/cgi-bin/whois.aunic?',
'bm' => 'www.bermudanic.bm/cgi-bin/BermudaNIC/rwhois_query_get.pl?query_text=',
'ch' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',
'com'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',
'cz' => 'www.ripe.net/cgi-bin/whois?query=',
'de' => 'www.ripe.net/cgi-bin/whois?query=',
'dk' => 'www.ripe.net/cgi-bin/whois?query=',
'edu'=> 'www.networksolutions.com/cgi-bin/whois/whois/?STRING=',
'es' => 'www.nic.es/whois/index.php?type=Dominios&key=',
'fi' => 'www.ripe.net/cgi-bin/whois?query=',
'fo' => 'www.ripe.net/cgi-bin/whois?query=',
'fr' => 'harmonic.nic.fr/cgi-bin/HarmoNIC.pl?Annu_Suffixe=&Annu_Action=Rechercher&Annu_Automaton_State=17&Annu_Motif=',
'gl' => 'www.ripe.net/cgi-bin/whois?query=',
'gm' => 'www.ripe.net/cgi-bin/whois?query=',
'gov'=> 'www.nic.gov/cgi-bin/whois?s=nic.gov',
'gr' => 'www.ripe.net/cgi-bin/whois?query=',
'hu' => 'www.ripe.net/cgi-bin/whois?query=',
'id' => 'whois.idnic.net.id/cgi-bin/whois-cgi?user=',
'ie' => 'www.ripe.net/cgi-bin/whois?query=',
'il' => 'www.ripe.net/cgi-bin/whois?query=',
'is' => 'www.ripe.net/cgi-bin/whois?query=',
'it' => 'www.ripe.net/cgi-bin/whois?query=',
'jp' => 'www.nic.ad.jp/cgi-bin/whois_gw?lang=/e&type=DOM&rule=ex&key=',
'lb' => 'www.aub.edu.lb/cgi-bin/lbdr.pl?cn=',
'li' => 'www.switch.ch/cgi-bin/domain/search_domain?keyword=',
'lt' => 'www.ripe.net/cgi-bin/whois?query=',
'lv' => 'www.ripe.net/cgi-bin/whois?query=',
'mc' => 'www.ripe.net/cgi-bin/whois?query=',