PHP程序百行代码快速构建简易聊天室方法(页 1) - 编程语言 - 我爱电脑技术论坛打造最好的电脑自学交流论坛

白雪公主 发表于 2008-6-19 13:41

PHP程序百行代码快速构建简易聊天室方法

基本功能：能登陆，聊天，记录在线人数IP事件，能控制聊天的字体颜色，自动把转化聊天中网址为链接地址，能定制聊天室标题、广告信息等等。使用文本作为存储媒体，又兴趣可以参考代码，并且进行扩展。
H ]T1v,h:x!`2@n
\Rf UX
其实PHP作为快速开发的脚本语言是很棒的！ 8X;uADE^#M-q ^5[Z

===代码=== HU \uC4~]~a

<?php
/**
* 黑夜路人简易聊天室;p)@%l.S8X-p
* 作者: heiyeluren <heiyeluren_at_163.com>w P+w"s,][2K
* 创建: 2005-8-10 22:42
* 修改: 2005-8-11 23:25{#_{^$?
*/;Fh&syl/cv+U0hob
error_reporting(7);MpYXf-f0Z?
session_start();8V7\ V)mC5N\
header("ContentType:text/html;charset=gb2312"); G(c{9mU h#P
define("SCRIPT", $_SERVER['SCRIPT_NAME']);ckFD!xm
define("CHAT_NOTE", "./chat.txt");
define("ONLINE_LIST", "./online.txt");
define("REF_TIME", 5);KY+AHwY.Qk;Q
define("CHAT_NAME", "黑夜路人聊天室");
define("AD_MSG", "今天是中国情人节, 祝大家情人节快乐!!");

//获取值
if (isset($_GET['action']) && !empty($_GET['action'])) {
$action = $_GET['action'];I&NId3]NjQg
}'p*fw zx:oLpc

//如果已经登陆那么直接跳到聊天界面bRmji
if (!isset($_GET['action']) && isset($_SESSION['username'])) {
header("location:".SCRIPT."?action=chat");Tq}D;z*|6\%p
}

//登陆提示E&K,wk?#{h9eFn
if (!isset($_GET['action']))
{U.BE,odG
if (!session_is_registered('username'))
{
  echo " <p><h3 align=center>[ ".CHAT_NAME." ] © 2005</h3></p>q6p.qAU
<p align=center>
<form action=".SCRIPT."?action=login method=post>,n6MW9T8c A/~
呢称: <input type=text size=25 maxlength=30 name=login_user>
<input type=submit value=聊天>
</form></p>
";s6v,U n7K2H
  exit;
}n D/CW}D4]
}
q*q _N9R
//校验登陆F(o%b(j+Q!N7}s
if ($action=='login')
{
if (isset($_POST['login_user']) && !empty($_POST['login_user'])) {R zG%Nc:@
  $username = $_POST['login_user'];2\Y?@.p/o+?]
} else {w$X ^)w/]IzW8]
  $username = "游客";
}3_:x)S Q|
session_register('username');2x iM'jM9Y)p
save_online($username, get_client_ip());C4nB[c#K
header("location:".SCRIPT."?action=chat");
}
7YLvFY'Z\)F(J
//开始聊天[url]www.knowsky.com[/url]
if ($action=="chat") _as/eJ[ Z
{KLt5{q0G5t
$online_sum = get_online_sum();(xwy9D)]eq7C h
echo "<head><title>[ ".CHAT_NAME." ]</title></head><center>
<body bgcolor=#C4BFB9 style='font-size:12px;'>U+sk.e Kx!~^nfx
<div style='border:1px solid #999966; width:802px;height:450'>
<iframe src='".SCRIPT."?action=show'g'uG0c2Zs&w
name=show_win width=800 height=450 scrolling=auto frameborder=0></iframe>
</div><br>8UBC9Q!hsh
<marquee width=70% scrollamount=2> ".AD_MSG." </marquee>  
[当前在线：$online_sum]
<iframe src='".SCRIPT."?action=say' name=say_win width=800-|3h g5GMf*R/Pi
height=60 scrolling=no frameborder=0>%uSnX Z,j^
";9@Am+Z-pD
}"YC9KW O0I {n8yW
?` jxpLA{
//说话界面
if ($action=="say")
{

白雪公主 发表于 2008-6-19 13:42

echo "<head><title>[ ".CHAT_NAME." ]</title></head><center> gk-B e0P&Yo
<body bgcolor=#C4BFB9 style='font-size:12px;'>~+kE;[aw
  <form action=".SCRIPT."?action=save method=post name=chat4l"o]Lr
onSubmit='return check()'> t"lB7Vf D*n g1}
  [".$_SESSION['username']."]说:<input type=text size=80
maxlength=500 name=chatmsg style=' background-color:#99CC99;*V$NaC'n!S0@4K)m]+e
width:550px; height:22px; border:1px solid:#000000'>
  <select name=usercolor>@7v1Q%Q8tW
  <OPTION selected style='COLOR: #000000' value='000000'>默认颜色</OPTION> QND2j"LMPz
  <OPTION style='COLOR: #000000' value='#000000'>黑色沉静</OPTION>
  <option style='COLOR: #ff0000' value='#FF0000'>红色热情</option>
  <option style='COLOR: #0000ff' value='#0000FF'>蓝色开朗</option> p#V+|6Y!Y`({8K0M)_
  <option style='COLOR: #ff00ff' value='#FF00FF'>桃色浪漫</option> ;ut/jt0P*uf6Jw#L
  <option style='COLOR: #009900' value='#009900'>绿色青春</option>
  <option style='COLOR: #009999' value='#009999'>青色清爽</option>
  <option style='COLOR: #990099' value='#990099'>紫色拘谨</option> o``9M%xv,?fk
  <option style='COLOR: #990000' value='#990000'>暗夜兴奋</option> pfqT iM)s%s4q:E@r
  <option style='COLOR: #000099' value='#000099'>深蓝忧郁</option> 9JwJ0ch_r[_'M#Lb
  <option style='COLOR: #999900' value='#999900'>卡其制服</option>
  <option style='COLOR: #ff9900' value='#FF9900'>镏金岁月</option> ^ ^)naev*j
  <option style='COLOR: #0099ff' value='#0099FF'>湖波荡漾</option> 2j4qt{)E,|p
  <option style='COLOR: #9900ff' value='#9900FF'>发亮蓝紫</option>
  <option style='COLOR: #ff0099' value='#FF0099'>爱的暗示</option> F:b)bM2F
  <option style='COLOR: #006600' value='#006600'>墨绿深沉</option>
  <option style='COLOR: #333333' value='#333333'>灰色轨迹</option>
  <option style='COLOR: #999999' value='#999999'>伦敦灰雾</option> s4})a`4c7~7@
  </select>&TG*FE$]/{|8L
  <input type=submit value='说话' style='background-color:#ffffff'>er Ha`H7R8?}
<a href=".SCRIPT."?action=logoff title=退出聊天室6fJj,wbt [
target=_top onclick='return confirm(\"你确定要退出聊天室吗?\")'>退出</a>Be S&G uX
  </form>J'mp']4]$\oo
  <script>function check(){if(document.chat.chatmsg.value=='')
{;alert('请输入聊天信息!');return false;}return true;}</script> xL0JKM#o
  ";
}2mym9K#t/QLC
DP.T%^1Y3m%tN!fC*f
//保存说话Ej.tu`u4ex
if ($action=="save")la4]4n4N[
{cu%kRjx
if ($_POST['chatmsg']!="") {
  save_chat($_POST['chatmsg'], $_SESSION['username'], $_POST['usercolor']);
}!HVtj$[ q
header("location:".SCRIPT."?action=say");F~:c*@nAVX
}

//显示聊天记录
if ($action=="show")e&[K@S/S!H2C*R2x
{P/H7og/zSEA-WC)l
echo "<body style='font-size:12px' onload='scrollit()'>";
echo "<META HTTP-EQUIV=REFRESH
CONTENT='".REF_TIME.";URL=".SCRIPT."?action=show'>";
if (file_exists(CHAT_NOTE)) {(Y}RqV Q
  $chat_msg = @file_get_contents(CHAT_NOTE);
  echo $chat_msg;
} else {
  echo "目前没有人说话";'lV(x-g5~
}
}
F"h.o1sBU7E
//退出聊天室
if ($action=="logoff")@J1?2K~,AB
{
unset($_SESSION['username']);"Ki+\%i T,b}#r9i}
session_destroy();us*Yq*w8`7U(Z
header("location:".SCRIPT);
}W'D%lh(P!Q9M

/* 基本函数 */ v1~8{v F?jr#A

//保存聊天记录函数
function save_chat($msg, $user, $color)
{
if (!$fp = fopen(CHAT_NOTE, "a+")) {
  die('创建聊天记录文件失败, 请检查是否有权限.');
}
$msg = htmlspecialchars($msg);6R#lk;^)r6?:U5ar
$msg = preg_replace('/([http|ftp:\/\/])*([a-zA-])
+\.([a-zA-Z0-9_-])+\.([a-zA-Z0-9_-])+(a-zA-Z0-9_)*/', '\.s/})F{rGd q
<a href=\\0 target=_blank>\\0</a>', $msg);6q(r,qjvE
$msg = preg_replace('/([a-zA-Z0-9_\.])+@([a-zA-Z0-9-])e-[.S(iKo*s"^
+\.([a-zA-Z0-9-]{2,4})+/', '<a href=mailto:\\0>\\0</a>', $msg);0sLSv`%pv
$msg = date('H:i:s')." [".$user."]说:
<font color='".$color."'>".$msg."</font><br>\r\n";
if (!fwrite($fp, $msg)) {1_Umx-q
  die('写入聊天记录失败.');
}
fclose($fp);;g6RN8t,t8I,h
}
//写在线人信息*P(aLP6x
function save_online($user, $ip)
{
if (!$fp = fopen(ONLINE_LIST, "a+")) {
  die("创建在线列表文件失败, 请检查是否有权限.");
}-O,DJ`Tv3p Py(L
$user = str_replace("|", "", $user); M^ a}#Yj
$line = $user."|".$ip."|".time()."\r\n";/e8VI~"jh
if (!fwrite($fp, $line)) {
  die("写入在线列表失败.");"WXV)w'R
}E&TL7k6w)|
fclose($fp);
}1{(S.R$A5mi9y
//获取在线人数S8Y,u"O;`|(G*Qq0l9UE
function get_online_sum()
{
if (file_exists(ONLINE_LIST)) {
  $online_msg = file(ONLINE_LIST);
  return count($online_msg);hp+Le[|M0j+E
} else { a$d3Ih9QR%Rc{
  return 0;
}
}(M9cE6BQl;r
//获取当前登陆用户IP
function get_client_ip()
{J'k;X/\"@*A2|7K
if ($_SERVER['REMOTE_ADDR']) {
  $cip = $_SERVER['REMOTE_ADDR'];
} elseif (getenv("REMOTE_ADDR")) {
  $cip = getenv("REMOTE_ADDR");GI7BcJ
} elseif (getenv("HTTP_CLIENT_IP")) {,Y-l(^/Xu&}z6b
  $cip = getenv("HTTP_CLIENT_IP");.}#[%q|0i8]"{O
} else {)Zn7vgQ)Wt
  $cip = "unknown"; g)z{/X5o-Ys
}8Y'n]ZyWH ec
return $cip; Hz0Z,Xt,@ K9`
}4@n&fWnH
?>

jixian 发表于 2008-9-22 13:25

原来不能直接复制的啊，复制到文本文件上出来好多乱码---这技术不错哦！

炼域人生 发表于 2008-9-22 23:00

路过支持下。。。

页: [1]

我爱电脑技术论坛's Archiver

PHP程序百行代码快速构建简易聊天室方法