操作Oracle的php類

<?
//【警告】:未經許可請勿隨便修改
//------------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------------
//
// 【檔案名稱】: c_ora_db.inc
// 【作 用】: Oracle公用函數類
// 【作 者】: 天灰
//
// 【最後修改日期】： 2001/05/11[cxx]
// 【變數定義規則】：‘C_'=字元型,‘I_'=整型,‘N_'=數字型,‘L_'=布爾型,‘A_'=數組型
//------------------------------------------------------------------------------------------
//------------------------------------------------------------------------------------------
// ※db_logon() 開啟資料庫連接
// ※db_query() 通用select
// ※db_change() 資料庫改變的通用函數（insert,delete,update）
// ※db_insert() insert,直接調用db_change()
// ※db_delete() delete,直接調用db_change()
// ※db_update() update,直接調用db_change()
// ※db_commit() 事務遞交
// ※db_rollback() 交易回復
// ※db_logoff() 斷開資料庫連接
//------------------------------------------------------------------------------------------

Class c_ora_db
{

//------------------------------------------------------------------------------------------
// 變數定義
//------------------------------------------------------------------------------------------
var $C_user = ""; //資料庫使用者名稱
var $C_passwd = ""; //資料庫口令
var $C_db = ""; //資料庫名
var $I_linkID = 0; //連線控制代碼
var $I_stmtID = 0; //查詢控制代碼
var $color =""; //全域顏色
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_logon()
// 作 用：開啟資料庫連接
// 參 數：無
// 傳回值：連線控制代碼（整型）
// 備 註：無
//------------------------------------------------------------------------------------------
function db_logon()
{
$this->I_linkID = @OCILogon($this->C_user,$this->C_passwd,$this->C_db);
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗，請與DBA聯絡！');}
return $this->I_linkID;
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_query($C_sql,$A_define="",$I_start=-1,$I_end=-1)
// 作 用：select
// 參 數：$C_sql sql語句
// $A_define 需綁定的欄位。數組型
// $I_start 開始取記錄 -1則取出查詢的所有記錄
// $I_end 結束取紀錄
// 傳回值：二維數組($A_rs)
// 備 註：通過數字0,1,2....可訪問對應欄位的值; 或通過查詢欄位名也可訪問對應欄位的值
// 如通過$A_rs[0][0]或$A_rs[0]['NAME']或$A_rs[0]['name']都可訪問首條記錄NAME欄位
// $I_start,$I_end是配合分頁使用的參數。
//------------------------------------------------------------------------------------------
function db_query($C_sql,$A_define="",$I_start=-1,$I_end=-1)
{
if (!$C_sql){AlertExit("參數不全！");}//檢查參數

//串連檢測
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗，請與DBA聯絡！');}

//格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯！請與程式員聯絡');}

//如果沒指定綁定的欄位，則從SQL語句中去取
if($A_define=="")
{
$A_Cur = explode("select",$C_sql);
$A_Cur = explode("from",$A_Cur[1]);
$A_define = explode(",",$A_Cur[0]);
}

//綁定資料庫表欄位
if(gettype($A_define) == "array") //查詢列是數組
{
for($i=0;$i<count($A_define);$i++)
{
$A_define_up[$i] = trim(strtoupper($A_define[$i])); //大寫並去除空格
}
for($i=0;$i<count($A_define_up);$i++)
{
OCIDefineByName($this -> I_stmtID,"$A_define_up[$i]",&$$A_define[$i]); //綁定
}
}
elseif(trim($A_define) <> "") //查詢列只有一個
{
$A_define_up = trim(strtoupper($A_define));
OCIDefineByName($this -> I_stmtID,"$A_define_up",&$$A_define);
}

//執行綁定好的SQL語句
if(!OCIExecute($this -> I_stmtID))
{
echo "<font color=red><b>執行出錯:</b></font>SQL Error:<font color=red>$C_sql</font><br>";
return false;
}

$lower = 0; //返回二維數組的第一維下標控制變數
$cnt = 0; //開始取數標識

//取記錄
while (OCIFetchInto($this -> I_stmtID,&$cur,OCI_ASSOC))
{
//取查詢出來的所有記錄
if ($I_start == -1)
{
if (gettype($A_define) == "array") //查詢列是數組
{
for ($i=0;$i<count($A_define);$i++)
{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; //用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; //用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; //用大寫訪問
}
}
elseif (trim($A_define) <> "") //查詢列只有一個
{

if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; //用數字訪問
$A_rs[$lower][$A_define] = $$A_define; //用小寫訪問
$A_rs[$lower][$A_define_up] = $$A_define; //用大些訪問
}
$lower++; //下標加一
}

//取出指定記錄(配合分頁使用)
if ($I_start <> -1)
{
if ($cnt >= $I_start)
{
$cnt++;
if ($I_end - $I_start <> 0)
{
$I_end--;
if (gettype($A_define) == "array")
{
for($i=0;$i<count($A_define_up);$i++)
{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; //用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; //用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; //用大寫訪問
}
}elseif(trim($A_define) <> "")
{
if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; //用數字訪問
$A_rs[$lower][$A_define] = $$A_define; //用小些訪問
$A_rs[$lower][$A_define_up] = $$A_define; //用大寫訪問
}
$lower++;
}else
{
break; //如果$I_end-$I_start=0 表示取完記錄並跳出while迴圈
}
}else
{
$cnt++; //如果$cnt<$I_start,$cnt++
}
}

} //while的結束

//釋放控制代碼並返回查詢資料（一個二維數組）
OCIFreestatement($this -> I_stmtID);
return $A_rs;

} //function的結束
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_change($C_sql,$A_bind)
// 作 用：db change
// 參 數：$C_sql sql語句
// $A_bind 需綁定的欄位。數組型
// 傳回值：布爾值
// 備 註：insert,delete,update通用
//------------------------------------------------------------------------------------------
function db_change($C_sql,$A_bind="")
{
if (!$C_sql){AlertExit("參數不全！");}//檢查參數

//串連檢測
if($this -> I_linkID==""){ AlertExit("我們的資料庫正忙，請稍後再串連！");}

//格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯！請與程式員聯絡');}

//綁定
if(gettype($A_bind) == "array")
{
for($i=0;$i<count($A_bind);$i++)
{
global $$A_bind[$i];
$$A_bind[$i] = StripSlashes($$A_bind[$i]); //去掉反斜線字元
$$A_bind[$i] = str_replace("<?","< ?",$$A_bind[$i]); //過濾掉PHP標示
}
for($i=0;$i<count($A_bind);$i++){
OCIBindByName($this -> I_stmtID, ":$A_bind[$i]", &$$A_bind[$i], -1); //綁定
}
}
elseif(trim($A_bind) <> "") //不是數組，是字元
{
global $$A_bind;
$$A_bind = StripSlashes($$A_bind);
$$A_bind = str_replace("<?","< ?",$$A_bind); //過濾掉PHP標示
OCIBindByName($this -> I_stmtID, ":$arrBind", &$$A_bind, -1);
}

//執行並檢測是否成功
if(!OCIExecute($this -> I_stmtID,OCI_DEFAULT))
{
echo "<font color=red><b>執行出錯:</b></font>SQL Error:<font color=red>$C_sql</font><br>";
return false;
}

/*//傳回受影響的行數
global $I_changenum;
$I_changenum = OCINumrows($this -> I_stmtID);*/

//釋放控制代碼，傳回值
OCIFreeStatement($this -> I_stmtID);
return true;
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_delete($C_sql)
// 作 用：delete
// 參 數：C_sql sql語句
// 傳回值：布爾值
// 備 註：該函數只是為了使用直觀,本質調用db_change()
//------------------------------------------------------------------------------------------
function db_delete($C_sql)
{
return $this -> db_change($C_sql);
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_insert($C_sql,A_bind)
// 作 用：insert
// 參 數：C_sql sql語句
// A_bind 綁定
// 傳回值：布爾值
// 備 註：該函數只是為了使用直觀,本質調用db_change()
//------------------------------------------------------------------------------------------
function db_insert($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_update($C_sql,A_bind)
// 作 用：update
// 參 數：C_sql sql語句
// A_bind 綁定
// 傳回值：布爾值
// 備 註：該函數只是為了使用直觀,本質調用db_change()
//------------------------------------------------------------------------------------------
function db_update($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_commit()
// 作 用：事務遞交
// 參 數：無
// 傳回值：布爾值
// 備 註：無
//------------------------------------------------------------------------------------------
function db_commit()
{
return (OCICommit($this->I_linkID));
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_rollback()
// 作 用：交易回復
// 參 數：無
// 傳回值：布爾值
// 備 註：無
//------------------------------------------------------------------------------------------
function db_rollback()
{
return (OCIRollback($this->I_linkID));
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
// 函數名：db_logoff()
// 作 用：斷開資料庫連接
// 參 數：無
// 傳回值：布爾值
// 備 註：無
//------------------------------------------------------------------------------------------
function db_logoff()
{
return (OCILogoff($this->I_linkID));
}
//------------------------------------------------------------------------------------------

//------------------------------------------------------------------------------------------
}
?>