基本功能：能登陸，聊天，記錄在線人數IP事件，能控制聊天的字體顏色，自動把轉化聊天中網址為鏈接地址，能定制聊天室標題、廣告信息等等。使用文本作為存儲媒體，又興趣可以參考代碼，並且進行擴展。
其實PHP作為快速開發的腳本語言是很棒的！
===代碼===
<?PHP/** * 黑夜路人簡易聊天室 * 作者: heiyeluren <heiyeluren_at_163.com> * 創建: 2005-8-10 22:42 * 修改: 2005-8-11 23:25 */error_reporting(7);session_start();header("ContentType:text/html;charset=gb2312");define("SCRIPT", $_SERVER['SCRIPT_NAME']);define("CHAT_NOTE", "./chat.txt");define("ONLINE_LIST", "./online.txt");define("REF_TIME", 5);define("CHAT_NAME", "黑夜路人聊天室");define("AD_MSG", "今天是中國情人節, 祝大家情人節快樂!!");//獲取值if (isset($_GET['action']) && !empty($_GET['action'])) { $action = $_GET['action'];}//如果已經登陸那麼直接跳到聊天界面if (!isset($_GET['action']) && isset($_SESSION['username'])) { header("location:".SCRIPT."?action=chat");}//登陸提示if (!isset($_GET['action'])) { if (!session_is_registered('username')) { echo " <p><h3 align=center>[ ".CHAT_NAME." ] © 2005</h3></p> <p align=center> <form action=".SCRIPT."?action=login method=post> 呢稱: <input type=text size=25 maxlength=30 name=login_user> <input type=submit value=聊天> </form></p> "; exit; }}//校驗登陸if ($action=='login'){ if (isset($_POST['login_user']) && !empty($_POST['login_user'])) { $username = $_POST['login_user']; } else { $username = "游客"; } session_register('username'); save_online($username, get_client_ip()); header("location:".SCRIPT."?action=chat");}//開始聊天if ($action=="chat"){ $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'><iframe src='".SCRIPT."?action=show'name=show_win width=800 height=450 scrolling=auto frameborder=0></iframe></div><br> <marquee width=70% scrollamount=2> ".AD_MSG." </marquee> [當前在線：$online_sum] <iframe src='".SCRIPT."?action=say' name=say_win width=800height=60 scrolling=no frameborder=0> ";}//說話界面if ($action=="say"){ echo "<head><title>[ ".CHAT_NAME." ]</title></head><center><body bgcolor=#C4BFB9 style='font-size:12px;'> <form action=".SCRIPT."?action=save method=post name=chat> [".$_SESSION['username']."]說:<input type=text size=80maxlength=500 name=chatmsg style=' background-color:#99CC99;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> <option style='COLOR: #0000ff' value='#0000FF'>藍色開朗</option> <option style='COLOR: #ff00ff' value='#FF00FF'>桃色浪漫</option> <option style='COLOR: #009900' value='#009900'>綠色青春</option> <option style='COLOR: #009999' value='#009999'>青色清爽</option> <option style='COLOR: #990099' value='#990099'>紫色拘謹</option> <option style='COLOR: #990000' value='#990000'>暗夜興奮</option> <option style='COLOR: #000099' value='#000099'>深藍憂郁</option> <option style='COLOR: #999900' value='#999900'>卡其制服</option> <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> <option style='COLOR: #333333' value='#333333'>灰色軌跡</option> <option style='COLOR: #999999' value='#999999'>倫敦灰霧</option> </select> <input type=submit value='說話' style='background-color:#ffffff'><a href=".SCRIPT."?action=logoff title=退出聊天室target=_top onclick='return confirm(\"你確定要退出聊天室嗎?\")'>退出</a> </form> <script>function check(){if(document.chat.chatmsg.value==''){;alert('請輸入聊天信息!');return false;}return true;}</script> ";}//保存說話if ($action=="save"){ if ($_POST['chatmsg']!="") { save_chat($_POST['chatmsg'], $_SESSION['username'], $_POST['usercolor']); } header("location:".SCRIPT."?action=say");}//顯示聊天記錄if ($action=="show"){ echo "<body style='font-size:12px' >"; echo "<META HTTP-EQUIV=REFRESH CONTENT='".REF_TIME.";URL=".SCRIPT."?action=show'>"; if (file_exists(CHAT_NOTE)) { $chat_msg = @file_get_contents(CHAT_NOTE); echo $chat_msg; } else { echo "目前沒有人說話"; }}//退出聊天室if ($action=="logoff"){ unset($_SESSION['username']); session_destroy(); header("location:".SCRIPT);}/* 基本函數 *///保存聊天記錄函數function save_chat($msg, $user, $color){ if (!$fp = fopen(CHAT_NOTE, "a+")) { dIE('創建聊天記錄文件失敗, 請檢查是否有權限.'); } $msg = Htmlspecialchars($msg); $msg = preg_replace('/([http|FTP:\/\/])*([a-zA-])+\.([a-zA-Z0-9_-])+\.([a-zA-Z0-9_-])+(a-zA-Z0-9_)*/', '<a href=\\0 target=_blank>\\0</a>', $msg); $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."]說: <font color='".$color."'>".$msg."</font><br>\r\n"; if (!fwrite($fp, $msg)) { die('寫入聊天記錄失敗.'); } fclose($fp);}//寫在線人信息function save_online($user, $ip){ if (!$fp = fopen(ONLINE_LIST, "a+")) { die("創建在線列表文件失敗, 請檢查是否有權限."); } $user = str_replace("|", "", $user); $line = $user."|".$ip."|".time()."\r\n"; if (!fwrite($fp, $line)) { die("寫入在線列表失敗."); } fclose($fp);}//獲取在線人數function get_online_sum(){ if (file_exists(ONLINE_LIST)) { $online_msg = file(ONLINE_LIST); return count($online_msg); } else { return 0; }}//獲取當前登陸用戶IPfunction get_client_ip(){ if ($_SERVER['REMOTE_ADDR']) { $cip = $_SERVER['REMOTE_ADDR']; } elseif (getenv("REMOTE_ADDR")) { $cip = getenv("REMOTE_ADDR"); } elseif (getenv("HTTP_CLIENT_IP")) { $cip = getenv("HTTP_CLIENT_IP"); } else { $cip = "unknown"; } return $cip;}?>
