当前位置:  编程技术>php
本页文章导读:
    ▪用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(三)       cinput.php3 如下: <html> <head> <title>输入</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="/blog_article/main.css" type="text/css"> <script language="JavaScript".........
    ▪对javascript和select部件的结合运用       <?php //对Javascript和select部件的结合运用 //在写程序的过程，我想实现在select对象选中选项后， //不需要提交按钮，而直接触发动作，且在动作发生后 //的页面中要保持所选择的选项。经过.........
    ▪用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(二)       chatmain.php3 如下: <html> <head> <title>PHP+ACCESS聊天室</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <frameset cols="*,180" frameborder="NO" framespacing="0"> .........

[1]用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(三)
    来源: 互联网  发布时间: 2013-11-30
cinput.php3
如下:
<html>
<head>
<title>输入</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/blog_article/main.css" type="text/css">
<script language="JavaScript">
<!--
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;
}

//-->
</script>
<link rel="stylesheet" href="/blog_article/main.css" type="text/css">
</head>
<body onload="NameGotFocus()">
<?php
function suiji($max){
    srand((double)microtime()*1000000);
    $x=rand();
    $y=getrandmax();
    $r=$x/$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))
            break;
        else{
            $sTemp = substr($sTemp,strpos($sTemp,$sFind)+$iLen);
            $iCount++;
        }
    }
    return $iCount;
}

function StrDupl($sStr, $iCnt){
    $ret="";
    for($i=1;$i<=$iCnt;$i++)
        $ret.=$sStr;
    return $ret;
}

function DelQuot($sStr){
    $s=str_replace(chr(124),"¦",$sStr);
    $s=str_replace(chr(39),"´",$s);
    $s=str_replace(chr(34),""",$s);
    return $s;
}

function DelTag($sStr){
    $bNeed="False";
    $sOther=strtoupper($sStr);
    if ($bNeed!="True" || !strstr($sOther,"<TABLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</TABLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<SCRIPT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</SCRIPT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<BODY")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</BODY")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<HTML")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</HTML")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<HEAD")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</HEAD")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FORM")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FORM")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<INPUT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</INPUT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<OPTION")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</OPTION")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<SELECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</SELECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<APPLET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</APPLET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<OBJECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</OBJECT")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<MENU")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</MENU")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FRAMESET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FRAMESET")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<FRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</FRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<IFRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</IFRAME")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<STYLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"</STYLE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"<BASE")) $bNeed="True";
    if ($bNeed!="True" || !strstr($sOther,"FONT-SIZE:")) $bNeed="True";
    if ($bNeed=="True")
        return str_replace(">",">",str_replace("<","<",$sStr));
    else
        return $sStr;
}

function AddLost($sStr){
    $ret=$sStr;
    $ret.=StrDupl(">", (StrOccurs(strtoupper($ret), "<") - StrOccurs(strtoupper($ret), ">")));
    $ret.=StrDupl("</FONT>", (StrOccurs(strtoupper($ret), "<FONT") - StrOccurs(strtoupper($ret), "</FONT>")));
    $ret.=StrDupl("</B>", (StrOccurs(strtoupper($ret), "<B") - StrOccurs(strtoupper($ret), "</B>")));
    $ret.=StrDupl("</I>", (StrOccurs(strtoupper($ret), "<I") - StrOccurs(strtoupper($ret), "</I>")));
    $ret.=StrDupl("</U>", (StrOccurs(strtoupper($ret), "<U") - StrOccurs(strtoupper($ret), "</U>")));
    $ret.=StrDupl("</S>", (StrOccurs(strtoupper($ret), "<S") - StrOccurs(strtoupper($ret), "</S>")));
    $ret.=StrDupl("</STRIKE>", (StrOccurs(strtoupper($ret), "<STRIKE") - StrOccurs(strtoupper($ret), "</STRIKE>")));
    $ret.=StrDupl("</STRONG>", (StrOccurs(strtoupper($ret), "<STRONG") - StrOccurs(strtoupper($ret), "</STRONG>")));
    $ret.=StrDupl("</SMALL>", (StrOccurs(strtoupper($ret), "<SMALL") - StrOccurs(strtoupper($ret), "</SMALL>")));
    $ret.=StrDupl("</CITE>", (StrOccurs(strtoupper($ret), "<CITE") - StrOccurs(strtoupper($ret), "</CITE>")));
    $ret.=StrDupl("</EM>", (StrOccurs(strtoupper($ret), "<EM") - StrOccurs(strtoupper($ret), "</EM>")));
    $ret.=StrDupl("</CODE>", (StrOccurs(strtoupper($ret), "<CODE") - StrOccurs(strtoupper($ret), "</CODE>")));
    $ret.=StrDupl("</SAMP>", (StrOccurs(strtoupper($ret), "<SAMP") - StrOccurs(strtoupper($ret), "</SAMP>")));
    $ret.=StrDupl("</KBD>", (StrOccurs(strtoupper($ret), "<KBD") - StrOccurs(strtoupper($ret), "</KBD>")));
    $ret.=StrDupl("</VAR>", (StrOccurs(strtoupper($ret), "<VAR") - StrOccurs(strtoupper($ret), "</VAR>")));
    $ret.=StrDupl("</DFN>", (StrOccurs(strtoupper($ret), "<DFN") - StrOccurs(strtoupper($ret), "</DFN>")));
    $ret.=StrDupl("</BIG>", (StrOccurs(strtoupper($ret), "<BIG") - StrOccurs(strtoupper($ret), "</BIG>")));
    $ret.=StrDupl("</SUP>", (StrOccurs(strtoupper($ret), "<SUP") - StrOccurs(strtoupper($ret), "</SUP>")));
    $ret.=StrDupl("</SUB>", (StrOccurs(strtoupper($ret), "<SUB") - StrOccurs(strtoupper($ret), "</SUB>")));
    $ret.=StrDupl("</H1>", (StrOccurs(strtoupper($ret), "<H1") - StrOccurs(strtoupper($ret), "</H1>")));
    $ret.=StrDupl("</H2>", (StrOccurs(strtoupper($ret), "<H2") - StrOccurs(strtoupper($ret), "</H2>")));
    $ret.=StrDupl("</H3>", (StrOccurs(strtoupper($ret), "<H3") - StrOccurs(strtoupper($ret), "</H3>")));
    $ret.=StrDupl("</H4>", (StrOccurs(strtoupper($ret), "<H4") - StrOccurs(strtoupper($ret), "</H4>")));
    $ret.=StrDupl("</H5>", (StrOccurs(strtoupper($ret), "<H5") - StrOccurs(strtoupper($ret), "</H5>")));
    $ret.=StrDupl("</H6>", (StrOccurs(strtoupper($ret), "<H6") - StrOccurs(strtoupper($ret), "</H6>")));
    $ret.=StrDupl("</H7>", (StrOccurs(strtoupper($ret), "<H7") - StrOccurs(strtoupper($ret), "</H7>")));
    return $ret;
}

$sSecret="False";
$sRefRate=5;
$ConnID=@odbc_connect("jtfcht","admin","");
if ($ConnID){
    if ($id=="1" && $ps="superldz"){
        $result=@odbc_exec($ConnID,"SELECT RefRate FROM User WHERE UserID=".$id);
        if (@odbc_fetch_into($result,0,&$rArr)){
            $sRefRate=$rArr[0];
            if ($cmdSend=="送出"){
                $sRefRate=(int)($txtRefRate);
                if ($sRefRate<2) $sRefRate=2;
                @odbc_exec($ConnID,"UPDATE User SET RefRate=".$sRefRate.",LstTime=".time()." WHERE UserID=".($id));
                @odbc_exec($ConnID,"INSERT INTO ChtCont (sIDFrom, sNameFrom, sIPFrom, sIDTo, sNameTo, sTime, sCont, bSecret, RoomID) VALUES (".$id.", '管理员', '".getenv("REMOTE_ADDR")."', 0, '大家', '".date("H:i:s")."', '<font color=gray>【系统消息】".trim(DelQuot(htmlspecialchars($txtSend)))."</font>', False, 0)");
            }
        }
    }
    else{
        $result=@odbc_exec($ConnID,"SELECT UserID,UserName,PassWord,LstTime,Secret,RefRate,ToID,ToName,RoomID FROM User WHERE UserID=".($id));
        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];
                        $sToName=$rArr[7];
                        $sRoomID=$rArr[8];
                        //$sSend=AddLost(DelTag(DelQuot($txtSend)));
                        $sSend=DelQuot(htmlspecialchars($txtSend));
                        if ($chkSecret=="Yes"){
                            $sSecret="True";
                            $sTalk="悄悄说:";
                        }
                        else{
                            $sSecret="False";
                            $sTalk="说:";
                        }
                        $sRefRate=(int)($txtRefRate);
                        if ($sRefRate<2) $sRefRate=2;
                        @odbc_exec($ConnID,"UPDATE User SET EmotionID=".$sEmotion.",ColorID='".$sColor."',Secret=".$sSecret.",RefRate=".$sRefRate.",LstTime=".time()." WHERE UserID=".$id);
                        $bCht="True";
                        $bToMe="False";
                        if (substr($sSend,0,3)=="/t "){
                            $sChtCont="<font color=blue><i>%m想".substr($sSend,3)."</i></font>";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (substr($sSend,0,3)=="/: "){
                            $sChtCont="<font color=red>%m".substr($sSend,3)."</font>";
                            $sSecret="False";
                            $bCht="False";
                        }
                        elseif (strtolower(substr($sSend,0,3))=="/w "){
                            $result=@odbc_exec($ConnID,"SELECT RoomID FROM User WHERE UserName='".trim(substr($sSend,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))
                                        $sChtCont="<font color=gray>【系统消息】".trim(substr($sSend,3))."目前在房间".$rArr[0]."。</font>";
                                    else
                                        $sChtCont="<font color=gray>【系统消息】系统混乱了，".trim(substr($sSend,3))."目前在的房间不可识别！</font>";
                                }
                                else
                                    $sChtCont="<font color=gray>【系统消息】".trim(substr($sSend,3))."目前没有上线。</font>";
                                $sSecret="True";
                                $bCht="False";
                            }
                            else{
                                $sChtCont="<font color=gray>【系统消息】没有".trim(substr($sSend,3))."这个人。</font>";
                                $sSecret="True";
                                $bCht="False";
                            }
                            $bToMe="True";
                        }
                        elseif (substr($sSend,0,3)=="// "){
                            $result=@odbc_exec($ConnID,"SELECT ActCont FROM Action WHERE ActID='".trim(substr($sSend,3))."'");
                            if (@odbc_fetch_into($result,0,&$rArr)){
                                $sChtCont="<font color=red>".trim($rArr[0])."</font>";
                                $sSecret="False";
                                $bCht="False";
                            }
                            else $bCht="True";
                        }
                        if ($bCht=="True"){
                            $result=@odbc_exec($ConnID,"SELECT COUNT(EmotionTp) AS CNT_TP FROM Emotion WHERE EmotionTp=".$sEmotion);
                            @odbc_fetch_into($result,0,&$rArr);
                            if ($rArr[0]>0){
                                $iEmCnt=suiji($rArr[0]);
                                $result=@odbc_exec($ConnID,"SELECT EmotionCont FROM Emotion WHERE EmotionTp=".$sEmotion." AND EmotionID=".$iEmCnt);
                                if (@odbc_fetch_into($result,0,&$rArr))
                                    $sChtCont="%m".trim($rArr[0])."对%g".$sTalk.$sSend;
                                else
                                    $sChtCont="%m对%g".$sTalk.$sSend;
                            }
                            else $sChtCont="%m对%g".$sTalk.$sSend;
                            if ($sSecret=="True")
                                $sChtCont="<font color=green>".$sChtCont."</font>";
                            else
                                $sChtCont="<font color=#".$sColor.">".$sChtCont."</font>";
                        }
                        if ($bToMe=="True")
                            @odbc_exec($ConnID,"INSERT INTO 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, bSecret, RoomID) VALUES (".$id.", '".$sUserName."', '".getenv("REMOTE_ADDR")."', ".$sToID.", '".$sToName."', '".date("H:i:s")."', '".$sChtCont."', ".$sSecret.", ".$sRoomID.")");
                    }
                }
            }
        }
    }
    @odbc_close($ConnID);
}
?>
<div align="center"><center><form method="post" action="/blog_article/cinput.html" name="frmInput" onsubmit="return CheckValid();">
    <input type="hidden" name="sEmotion" value="0"><input type="hidden" name="sColor" value="000000">
<?php
    if ($sSecret=="True")
        echo "t<input type="checkbox" name="chkSecret" value="Yes" checked>悄悄话n";
    else
        echo "t<input type="checkbox" name="chkSecret" value="Yes">悄悄话n";
?>
    <input type="text" name="txtSend" maxlength="120" size="39"><input type="hidden" name="id" value="<?php echo $id; ?>"><input type="hidden" name="ps" value="<?php echo $ps; ?>">
    <input type="submit" name="cmdSend" value="送出">
    刷新:<input type="text" name="txtRefRate" maxlength="2" size="2" value="<?php echo $sRefRate; ?>">
    <input type="button" name="cmdExit" onclick="parent.location='leave.php3?id=<?php echo $id; ?>&ps=<?php echo $ps; ?>&at=<?php echo time(); ?>'" value="退出">
</form></center></div>
</body>
</html>  

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



    
[2]对javascript和select部件的结合运用
    来源: 互联网  发布时间: 2013-11-30
<?php

//对Javascript和select部件的结合运用
//在写程序的过程，我想实现在select对象选中选项后，
//不需要提交按钮，而直接触发动作，且在动作发生后
//的页面中要保持所选择的选项。经过形容，终于通过
//使用Javascript及select对象的onchange属性及
//value值而实现了这种功能。
//代码如下(文件名为"test.php")：


  switch ($mon){
    case '': echo '请选择您的星座：';break;
    case '1':echo '您的星座是水瓶座';break;
    case '2':echo '您的星座是双鱼座';break;
    case '3':echo '您的星座是白羊座';break;
    case '4':echo '您的星座是金牛座';break;
    case '5':echo '您的星座是双子座';break;
    case '6':echo '您的星座是巨蟹座';break;
    case '7':echo '您的星座是狮子座';break;
    case '8':echo '您的星座是处女座';break;
    case '9':echo '您的星座是天平座';break;
    case '10':echo '您的星座是天蝎座';break;
    case '11':echo '您的星座是射手座';break;
    case '12':echo '您的星座是魔蝎座';break;
    default:break;
  }       
?>

<form name="form1">
  <select name="month_select"
     onChange="javascript:location.href=
                   this.options[this.selectedIndex].value">
  <option>--请选择你的星座--</option>
  <option value="test.php?mon=1"
     <?php if($mon=="1") echo " selected"; ?>>水瓶座</option>
  <option value="test.php?mon=2"
     <?php if($mon=="2") echo " selected"; ?>>双鱼座</option>
  <option value="test.php?mon=3"
     <?php if($mon=="3") echo " selected"; ?>>白羊座</option>
  <option value="test.php?mon=4"
     <?php if($mon=="4") echo " selected"; ?>>金牛座</option>
  <option value="test.php?mon=5"
     <?php if($mon=="5") echo " selected"; ?>>双子座</option>
  <option value="test.php?mon=6"
     <?php if($mon=="6") echo " selected"; ?>>巨蟹座</option>
  <option value="test.php?mon=7"
     <?php if($mon=="7") echo " selected"; ?>>狮子座</option>
  <option value="test.php?mon=8"
     <?php if($mon=="8") echo " selected"; ?>>处女座</option>
  <option value="test.php?mon=9"
     <?php if($mon=="9") echo " selected"; ?>>天平座</option>
  <option value="test.php?mon=10"
     <?php if($mon=="10") echo " selected"; ?>>天蝎座</option>
  <option value="test.php?mon=11"
     <?php if($mon=="11") echo " selected"; ?>>射手座</option>
  <option value="test.php?mon=12"
     <?php if($mon=="12") echo " selected"; ?>>魔蝎座</option>
  </select>
</form>



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

    
[3]用ＰＨＰ和ＡＣＣＥＳＳ写聊天室(二)
    来源: 互联网  发布时间: 2013-11-30
chatmain.php3
如下:
<html>
<head>
<title>PHP+ACCESS聊天室</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset cols="*,180" frameborder="NO" framespacing="0">
    <frameset rows="*,30,30" frameborder="NO" framespacing="0">
        <frame name="chtcont" scrolling="AUTO" src="/blog_article/chtcont/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
        <frameset cols="*,1" frameborder="NO" framespacing="0">
            <frame name="cinput" scrolling="NO" noresize src="/blog_article/cinput/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
            <frame name="leave" scrolling="NO" noresize src="/blog_article/reflv/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
        </frameset>
        <frame name="emotion" scrolling="NO" src="/blog_article/emotion/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
    </frameset>   
    <frameset rows="154,*" frameborder="NO" framespacing="0">  
        <frame name="room" scrolling="NO" noresize src="/blog_article/room/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
        <frame name="member" scrolling="NO" src="/blog_article/member/id/lt;php echo $sUserID; /gt;/amp;ps/lt;php echo $sPass; /gt;.html">
    </frameset>
    <noframes>
    <body>
        <p>This page uses frames, but your browser doesn't support them.<br>本页面使用了帧，但是您的浏览器不支持。</p>
    </body>
    </noframes>
</frameset>
</html>  

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

    
最新技术文章:
▪PHP函数microtime()时间戳的定义与用法
▪PHP单一入口之apache配置内容
▪PHP数组排序方法总结(收藏)
▪php数组排序方法大全(脚本学堂整理奉献)
▪php数组排序的几个函数(附实例)
▪php二维数组排序(实例)
▪php根据键值对二维数组排序的小例子
▪php验证码(附截图)
▪php数组长度的获取方法(三个实例)
▪php获取数组长度的方法举例
▪判断php数组维度(php数组长度)的方法
▪php获取图片的exif信息的示例代码
▪PHP 数组key长度对性能的影响实例分析
▪php函数指定默认值的方法示例
▪php提交表单到当前页面、提交表单后页面重定...
▪php四舍五入的三种实现方法
▪php获得数组长度(元素个数)的方法
▪php日期函数的简单示例代码
▪php数学函数的简单示例代码
▪php字符串函数的简单示例代码
▪php文件下载代码(多浏览器兼容、支持中文文...
▪php实现文件下载、支持中文文件名的示例代码...
▪php文件下载(防止中文文件名乱码)的示例代码
▪解决PHP文件下载时中文文件名乱码的问题
▪php数组去重(一维、二维数组去重)的简单示例
▪php小数点后取两位的三种实现方法
▪php Redis 队列服务的简单示例
▪PHP导出excel时数字变为科学计数的解决方法
▪PHP数组根据值获取Key的简单示例
▪php数组去重的函数代码示例
 


站内导航:


特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除！

©2012-2021,,E-mail:www_#163.com(请将#改为@)

浙ICP备11055608号-3