傳統(tǒng)的 C/S 模式的編程環(huán)境下,Visual Foxpro 曾經(jīng)是風(fēng)靡一時(shí)的
數(shù)據(jù)庫(kù)類型,然而,在輕型的數(shù)據(jù)庫(kù)級(jí)別里,
MySQL 具有遠(yuǎn)比 VFP 要好得多的特性,最大的好處當(dāng)然是跨平臺(tái)特性。在本文介紹的這個(gè)應(yīng)用里(這是一個(gè)實(shí)際的例子),我們把在 VFP 環(huán)境下頻繁更新的數(shù)據(jù),通過(guò)
PHP 的 ADODB 接口同步到 MySQL 數(shù)據(jù)庫(kù),并在入庫(kù)之前,對(duì)其中的文本的關(guān)鍵字打上標(biāo)記,使之關(guān)聯(lián)到對(duì)應(yīng)的連接。
下面列出程序片段。
conv.php
$ADODB_PATH="C:/
Apache/PHP/PEAR/ADODB";
include("$ADODB_PATH/adodb.inc.php"); // ADODB 的類
include("$ADODB_PATH/db_mysql.php"); // 采用了
VBB 中的類
$conn = &ADONewConnection('vfp'); // 指定 ADODB 的連接類型為 VFP。
$conn->PConnect('gn','sa',''); // gn 是建立在本機(jī)上的ODBC 系統(tǒng) DSN 名字。
function parse_key
word ( $oldmem ) {
$ADODB_CACHE_DIR = 'c:/temp'; // Cache 的目錄
$ADODB_F
ETCH_MODE = ADODB_FETCH_NUM;
$mysql_conn = &ADONewConnection('mysql'); // 指定 ADODB 的連接類型為 mysql
$mysql_conn->PConnect('localhost','username','password','db_name');
$sql = "select keyword,url from KEYWORD ";
$rs = $mysql_conn->CacheExecute(1500,$sql);
// 對(duì) KEYWORD 的查找采用 1500 秒的緩沖。
if (!$rs) print $mysql_conn->ErrorMsg();
$all_col=$rs->GetArray();
$rs->Close();
$keyword= array();
$url = array();
for ( $i = 0; $i< count($all_col); $i++ ) {
$keyword[$i] = $all_col[$i][0];
$url[$i] = $all_col[$i][1];
}
$newmem=str_replace($keyword,$url,$oldmem);
// 這是本函數(shù)里最大的功能,數(shù)組替換文本。
// 一個(gè)語(yǔ)句解決一段文本里所有關(guān)鍵字的替換。
$mysql_conn->Disconnect();
$mysql_conn->Close();
return $newmem;
}
$DB_Site = new DB_Sql;
$DB_Site->connect();
echo "Processing Table ...n";
$sql = " SELECT max(seq) as seq FROM mysql_table WHERE type=0200";
$seqinfo = $DB_Site->query_first($sql);
$seq = $seqinfo[seq];// 取出目標(biāo)數(shù)據(jù)庫(kù)中最大的 seq 值。
$sql = " SELECT seq,type,body FROM vfp_table WHERE seq > ".$seq."" " ;
//取出源數(shù)據(jù)庫(kù)中最新的記錄。
$rs = $conn->Execute($sql);
if ( $rs->EOF ) echo "Table had No new record, Max seq is [$seq].n";
while (!$rs->EOF) {
$sql = " INSERT INTO mysql_table VALUES ($rs->fields[seq],$rs->
fields[type],".parse_keyword($rs->fields[body])."')";
$DB_Site->query($sql);
$rs->MoveNext();
}
$rs->Close();
$DB_Site->close();
$conn->Disconnect();
$conn->Close('gn');
?>