用PHP和ACCESS写聊天室（七）
时间:2007-12-23 来源:不详 作者:迈克DB
代码如下：
<?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.="<br>n";
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.="<br>n";
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'>你已经超时了</p><p align='center'>按<a href='.' target='_top'>这里</a>重新登录</p></body></html>";
}
else $sCont="<p align='center'>口令不对！</p><p align='center'>按<a href='.' target='_top'>这里</a>重新登录</p></body></html>";
}
else $sCont="<p align='center'>该用户不存在！</p><p align='center'>按<a href='.' target='_top'>这里</a>重新登录</p></body></html>";
上一篇：改mdb为asp所带来的灾难 下一篇：用PHP和ACCESS写聊天室（八）
文章评论
共有位Admini5网友发表了评论 查看完整内容