SQL管理員的web介面介紹

   
/************************************************* ******* **********************************  
     *        SQLAdmin v2.0 -  SQL 管理  網路使用者介面 *   
     *            版權  (C)  1997-98    Alessandro  ) ************************************************** ******** **********************************   
     *      這個函式庫是免費軟體；  您可以重新分發它和/或*   
     *      依據  GNU 函式庫  一般公眾        *   
修改      *      自由軟體基金會所發布的許可證；  要麼         *   
     *      許可證版本 2，或（由您選擇）任何較高版本。  *   
     *                                                          *   
     *      這個函式庫的發佈是為了希望它能有用，   *   
     *      但未提供任何保固；  甚至未暗示保證*   
     *      適銷性或特定用途的適用性。    請參閱 GNU *   
     *      圖書館一般公共許可證，以了解更多詳細資訊。                       *   
     *                                                          *   
     *      您應該收到  GNU  一般公用資料庫的副本 *   
     *      與本庫一起取得許可；  如果沒有，請寫信至               *        *      免費軟體  Foundation,  Inc.,  59  Temple  Place  -  Suite  330,  Place  -  Suite  330,  Place  -  Suite        *      波士頓，且麻薩諸塞州    02111-1307，美國。                                      ************************************************** **** **************************************/   


    /*  待辦事項：   
      *  -  新增排序順序。   
      *  -  新增簡單檢視。   
      *  -  增加一些文件。   
      */   

    /*  限制：   
      *  -  僅適用於 mSQL。   
      */   

    /*  史：   
      *  -  97-11-05  （avernet）  修正了一個帶有引用的錯誤。   
      *  -  98-01-01  （avernet）  增加了  sortColumn  參數  至   
      *      管理表功能。   
      *  -  98-03-14  (avernet)  增加了功能  addTable  使用者使用者與使用者使用   
      *      新增（但不修改）條目至資料庫。   
      *  -  98-05-19  （avernet）  提交至 PX。   
      *  -  98-10-11  (avernet)  現在 SQLAdmin 可與 php3 搭配使用。  PHP2 版本   
      *      則已不再維持。   
      *  -  98-10-11  (avernet)  SQLAdmin 現在以  LGPL   
分發       *      而非 MPL。   
      */   

    函數  escapeforhtml  ($string)   
    {   
        $結果=  $字串；   
        //$結果  =  ereg_replace  (""",  """,  $結果);   
        $result =  ereg_replace  ("         $result =  ereg_replace  (">",  ">",  $result);   
        返回$結果；   
    }   

    函數 displayTuple($fieldsNumber,  $fieldNames,   
                                     
    {   
        $結果 =  "";   
        $result  .=  "

"  。   
            "

";   
        $result  .=  "";   
        $fieldIndex  =  0;   
        while  ($fieldIndex           {   
            $結果  .=  「」；   
            $fieldIndex++;   
        }   
        $結果  .=  "

」  。  $fieldNames [$fieldIndex]。  「

」；                if ($fieldLengths[$fieldIndex]               {                    $結果  .=  "                     $fieldNames [$fieldIndex]。  「」  VALUE="」  。                        $值[$fieldIndex]。  ""  SIZE="64">";                }                否則             {                    $結果  .=  "                     $fieldNames [$fieldIndex]。  「」」  .                        「  COLS =「64」  ROWS =「10」  WRAP =「虛擬」>「  。                        escapeforhtml（$values[$fieldIndex])。  「」；                }                $結果  .=    "                 $fieldNames [$fieldIndex]。                    「」  VALUE="」  。  escapeforhtml（$values[$fieldIndex]）。  「」>「  .                    「

";            if  ($mode  ==  「修改」)            {                $result  .=  "             $result  .=  "";            }            否則             {  $result  .=      {  $result  .=      TYPE="提交"  NAME="add"   造成         $結果  .=  "

";   
        返回$結果；   
    }   

    函數 fieldFromType($text, $type)   
    {   
        if  ($type  ==  "int"  ||  $type  ==  "uint"  ||  $type  == "real") "uint"  ||  $type  == "real")              {  $結果  =  $text;  }   
        否則
            {  $結果  =  "'"  .  增加斜線（$text）。  「'」；  }   
        返回$結果；   
    }   

    函數executeMsql($database, $command)   
    {   
        /*回顯「」  。  $命令。  「

---

」;*/   
        msql（$資料庫，$指令）；   
    }   

    函數handleRemove($database,  $table,  $fieldsNumber,   
                                     
    {   
        全域$remove;   
        if  ($remove  !=  "")   
        {   
            $command  =  「移除受  」  。  $表。  「 在哪裡 」;   
            $fieldIndex  =  0;   
            while  ($fieldIndex               {   
                $fieldName =  「舊-」。   
                $全域$fieldName;   
                $command  .=  $fieldNames  [$fieldIndex]  .  “=”。                     fieldFromType（$$fieldName，$fieldTypes[$fieldIndex]）；   
                if  ($fieldIndex  !=  $fieldsNumber  -  1)   
                    {  $command  .=  「  AND  」;  }   
                $fieldIndex++;   
            }                  
            執行Msql（$資料庫，$指令）；   
        }   
    }   

    函數handleUpdate($database,  $table,  $fieldsNumber,   
                                                  $fieldNames、$fieldLengths、$fieldTypes)   
    {   
        $全域更新；   
        if  ($update  !=  "")   
        {   
            $command  =  「更新」  。   
            $fieldIndex  =  0;   
            而  ($fieldIndex               {   
                $fieldName = $fieldNames [$fieldIndex];   
                $全域$fieldName;   
                $command  .=  $fieldName  .  “=”。                     fieldFromType（$$fieldName，$fieldTypes[$fieldIndex]）；   
                if  ($fieldIndex  !=  $fieldsNumber  -  1)   
                    {  $command  .=  ",  ";  }   
                $fieldIndex++;   
            }   
            $command  .=  「  WHERE  」;   
            $fieldIndex  =  0;   
            而  ($fieldIndex               {   
                $fieldName =  「舊-」。   
                $全域$fieldName;   
                $command  .=  $fieldNames  [$fieldIndex]  .  “=”。                     fieldFromType（$$fieldName，$fieldTypes[$fieldIndex]）；   
                if  ($fieldIndex  !=  $fieldsNumber  -  1)   
                    {  $command  .=  「  AND  」;  }   
                $fieldIndex++;   
            }   
            執行Msql（$資料庫，$指令）；   
        }   
    }   

    函數handleAdd($database,  $table,  $fieldsNumber,   
                                            $fieldNames、$fieldLengths、$fieldTypes)   
    {   
        $全域添加；   
        if  ($add  !=  "")   
        {   
            $command=「插入」。             $fieldIndex  =  0;   
            而  ($fieldIndex               {   
                $command  .=  $fieldNames  [$fieldIndex];   
                if  ($fieldIndex  !=  $fieldsNumber  -  1)   
                    {  $command  .=  ",  ";  }   
                $fieldIndex++;   
            }   
            $command  .=  ")  值  (";   
            $fieldIndex  =  0;   
            while  ($fieldIndex               {   
                $fieldName =  $fieldNames [$fieldIndex];    
                以全域化$$fieldName;   
                $command  .=  fieldFromType  ($$fieldName,  $fieldTypes [$fieldIndex]);  ($$fieldName,  $fieldTypes [$fieldIndex]);                  if  ($fieldIndex  !=  $fieldsNumber  -  1)   
                    {  $command  .=  ",  ";  }   .=  ",  ";  }                    $fieldIndex++;   
            }   
            $指令  .=  ")";   
            執行Msql（$資料庫，$指令）；   
        }   
    }   

    函數 displayRemoveUpdate($database, $table, $sortColumn,   
                                         $fieldsNumber、  $fieldNames、  $fieldLengths)   
    {   
        $結果 =  "";   
        if  ($sortColumn  !=  "")   
            {  $sortColumn  =  「  排序依據  」  。  $排序列；  }   
        $msqlresult  =  msql  ($database,  "SELECT  *  FROM  "  .  $table)$.         $tuplesNumber =  msql_numrows ($msqlresult);   
        $tupleIndex  =  0;   
        while  ($tupleIndex           {   
            $fieldIndex  =  0;   
            while  ($fieldIndex               {   
                $values [$fieldIndex] =  msql_result  ($msqlresult,  $tupleIndex,    ($msqlresult,  $tupleIndex,   
                    $fieldNames [$fieldIndex]);   
                $fieldIndex++;   
            }   
            $結果  .=  displayTuple  ($fieldsNumber,  $fieldNames,   
                $fieldLengths,  $values,  「修改」);   
            $tupleIndex++;   
        }   
        返回$結果；   
    }   

    函數displayAdd($fieldsNumber,  $fieldNames,  $fieldLengths)   
    {   
        $結果 =  "";   
        $fieldIndex  =  0;   
        while  ($fieldIndex           {   
            $values[$fieldIndex]  =  "";   
            $fieldIndex++;   
        }   
        $結果  .=  displayTuple  ($fieldsNumber,  $fieldNames,   
            $fieldLengths,  $values,  「新增」);   
        msql_close();   
        返回$結果；   
    }   

    函數 administrationTable($database, $table, $sortColumn)   
    {   
        $結果 =  "";   
        msql_connect（「本機」）；   
        $msqlresult  =  msql  ($database,  "SELECT  *  FROM  "  .  $table);   FROM  "  .  $table);           $fieldsNumber =  msql_numfields ($msqlresult);    
        $msqlresult =  msql_listfields  ($database,  $table);   
        $fieldIndex  =  0;   
        while  ($fieldIndex           {   
            $fieldNames [$fieldIndex] = msql_fieldname($msqlresult, $fieldIndex);   
            $fieldLengths [$fieldIndex] = msql_fieldlen($msqlresult, $fieldIndex);   
            $fieldTypes [$fieldIndex] = msql_fieldtype($msqlresult, $fieldIndex);   
            $fieldIndex++;   
        }   
        handleRemove($database,  $table,  $fieldsNumber,  $fieldNames,  $fieldLengths,  $fieldTypes);   
        handleUpdate($database,  $table,  $fieldsNumber,  $fieldNames,  $fieldLengths,  $fieldTypes);   
        handleAdd($database,  $table,  $fieldsNumber,  $fieldNames,  $fieldLengths,  $fieldTypes);   
        $result  .=  displayRemoveUpdate  ($database,  $table,  $sortColumn,  $fieldsNumber,  $fieldNames,    
$ 長度);   
        $結果  .=  displayAdd  ($fieldsNumber,  $fieldNames,  $fieldLengths);   
        回$結果；   
    }   

    函數 addTable($database, $table)   
    {   
        $結果 =  "";   
        msql_connect（「本機」）；   
        $msqlresult  =  msql  ($database,  "SELECT  *  FROM  "  .  $table);   
        $fieldsNumber = msql_numfields ($msqlresult);    
        $msqlresult = msql_listfields($database, $table);   
        $fieldIndex  =  0;   
        而  ($fieldIndex           {   
            $fieldNames [$fieldIndex] = msql_fieldname($msqlresult, $fieldIndex);   
            $fieldLengths [$fieldIndex] = msql_fieldlen($msqlresult, $fieldIndex);   
            $fieldTypes [$fieldIndex] = msql_fieldtype($msqlresult, $fieldIndex);   
            $fieldIndex++;   
        }   
        handleAdd($database,  $table,  $fieldsNumber,  $fieldNames,  $fieldLengths,  $fieldTypes);   
        $結果  .=  displayAdd  ($fieldsNumber,  $fieldNames,  $fieldLengths);   
        回$結果；   
    }   
？   

以上就介紹了SQL管理器的web介面介紹，包含了方面的內容，希望對PHP教學有興趣的朋友得到幫助。