PHP聊天室源代码

PHP聊天室源代码 ~ admin

// 显示信息部份 m.php 
<HTML> 
<HEAD> 
<TITLE>Push Chat Room</TITLE> 
<style type="text/css"> 
 
</style> 
</HEAD> 
<BODY bgcolor="#FFFFFF"> 
 
<SCRIPT LANGUAGE="JavaScript"> 
 
</SCRIPT> 
很高兴大家能到这里来，这还是很原始的程序，请不要见笑。 

Support by Amw. 
 
<?
$shm_id=shm_attach($room); 
 $shm_var=$room; 
 session_start();
 
 $old_n=0; 
 flush();
$i=0; 
 while($i<3) { 
 sleep(1);
 $array=@shm_get_var($shm_id,$shm_var);
 if(is_array($array)) {
 
 $end=$array['end']; 
 $start=$array['start']; 
 if($old_n>$end) { 
 $old_n=$start; 
 }
 if($end>$old_n) { 
 
 if($start>$old_n) 
 for($j=$old_n+1;$j<=$end;$j++) {
 // list($from,$sayto,$say,$action)=each($array[$j]); 
 $from=$array[$j]['from']; 
 $sayto=$array[$j]['sayto']; 
 $say=$array[$j]['say']; 
 $action=$array[$j]['action']; 
 $hidden=$array[$j]['hidden'];
 if($from==$user_name) { 
 $color='#000000'; 
 } elseif( $sayto==$user_name ) { 
 $color='#993366'; 
 } else { 
 $color='#000000'; 
 } 

 if( ($from==$user_name) || ($hidden && ($sayto==$user_name
)) || !$hidden)
 { 
 $s="".$from. 
 "对<a href=javascript:parent.cs('$sayto'); cl
ass=font1
 target=bottom title=$sayto>" 
 ."$sayto</a>$action: $say</fo
nt>"; 
 // $s=htmlspecialchars($array[$j]); 
 echo "<SCRIPT Language="javascript1.1">sayto(
'$s');</SCRIPT>n"; 
 }
 } 
 $old_n=$end; 
 flush(); 
 } 
 } 
 #$i++;
}
?> 
 </body> 
 </html>
// 提交部份 
 <html> 
 <body onLoad="form1.say.focus();" bgcolor="#EFF5FE
"> 
 <form name="form1"> 
 <table width="100%" border="0" cellspacing=&q
uot;0"
 cellpadding="0"> 
 <tr> 
 <td width="75%">对象 <? 
 include ('../mylib.inc');
 session_start(); 
 validuser($user_name);
$shm_id=shm_attach($room); 
 $shm_var=$room; 
 $shm_userlist=12;
if($clearbtn) { 
 shm_remove_var($shm_id,$shm_var); 
 } 
 elseif($say) { 
 $s=@shm_get_var($shm_id,$shm_var); 
 if(!is_array($s)) { 
 $s=array('start'=>1,'end'=>0,'count'=>0); 
 }
$end=$s['end']+1; 
 $start=$s['start']; 
 $count=$s['count']; 
 if($end-$start>=10) { 
 unset($s[$start]); 
 $s['start']=$start+1; 
 }
//$s[$end]="".$user_name. 
 // "对<a href=javascript:parent.cs('$sayto');
class=font1
 target=bottom title=$sayto>" 
 // .$sayto."</a>$action: ".$say;
$s[$end]=array( 'from'=>$user_name, 
 'sayto'=>$sayto, 
 'say'=>$say, 
 'action'=>$action, 
 'hidden'=>$hidden);
$s['end']=$end; 
 $s['count']=$count+1;
shm_put_var($shm_id,$shm_var,$s); 
 #$s=array("Hello","sdf"); 
 }
$ul=@shm_get_var($shm_id,$shm_userlist); 
 if(!is_array($ul)) { 
 $ul=array(); 
 } 
 if(! $ul["$user_name"] ) { 
 $ul["$user_name"]=1; 
 shm_put_var($shm_id,$shm_userlist,$ul); 
 } 
 
 $defs=($sayto=="所有人") ? "selected":"&quo
t;; 
 echo " <select name="sayto"> 
 <option $defs>所有人</option>"; 
 while( list($key,$val)=each($ul) ) { 
 $defs=($sayto==$key) ? "selected":""; 
 echo "<option $defs>$key</option>"; 
 } 
 echo "</select>";
?> 动作 
 <select name="action" title="各种聊天动作和表情选择
，您也可以在信息输入框中直接使用各种EMOTE。"
 > 
 <option value="说">说话 
 <option value="叫嚷">叫嚷 
 <option value="亲亲">亲亲 
 <option value="拥抱">拥抱 
 <option value="暴怒">暴怒 
 <option value="眨眼">眨眼 
 <option value="轻推">轻推 
 <option value="点头">点头 
 <option value="询问">询问 
 <option value="傻笑">傻笑 
 <option value="拳打">拳打 
 <option value="脚踢">脚踢 
 <option value="告诫">告诫 
 <option value="耳光">耳光 
 <option value="鞠躬">鞠躬 
 <option value="歉意">歉意 
 <option value="同意">同意 
 <option value="惊讶">惊讶 
 <option value="摇头">摇头 
 <option value="哈欠">哈欠 
 <option value="微笑">微笑 
 <option value="握手">握手 
 <option value="挥手">挥手 
 <option value="耸肩">耸肩 
 <option value="大哭">大哭 
 <option value="抽泣">抽泣 
 <option value="安慰">安慰 
 <option value="生气">生气 
 <option value="承诺">承诺 
 <option value="不舍">不舍 
 <option value="深情">深情 
 <option value="迷惑">迷惑 
 <option value="耳语">耳语 
 </select> 
 悄悄话 
 <input type="checkbox" name="hidden" value=&q
uot;1"
 <? if($hidden)?> > 
 图音 
 <input type="checkbox" name="can_html" value=
"1"> 
 
 信息 
 <input type="text" name="say" size="50&q
uot;> 
 <input type="submit" name="submit" value=&quo
t;发送"> 
 
 <input type="submit" name="Submit2" value=&qu
ot;刷新"
 
 onClick="javascript:parent.saylist.location.reload();">
 
  
 <input type="submit" name="Submit" value=&quo
t;离开"> 
 <input type="hidden" name="room" value=<?
echo $room;?>
 > 
 </td> 
 <td width="25%"> 
 <div align="center"><a href="http://book.new
zhongshan.com"
 target="_blank">新城书店</a> 
 
 <a href="http://www.newzhongshan.com/edu/" target=&quot
;_blank">新城教育</a>
 
 
 <a href="http://www.newzhongshan.com" target="_bla
nk">最新消费信息</a>
 </div> 
 </td> 
 </tr> 
 </table> 
 </form> 
 </body> 
 </html>
// 完
实例可以在 http://202.96.189.113/pcb/ 里，最好先注册。
另外，在现实过程中，用户列表的实时更新是个大问题，大家有什么好方法？