程序師世界是廣大編程愛好者互助、分享、學習的平台，程序師世界有你更精彩！
設為首頁 加入收藏
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 用PHP和ACCESS寫聊天室(九)

用PHP和ACCESS寫聊天室(九)

編輯：關於Access數據庫
enterrm.PHP3
代碼如下:
<?PHP
$ConnID=@odbc_connect("jtfcht","admin","");
if ($ConnID){
$result=@odbc_exec($ConnID,"SELECT PassWord,LstTime,RoomID,RefRate FROM User WHERE UserID=".$id);
if (@odbc_fetch_into($result,0,&$rArr)){
$sRoomID=$rArr[2];
$sRefRate=(int)$rArr[3];
if ($sRefRate<2) $sRefRate=2;
if (($rArr[0]==$ps) && ($rArr[1]>=(time()-1800))){
$sNewRoomID=substr($selRoom,2);
if ($sNewRoomID!=$sRoomID){
$result=@odbc_exec($ConnID,"SELECT PassWord FROM Room WHERE RoomID=".$sNewRoomID);
if (@odbc_fetch_into($result,0,&$rArr)){
if ((strlen(trim($rArr[0]))==0) || ($rArr[0]==$sPass)){
@odbc_exec($ConnID,"UPDATE User SET RoomID=".$sNewRoomID.",ToID=0,ToName='大家' WHERE UserID=".$id);
if ((int)$sRoomID!=1){
$result=@odbc_exec($ConnID,"SELECT COUNT(UserID) FROM User WHERE RoomID=".$sRoomID);
@odbc_fetch_into($result,0,&$rArr);
if ($rArr[0]==0) @odbc_exec($ConnID,"DELETE * FROM Room Where RoomID=".$sRoomID);
}
}
else{
?>
<Html>
<head>
<title>輸入房間口令</title>
<meta http-equiv="Content-Type" content="text/Html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/CSS">
<script language="JavaScript">
<!--

function PassSetFocus( ) {
document.frmEnterSm.sPass.focus();
}

//-->
</script>
<link rel="stylesheet" href="main.css" type="text/CSS">
</head>
<body >
<p> </p>
<p align="center"><font color="#996666">輸入房間口令</font></p>
<form name="frmEnterSm" action="enterrm.PHP3" method="post">
<table width="100%" border="0" align="center">
<tr>
<td colspan="2"><input type="hidden" name="selRoom" value="<?PHP echo $selRoom; ?>"><input type="hidden" name="id" value="<?PHP echo $id; ?>"><input type="hidden" name="ps" value="<?PHP echo $ps; ?>"></td>
</tr>
<tr>
<td width="40%" align="right">口令：</td>
<td width="60%"><input type="passWord" name="sPass" maxlength="10" size="8"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="cmdYes" value="進入"></td>
</tr>
</table>
</form>
<p align="center">按<a href="room.PHP3?id=<?PHP echo $id; ?>&ps=<?PHP echo $ps; ?>&at=<?PHP echo time(); ?>">這裡</a>放棄</p>
</body>
</Html>
<?PHP
exit();
}
}
else{
?>
<Html>
<head>
<title>加入房間出錯</title>
<meta http-equiv="Content-Type" content="text/Html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/CSS">
</head>
<body>
<p> </p>
<p align="center">這個房間已經被拆了！</p>
<p align="center">按<a href="room.PHP3?id=<?PHP echo $id; ?>&ps=<?PHP echo $ps; ?>&at=<?PHP echo time(); ?>">這裡</a>返回</p>
</body>
</Html>
<?PHP
exit();
}
}
}
else echo "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>房間</title><link rel='stylesheet' href='main.css' type='text/CSS'></head><body></body></Html>";
}
else echo "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>房間</title><link rel='stylesheet' href='main.css' type='text/CSS'></head><body></body></Html>";
@odbc_close($ConnID);
}
else echo "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>房間</title><link rel='stylesheet' href='main.css' type='text/CSS'></head><body></body></Html>";
include("room.PHP3");
?>
  1. 上一頁:
  2. 下一頁:
關於Access數據庫
Access 2000教程：4.5 怎樣在表中“復制”和“粘貼”數據

在“城市”和“省份”兩個字段裡，有很多重復的內容，每次都輸
Access數據庫如何壓縮與修復

 　　1、打開您的.mdb數據庫。　　2、點擊上方
Access使用宏控制程序之創建宏組

如果有許許多多的宏，那麼將相關的宏分組到不同的宏組可以有助
Access 2000教程：20.4 解決2000年問題

　Access2000可以正確存儲涉及到2000年以後的日
access數據庫有什麼用？

 　　access數據庫是由微軟發布的關聯式數據庫
Access 2000教程：15.5 了解宏包含的操作

雖然建好了整個宏，但這些操作之間是如何執行的？ 　　其實這
相關文章
閱讀排行榜
在Access報表中實現圓角的矩形 在VB中動態創建數據庫 在Access2007“快速訪問工具欄”添加更多命令 如何在Access2007表中同時顯示明細、小計、總計？ Access2000遷移到Oracle9i要點 十萬條Access數據表分頁的兩個解決方法 MicrosoftAccess數據庫常規規格 ACCESS數據庫自動編號初始化其實很容易 遞歸算法 Access數據庫出現0x80004005問題的解決方法 獲取Windows / System / Temp 目錄路徑
熱門圖文
Oracle字符集討論的經典版 mysql中的delete和truncate oracle安全管理 Mysql常用函數匯總 對Oracle認證體系的攻略 SQL Server代理服務無法啟動怎麼辦，sqlserver ORACLE等待事件: log file parallel write，oracleparallel MySQL配置文件my.cnf優化詳解(mysql5.5)，my.cnfmysql5.5
欄目導航
關於Access數據庫Access數據庫入門
Copyright © 程式師世界 All Rights Reserved