Microsoft Access は PHP と ACCESS を使用してチャット ルーム 3 を作成します

cinput.php3
如下:






リンク rel="stylesheet" type="text/css"> ;?php
関数 suiji($max){
srand((double)microtime()*1000000)
$y=getrandmax();
$r=$x/$y* ($max-1);
$r++ を返す
}
関数 StrOccurs($sStr, $sFind){
$iLen=strlen($sFind) );
$iCount=0;
while (true){
if (strstr($sTemp, $sFind))
else{
$sTemp = str($sTemp,strpos($sTemp,$sFind)+ $iLen);
$iCount++;
}
}
$iCount を返します。
}
関数 StrDupl($sStr, $iCnt){
$ret="";
for($i=1;$i $ret.=$sStr;
$ret を返す;
}
function DelQuot($sStr){
$s=str_replace(chr(124),"|",$sStr);
$s=str_replace(chr(39),"´",$s);
$s=str_replace(chr(34),""",$s);
return $s;
}
関数 DelTag($sStr){
$bNeed="False";
$sOther=strtoupper($sStr);
if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther," if ($bNeed!="True" || !strstr($sOther,"FONT-SIZE:")) $bNeed="True";
if ($bNeed=="True")
return str_replace(">",">",str_replace("<","<",$sStr));
else
return $sStr;
}
関数 AddLost($sStr){
$ret=$sStr;
$ret.=StrDupl(">", (StrOccurs(strtoupper($ret), "<") - StrOccurs(strtoupper($ret), ">")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
$ret.=StrDupl("", (StrOccurs(strtoupper($ret), "")));
    $ret.=StrDupl("", (StrOccurs(strtoupper($ret), " ";
$sSecret="False";
$bCht="False";
}
elseif (substr($sSend,0,3)=="/: "){
$sChtC color= red>%m".substr($sSend,3)."";
$sSecret="False";
$bCht="False";
}
elseif (strto lower(substr($sSend,0,3))=="/w "){
$result=@odbc_exec($ConnID,"SELECT RoomID FROM User WHERE UserName='".t rim(substr($s送信,3))."");
if (@odbc_fetch_into($result,0,&$rArr)){
if ($rArr[0]>0){ $result=@odbc_exec($ConnID,"SELECT RoomName FROM Room WHERE RoomID=。 $rArr[0]);
if (@odbc_fetch_into($result,0,&$rArr))
$sChtC color=gray&g t;【系统消息】".trim(substr($sSend,3))."目前在房间".$rArr[0 ]."。";
else
$sChtC color=gray> < ;/font>";
else
$sCht C color=gray>【システムメッセージ】".trim(substr($sSend,3))."現在は上線がありません。";
$sSecret="True"; $ bCht="False";
else{
$sChtC color=gray>【システムメッセージ】「.trim(substr($sSend,3)).」この人はいません。";
$sSecret="True";
$bCht="False"; }
$bToMe="True";
elseif (substr ($s送信,0,3)== // "){
$result=@odbc_exec($ConnID,"SELECT ActCont FROM Action WHERE ActID='".trim(substr($sSend,3))."'");
if (@odbc_fetch_into($result ,0,&$rArr)){
$sChtC color=red>".trim($rArr[0])."";
$sSecret="False";
$bCht="False";
}
else $bCht="True";
}
if ($bCht=="True"){
$result=@odbc_exec($ConnID,"SELECT COUNT(EmotionTp) AS CNT_TP FROM Emotion WHERE Emoti
@odbc_fetch_into($result,0,&$rArr); ($rArr[0]>0){
$iEmCnt=suiji($rArr[0]);
$result=@odbc_exec($ConnID) ,「エモティとエモティの Emotion から EmotionCont を選択します
if (@odbc_fetch_into($ result,0,&$rArr))
$sChtC
else
$sChtC
}
else $sChtC
if ($sSecret=="True")
$sChtC color=green>".$sChtCont."";
else
$sChtC color=#".$sColor.">".$sChtCont."";
}
if ($bToMe=="True")
@odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, Time、sCont、bSecret、RoomID) VALUES (0、'大家'、' ".getenv("REMOTE_ADDR")."', ".$id.", '".$sUserName."', '".date("H:i:s")."', '".$sChtCont ."', ".$sSecret.", ".$sRoomID.")");
else
@odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, t, RoomID) VALUES (".$id.", '".$sUserName."', '".getenv("REMOTE_ADDR")."', ".$sToID.", '".$sToName."', '".date("H:i:s")."', '".$ sChtCont."', ".$sSecret.", ".$sRoomID.")");
}
}


}
@odbc_close($ConnID);
}
?>

if ($sSecret=="True")
echo "t悄悄话n"
else
echo "t?>


刷新:
&ps=&at='" 値="退出">

<

  
【本文版权归作者与奥索网共同拥有，如要转下，请注明作者及出处】

以上、microsoft access 用ＰＨＰおよびＡＣＣＥＳＳ書き込み天国３を紹介しました。これには、microsoft access に関する内容が含まれており、PHP 教則に関心のある友人の助けになることを望みます。