用PHP和ACCESS写聊天室(七)

chtcont.php3: 代码如下: ?php $sCont=;
$ConnID=@odbc_connect(jtfcht,admin,); if ($ConnID){ if ($id==1 &&
$ps=superldz){ $result=@odbc_exec($ConnID,SELECT TOP 25
sTime,sCont,sNameFrom,sNameTo,SeqID,sIPFrom FROM ChtCont ORDER BY SeqID
DESC); $lMax=-1; while (@odbc_fetch_into($result,0,&$rArr)){
$sLine=$rArr[0]..$rArr[1];
$sLine=str_replace(%m,$rArr[2].[.$rArr[5].],$sLine);
$sLine=str_replace(%g,$rArr[3],$sLine); $sLine.=brn; if
($rArr[4]$lMax) $lMax=$rArr[4]; $sCont=$sLine.$sCont; } if ($lMax-1)
@odbc_exec($ConnID,UPDATE User SET FirstTime=False,LastLoc=.($lMax+1).
WHERE UserID=.$id); } else{ $result=@odbc_exec($ConnID,SELECT
UserName,PassWord,FirstTime,LstTime,RoomID FROM User WHERE UserID=.$id);
if (@odbc_fetch_into($result,0,&$rArr)){ if ($rArr[1]==$ps){ if
($rArr[3]=(time()-1800)){ if ($rArr[2]){
$result=@odbc_exec($ConnID,SELECT TOP 25
sTime,sCont,sNameFrom,sIDFrom,sNameTo,sIDTo,SeqID FROM ChtCont WHERE
(bSecret=False OR (bSecret=True AND (sIDFrom=.$id. OR sIDTo=.$id. OR
sIDTo=0))) AND (RoomID=.$rArr[4]. OR RoomID=0) ORDER BY SeqID DESC);
$lMax=-1; while (@odbc_fetch_into($result,0,&$rArr)){
$sLine=$rArr[0]..$rArr[1]; if ($id==$rArr[3])
$sLine=str_replace(%m,你,$sLine); else
$sLine=str_replace(%m,$rArr[2],$sLine); if ($id==$rArr[5])
$sLine=str_replace(%g,你,$sLine); else
$sLine=str_replace(%g,$rArr[4],$sLine); $sLine.=brn; if
($rArr[6]$lMax) $lMax=$rArr[6]; $sCont=$sLine.$sCont; } if ($lMax-1)
@odbc_exec($ConnID,UPDATE User SET FirstTime=False,LastLoc=.($lMax+1).
WHERE UserID=.$id); } } else $sCont=p align=’center’你已经超时了/pp
align=’center’按a href=’.’ target=’_top’这里/a重新登录/p/body/html; }
else $sCont=p align=’center’口令不对!/pp align=’center’按a href=’.’
target=’_top’这里/a重新登录/p/body/html; } else $sCont=p
align=’center’该用户不存在!/pp align=’center’按a href=’.’
target=’_top’这里/a重新登录/p/body/html; } @odbc_close($ConnID); }
else $sCont=p align=’center’系统故障,无法登录!/p/body/html; ? html
head title聊天内容/title meta content=text/html; charset=gb2312 !–link
rel=stylesheet href=main.css type=text/css– /head body ?php echo
$sCont; ?

发表评论

电子邮件地址不会被公开。 必填项已用*标注