打印

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

白雪公主

职称：论坛精英

荣誉勋章

您还未获得勋章,请继续努力!

楼主大中小发表于 2008-6-19 13:41 只看该作者

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

基本功能：能登陆，聊天，记录在线人数IP事件，能控制聊天的字体颜色，自动把转化聊天中网址为链接地址，能定制聊天室标题、广告信息等等。使用文本作为存储媒体，又兴趣可以参考代码，并且进行扩展。

我爱电脑技术论坛: A. f7 Z2 k9 c9 p8 V" z. ~
其实PHP作为快速开发的脚本语言是很棒的！电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站5 I# h$ {  b5 R% q/ C: l

===代码===
我爱电脑技术社区--打造最好的电脑技术自学交流平台9 ]8 [. y# [9 b0 i& a0 J

我爱电脑技术论坛) @6 G, d+ u+ {- L/ s% W4 q" @5 D
<?php/ O' r( N$ _4 ?+ o9 P# N( X3 G
/**我爱电脑技术论坛0 o+ s# N5 X- c
* 黑夜路人简易聊天室我爱电脑技术论坛, R, Q% J, Z6 Q8 @
* 作者: heiyeluren <heiyeluren_at_163.com>www.520diannao.com0 Y$ Z' r  \& o8 l; u& ?4 @. ?& m
* 创建: 2005-8-10 22:42
* 修改: 2005-8-11 23:25
*/打造最好的电脑自学交流论坛5 L$ \- q; l9 O& s1 u# Q" t
error_reporting(7);
session_start();我爱电脑技术论坛% _- j" O& d" e, @
header("ContentType:text/html;charset=gb2312");www.520diannao.com; h7 \7 P4 l+ P8 u* e3 {
define("SCRIPT", $_SERVER['SCRIPT_NAME']);电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站6 S/ z5 w" f# N* K5 u( }/ B5 M
define("CHAT_NOTE", "./chat.txt");
define("ONLINE_LIST", "./online.txt");
define("REF_TIME", 5);
define("CHAT_NAME", "黑夜路人聊天室");/ b/ ^4 P3 o2 C/ P
define("AD_MSG", "今天是中国情人节, 祝大家情人节快乐!!");打造最好的电脑自学交流论坛0 r4 y% d8 A, w+ v

//获取值
if (isset($_GET['action']) && !empty($_GET['action'])) {
$action = $_GET['action'];
}
打造最好的电脑自学交流论坛% x2 m( q5 N, I% l! c! h% R' U  Y
//如果已经登陆那么直接跳到聊天界面
if (!isset($_GET['action']) && isset($_SESSION['username'])) {
header("location:".SCRIPT."?action=chat");
}我爱电脑技术社区--打造最好的电脑技术自学交流平台0 _0 k1 E! H* b! P- j1 G- N

//登陆提示
if (!isset($_GET['action']))
{
if (!session_is_registered('username'))打造最好的电脑自学交流论坛0 N6 z. H! ~' I: S1 @
{电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站3 o0 f  K; u4 p+ Y  j8 }/ |
  echo " <p><h3 align=center>[ ".CHAT_NAME." ] © 2005</h3></p>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站4 u8 a! k; ^8 C. q
<p align=center>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站2 W. J# J8 t% J  C( Q; d5 }
<form action=".SCRIPT."?action=login method=post>
呢称: <input type=text size=25 maxlength=30 name=login_user>
<input type=submit value=聊天>我爱电脑技术社区--打造最好的电脑技术自学交流平台2 ?8 A8 k# z7 U7 P
</form></p>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站! J6 C1 _- w% a6 q4 E9 t% o+ \
";
  exit;
}
}

//校验登陆www.520diannao.com; }1 O9 g2 Y3 a3 u  u' a
if ($action=='login')我爱电脑技术社区--打造最好的电脑技术自学交流平台# e# `: V5 W7 ~& Q( c
{
if (isset($_POST['login_user']) && !empty($_POST['login_user'])) {+ o4 Y( S3 r- u
  $username = $_POST['login_user'];( @  k8 P$ z0 y# v- S; `; G
} else {打造最好的电脑自学交流论坛, n3 y% p+ G0 W9 U
  $username = "游客";9 I9 K. Z3 Z# P; C* D. o' E) F, v
}我爱电脑技术论坛- v9 |* O# W/ H
session_register('username');
save_online($username, get_client_ip());
header("location:".SCRIPT."?action=chat");打造最好的电脑自学交流论坛5 w/ i  {  C3 ?; v; q; z+ z- f* U
}
我爱电脑技术论坛' a' x" M. `2 V  L6 X& h' s5 \
//开始聊天www.knowsky.com
if ($action=="chat")
{打造最好的电脑自学交流论坛5 G9 G0 Y. b8 q8 S
$online_sum = get_online_sum();
echo "<head><title>[ ".CHAT_NAME." ]</title></head><center>
<body bgcolor=#C4BFB9 style='font-size:12px;'>
<div style='border:1px solid #999966; width:802px;height:450'>打造最好的电脑自学交流论坛% m1 c9 n" L6 L8 _
<iframe src='".SCRIPT."?action=show'
name=show_win width=800 height=450 scrolling=auto frameborder=0></iframe>www.520diannao.com/ t% V/ B; k: ^6 }8 s- p
</div><br>
<marquee width=70% scrollamount=2> ".AD_MSG." </marquee>   www.520diannao.com6 D& k6 g: n8 `
[当前在线：$online_sum]我爱电脑技术社区--打造最好的电脑技术自学交流平台! R( w% p4 {6 M! ]3 r- ^$ p0 N- O
<iframe src='".SCRIPT."?action=say' name=say_win width=800
height=60 scrolling=no frameborder=0>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站& M1 p6 ?# \  u9 a
";我爱电脑技术论坛: f( @" x1 ]7 V2 b2 v" M6 R% ?1 ]
}

//说话界面
if ($action=="say")
{

TOP

白雪公主

职称：论坛精英

荣誉勋章

您还未获得勋章,请继续努力!

2楼大中小发表于 2008-6-19 13:42 只看该作者

echo "<head><title>[ ".CHAT_NAME." ]</title></head><center>
<body bgcolor=#C4BFB9 style='font-size:12px;'>www.520diannao.com  W% L# W# c0 k; o, R
  <form action=".SCRIPT."?action=save method=post name=chat
onSubmit='return check()'>8 H0 v- A5 d4 @8 u  l/ a
  [".$_SESSION['username']."]说:<input type=text size=80
maxlength=500 name=chatmsg style=' background-color:#99CC99;电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站- F2 K2 ~1 f/ I/ K
width:550px; height:22px; border:1px solid:#000000'>
  <select name=usercolor>
  <OPTION selected style='COLOR: #000000' value='000000'>默认颜色</OPTION>
  <OPTION style='COLOR: #000000' value='#000000'>黑色沉静</OPTION>
  <option style='COLOR: #ff0000' value='#FF0000'>红色热情</option> www.520diannao.com' R! D3 Y# B4 h! @% h' v
  <option style='COLOR: #0000ff' value='#0000FF'>蓝色开朗</option>
  <option style='COLOR: #ff00ff' value='#FF00FF'>桃色浪漫</option>
  <option style='COLOR: #009900' value='#009900'>绿色青春</option> 打造最好的电脑自学交流论坛0 H8 X3 P. ?7 f9 [$ J
  <option style='COLOR: #009999' value='#009999'>青色清爽</option>
  <option style='COLOR: #990099' value='#990099'>紫色拘谨</option> 我爱电脑技术社区--打造最好的电脑技术自学交流平台9 U# A! S" ?5 s* l8 f. ]
  <option style='COLOR: #990000' value='#990000'>暗夜兴奋</option>
  <option style='COLOR: #000099' value='#000099'>深蓝忧郁</option> 我爱电脑技术论坛$ y# p& i$ r  \! @  _2 r3 C5 j
  <option style='COLOR: #999900' value='#999900'>卡其制服</option> 打造最好的电脑自学交流论坛; D* U" c# C" B
  <option style='COLOR: #ff9900' value='#FF9900'>镏金岁月</option>
  <option style='COLOR: #0099ff' value='#0099FF'>湖波荡漾</option>
  <option style='COLOR: #9900ff' value='#9900FF'>发亮蓝紫</option>
  <option style='COLOR: #ff0099' value='#FF0099'>爱的暗示</option>
  <option style='COLOR: #006600' value='#006600'>墨绿深沉</option> 我爱电脑技术论坛4 L- i2 c' F/ x9 u+ B$ q: C8 V
  <option style='COLOR: #333333' value='#333333'>灰色轨迹</option> . ?  o5 A% L3 m) Z  F2 ]2 i% o7 c
  <option style='COLOR: #999999' value='#999999'>伦敦灰雾</option> 打造最好的电脑自学交流论坛$ I& x5 M/ F& ]/ v  E
  </select>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站, {$ V+ K% b) p3 S5 y! Q! A
  <input type=submit value='说话' style='background-color:#ffffff'>
<a href=".SCRIPT."?action=logoff title=退出聊天室我爱电脑技术论坛/ X, n& a, q  J. P1 C  A: P
target=_top onclick='return confirm(\"你确定要退出聊天室吗?\")'>退出</a>
  </form>电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站( ^: d/ x# ~5 Q4 g0 J! c
  <script>function check(){if(document.chat.chatmsg.value=='')
{;alert('请输入聊天信息!');return false;}return true;}</script>7 k! ?# c9 L& o
  ";打造最好的电脑自学交流论坛) }6 o; t. s: W* f
}4 y. T8 {2 D' R! l% O& P: p' b7 \

//保存说话
if ($action=="save")我爱电脑技术社区--打造最好的电脑技术自学交流平台8 p) I6 K/ I# b4 M( O, y
{
if ($_POST['chatmsg']!="") {
  save_chat($_POST['chatmsg'], $_SESSION['username'], $_POST['usercolor']);+ k* E  L' o0 D6 A  g4 f
}
header("location:".SCRIPT."?action=say");
}打造最好的电脑自学交流论坛. {0 a8 r2 p( p( U% t
打造最好的电脑自学交流论坛3 d# y' L1 T6 C( g; |7 S
//显示聊天记录我爱电脑技术社区--打造最好的电脑技术自学交流平台8 B* ?2 g. f; H* K, l, I7 U& j% i
if ($action=="show")
{打造最好的电脑自学交流论坛' D. E* P* m5 [9 b  u, D
echo "<body style='font-size:12px' onload='scrollit()'>";打造最好的电脑自学交流论坛* E8 f' f! g7 q! o
echo "<META HTTP-EQUIV=REFRESH 我爱电脑技术社区--打造最好的电脑技术自学交流平台! u0 o. Q" u/ G. T' D
CONTENT='".REF_TIME.";URL=".SCRIPT."?action=show'>";
if (file_exists(CHAT_NOTE)) {我爱电脑技术论坛$ Z: E4 w$ D$ s8 O' x2 _9 L, R
  $chat_msg = @file_get_contents(CHAT_NOTE);我爱电脑技术社区--打造最好的电脑技术自学交流平台4 T( d: ^3 |" E" C
  echo $chat_msg;我爱电脑技术论坛7 \2 r( U# n2 y9 h+ z
} else {
  echo "目前没有人说话";
}
}我爱电脑技术论坛: _0 n/ ?: Z  Z7 ]8 M
& `2 D8 b2 y1 ^! Z* R4 }% w# e- }# d
//退出聊天室& E' X7 n$ u! h  o
if ($action=="logoff")打造最好的电脑自学交流论坛0 G' n, r; w& w7 J) V) A
{打造最好的电脑自学交流论坛' N9 R8 ~( a5 r9 Q. \$ u
unset($_SESSION['username']);
session_destroy();我爱电脑技术社区--打造最好的电脑技术自学交流平台, h# n+ M. c1 w5 I, r, |
header("location:".SCRIPT);
}打造最好的电脑自学交流论坛4 r; c1 V- G  [

/* 基本函数 */电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站5 H. z' |5 f8 v+ Z6 {2 `

//保存聊天记录函数打造最好的电脑自学交流论坛. w. e) P' G  v" U+ f6 D
function save_chat($msg, $user, $color)
{
if (!$fp = fopen(CHAT_NOTE, "a+")) {www.520diannao.com% S) `9 b# H5 ^4 X" o5 m6 L
  die('创建聊天记录文件失败, 请检查是否有权限.');
}
$msg = htmlspecialchars($msg);我爱电脑技术社区--打造最好的电脑技术自学交流平台# G1 Q1 ^* K! }, _( ?3 {; x
$msg = preg_replace('/([http|ftp:\/\/])*([a-zA-])
+\.([a-zA-Z0-9_-])+\.([a-zA-Z0-9_-])+(a-zA-Z0-9_)*/', '我爱电脑技术社区--打造最好的电脑技术自学交流平台/ H8 }& |  n, j& I+ u+ q
<a href=\\0 target=_blank>\\0</a>', $msg);www.520diannao.com$ C8 B) c$ F6 z, H" }: i$ Y! G) a
$msg = preg_replace('/([a-zA-Z0-9_\.])+@([a-zA-Z0-9-])
+\.([a-zA-Z0-9-]{2,4})+/', '<a href=mailto:\\0>\\0</a>', $msg);
$msg = date('H:i:s')." [".$user."]说: 4 o' i. w2 s- {5 ]" n, d
<font color='".$color."'>".$msg."</font><br>\r\n";
if (!fwrite($fp, $msg)) {6 {, B: e) |5 V. v9 [" {/ D
  die('写入聊天记录失败.');
}我爱电脑技术论坛, r2 ]7 d  H) ]- \& a( w
fclose($fp);
}
//写在线人信息
function save_online($user, $ip)
{打造最好的电脑自学交流论坛$ h/ e' v' }2 P2 ]' d
if (!$fp = fopen(ONLINE_LIST, "a+")) {打造最好的电脑自学交流论坛3 A' ^" o* b9 t* B8 o$ n
  die("创建在线列表文件失败, 请检查是否有权限.");电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站8 f7 ~' |. i2 l
}打造最好的电脑自学交流论坛; Z& W+ n9 I% E; _5 Q0 T' w
$user = str_replace("|", "", $user);打造最好的电脑自学交流论坛" a6 a( }5 `% d
$line = $user."|".$ip."|".time()."\r\n";
if (!fwrite($fp, $line)) {打造最好的电脑自学交流论坛, h$ A! l. {  H
  die("写入在线列表失败.");
}我爱电脑技术社区--打造最好的电脑技术自学交流平台' a+ g  R5 o5 y) r
fclose($fp);我爱电脑技术论坛1 h$ N) w, `9 x/ q7 m+ {6 ?. y4 v
}
//获取在线人数
function get_online_sum()电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站7 \8 v6 v5 o! h
{
if (file_exists(ONLINE_LIST)) {
  $online_msg = file(ONLINE_LIST);打造最好的电脑自学交流论坛2 @3 c2 w: |: I; w7 V9 M
  return count($online_msg);
} else {
  return 0;
}
}
//获取当前登陆用户IP
function get_client_ip()
{打造最好的电脑自学交流论坛2 |" H3 \9 e. A3 U# X& v
if ($_SERVER['REMOTE_ADDR']) {
  $cip = $_SERVER['REMOTE_ADDR'];
} elseif (getenv("REMOTE_ADDR")) {电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站; O6 G/ R4 |3 k
  $cip = getenv("REMOTE_ADDR");电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站/ F) H3 k8 ~* ~% x& H8 j; [' u4 T
} elseif (getenv("HTTP_CLIENT_IP")) {我爱电脑技术论坛/ J5 L* }; A# q! T- [) `
  $cip = getenv("HTTP_CLIENT_IP");
} else {我爱电脑技术社区--打造最好的电脑技术自学交流平台% E2 ]9 b8 y5 q" Q, v# B- W2 G. Y
  $cip = "unknown";
}电脑,技术,IT,学习,交流,网络安全,QQ,硬件,软件,编程,教程,建站" P% Q! @% o/ a4 r
return $cip;
}打造最好的电脑自学交流论坛9 R5 Q/ f  G) a
?>