【正文】 ){ $pppp++。 (p class=p9 align=left)。color: 0000FF。 lineheight: 15pt})。 ?39。 content=39。 //清空發(fā)言內(nèi)容 =39。 ()。39。hidden39。 print(input type=39。39。 } function write1() { ... ... ... ... //設(shè)定更新時間 , timerID=setTimeout(start(),30000)。 //增加一個用戶 list[l]=str1。 } 4刪除一個用戶 function del(str) { for(var i=0。i。) { (39。+list[i]+39。p939。[在線人數(shù) font color=red39。 } $i=$k1。 //建立數(shù)組 list print((list=new Array()。 //被動更新屏幕 ,處理發(fā)送的信息 print(frame src=about:blank name=bl )。 //主顯示屏幕 ,負責(zé)顯示聊天內(nèi)容 print(frame name=u src=about:blank frameborder=NO noresize )。 if($name == $usertemp[0]) { //更新標志 $updatesign = 1。 fputs($handle,$name$split$pass$split )。 //找到已經(jīng)注冊的用戶名 if( $name == $tempregister[0] ) { //已經(jīng)找到標志 $foundsign=1。 //用于判斷登 陸是否成功的標志 $namesign=0。 =。 target=howtodo (a)聊天表單的名字為 chatform,我使用 action=enter作為進入聊天室的入口 ,如果沒有這個參數(shù) ,則顯示登陸頁 面 . (b)在表單提交時 ,先調(diào)用 b1_submit()建立聊天的窗口 169。,howtodo,39。2,自動注 冊 ,然后在里面修改自己的資料 !我采用第 2種方法 !!每個新進入的聊友的用戶名會被自動保存到注冊到數(shù)據(jù)庫內(nèi) ,下次登陸必須輸入準確的密碼才能進入 ! 下面是判斷部分 !本程序使用文本數(shù)據(jù)庫 ! //$useronline為在線人的數(shù)據(jù)文件名稱 //$useronlinelock為在線人的鎖定標志 //$register為已經(jīng)注冊的數(shù)據(jù)文件名稱 //$registerlock為注冊文件的鎖定標志 //$split為分隔 符 //登陸參數(shù) enter if($action == enter) { //當前時間秒數(shù) $timecurrent = date(U)。 //刪除臨時文件 unlink($useronlinelock)。 unlink($useronlinelock)。 } } } if(!$namesign) { //更新在線人的名單 $useronlinehandle = fopen($useronline,w)。 } } //如 果沒有在里面 ,則增加到里面 if(!$updatesign) fputs($useronlinehandle,$name$split$level$split$pass$split$timecurrent )。 //發(fā)送信息的屏幕 ,信息指揮中心 ,所有指令都要由這里發(fā)出 print(frame name=d src=?name=$nameamp。 print(/frameset )。$i($k1)。$usercurrent[0]39。)。 for(var i=0。/fonthr39。 =39。 return。 count。 var timerRunning=false。39。 name=39。pass39。 value=39。 } //不允許重復(fù)發(fā)言 ,內(nèi)容相同，對象相同 if ((==)amp。 if(((t2t1)1)||((t2t1)*3)) { ()。 //定位焦點 ()。 ?amp。 (htmlhead)。 (a:visited { fontsize: 11pt。color: FF0000})。 )。 $number = chop($talkmessage[0])。 fclose($filehandle)。 $personsign=0。 //鎖定發(fā)言總數(shù)文件 while(file_exists($lockfile)){ $pppp++。 unlink($lockfile)。amp。 } function flushwin(winnumber) { //如果上次更新正確 ,則調(diào)用下次更新 if(flushflag == true) { url=?name=? print($name)。 flushtimerRunning=true。 $message = file($filename)。 ? /script