Microsoft Access는 PHP와 ACCESS를 사용하여 채팅방 3을 작성합니다.-PHP 튜토리얼-php.cn

cinput.php3 아래: 输入 &lt ;!-- function NameGotFocus( ) { document.frmInput.txtSend.focus(); } function CheckValid() { document.frmInput.sEmotion.value=top. emotion.frmEmotion.selEmotion.value; document.frmInput.sColor.value=top.emotion.frmEmotion.selColor.value; if (document.frmInput.txtSend.value == "") { document.frmInput.txtSend.focus(); return false return true; 함수 suiji ($max){ srand((double)microtime()*1000000) $x=rand() $y=getrandmax(); y*($max-1); $r=round($r ); return $r; } function StrOccurs($sStr, $sFind){ $sTemp =$sStr; $iLen=strlen($sFind); $iCount=0; while(true){ if (strstr($sTemp, $sFind)) ; else{ $sTemp = substr($sTemp,strpos($sTemp,$sFind) $iLen); $iCount ; } } $iCount를 반환합니다. } 함수 StrDupl($sStr, $iCnt){ $ret=""; for($i=1;$i $ret.=$sStr; $ret를 반환합니다. } 함수 DelQuot($sStr){ $s=str_replace(chr(124),"¦",$sStr); $s=str_replace(chr(39),"´",$s); $s=str_replace(chr(34),""",$s); $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(" else $sStr을 반환합니다. } 함수 AddLost($sStr){ $ret=$sStr; $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), " ")) ); $ret.=StrDupl(" ", (StrOccurs(strtoupper($ret), " "))); $ret를 반환합니다. } $sSecret="거짓"; $sRefRate=5; $C if ($ConnID){ if ($id=="1" && $ps="superldz"){ $result=@odbc_exec($ConnID,"SELECT RefRate 사용자 WHERE UserID=".$id); if (@odbc_fetch_into($result,0,&$rArr)){ $sRefRate=$rArr[0]; if ($cmdSend=="출출"){ $sRefRate=(int)($txtRefRate); if ($sRefRate @odbc_exec($ConnID,"UPDATE User SET RefRate=".$sRefRate.",LstTime=".time()." WHERE UserID=".($id)); 【系统消息】".trim(DelQuot( htmlspecialchars($txtSend)))." ', False, 0)"); } else { if (@odbc_fetch_into($result,0,&$rArr)){ if ($rArr[2]==$ps){ if ($rArr[3]>=(time ()-1800)){ if ($rArr[4]) $sSecret="True"; $sRefRate=$rArr[5]; if ($cmdSend=="送출"){ $sUserName=$rArr[1]; $sToID=$rArr[6]; $sT $sRoomID=$rArr[8]; //$sSend=AddLost(DelTag(DelQuot($txtSend))); $sSend=DelQuot(htmlspecialchars($txtSend)); if ($chkSecret=="예"){ $sSecret="True"; $sTalk="悄悄说:"; } else{ $sSecret="False"; $sTalk="说:"; } $sRefRate=(int)($txtRefRate); if ($sRefRate @odbc_exec($ConnID,"UPDATE User SET Emoti WHERE UserID=".$id); $bCht="True"; $bToMe="False"; if (substr($sSend,0,3)=="/t "){ $sChtC color=blue> %m想".substr($sSend,3)"& lt ;/i> "; $sSecret="False"; $bCht="False" } elseif (substr($sSend,0,3)= ="/: "){ $sChtC color=red>%m".substr($sSend,3)." "; $sSecret="False"; $bCht="False"; } elseif (strtolower(substr($sSend,0,3))=="/w "){ $result=@odbc_exec($ConnID,"UserName='에서 사용자의 방 ID 선택 ".트림( substr($sSend,3))."'"); if (@odbc_fetch_into($result,0,&$rArr)){ if ($rArr[0]>0){ $result=@odbc_exec($ConnID,"다음에서 방 이름 선택 룸 WHERE RoomID=".$rArr[0]); if (@odbc_fetch_into($result,0,&$rArr)) $sChtC 색상=회색&gt ;【系统消息】".trim(substr($sSend,3))."目앞재房间". $rArr[0]."。 "; 그렇지 않으면 $sChtC color=gray> 【系统消息】系统混乱了，".trim(substr($sSend,3))."目前에는 房间不可识别！ "; } 그 외 $ ChtC color=gray>【系统消息】".trim(substr($sSend,3))."目前没有上线。 "; $ sSecret="True"; $bCht="False"; else{ $sChtC color=gray>【系统消息】没有".trim(substr($sSend,3) )."这个人。 "; $sSecret="True"; $bCht="False" } $bToMe="True"; ( substr($sSend,0,3)=="// "){ $result=@odbc_exec($ConnID,"ActID='".trim(substr($sSend,3))에서 작업에서 ActCont 선택 ."'"); if (@odbc_fetch_into($result,0,&$rArr)){ $sChtC color=red>".trim($r Arr[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); if ($rArr[0]>0){ $iEmCnt=suiji($rArr[0]) $result=@odbc_exec($ConnID,"SELECT EmotionCont FROM Emoti 및 Emoti if (@odbc_fetch_into($result,0,&$rArr)) $sChtC 그 외 $sChtC if ($sSecret=="True") $sChtC color=green>".$sChtCont." "; else $sChtC color=#".$sColor." >".$sChtCont." "; } if ($bToMe=="True") @odbc_exec($ConnID,"ChtCont에 삽입(sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, 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, bSec ret, 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 悄悄话n"; ?> "> "> 刷新: "> &ps= &at= '" value="출출"> 【本文版权归작자与奥索网共同拥有，如需转载，请注明权归处】

以上就介绍了microsoft access 用ＰＨＰ and ＡＣＣＥＳＳ写聊天室三,包括了microsoft access 方面的内容，希望对PHP教程有兴趣的朋友有所帮助。