傳統(tǒng)的 C/S 模式的編程環(huán)境下，Visual Foxpro 曾經(jīng)是風(fēng)靡一時(shí)的數(shù)據(jù)庫類型，然而，在輕型的數(shù)據(jù)庫級(jí)別里，MySQL 具有遠(yuǎn)比 VFP 要好得多的特性，最大的好處當(dāng)然是跨平臺(tái)特性。在本文介紹的這個(gè)應(yīng)用里（這是一個(gè)實(shí)際的例子），我們把在 VFP 環(huán)境下頻繁更新的數(shù)據(jù)，通過 PHP 的 ADODB 接口同步到 MySQL 數(shù)據(jù)庫，并在入庫之前，對(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_keyword （ $oldmem ） {
　　$ADODB_CACHE_DIR = 'c:/temp'； // Cache 的目錄
　　$ADODB_FETCH_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è)語句解決一段文本里所有關(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ù)庫中最大的 seq 值。
　　$sql = " SELECT seq,type,body FROM vfp_table WHERE seq ＞ ".$seq."" " ；
　　//取出源數(shù)據(jù)庫中最新的記錄。
　　$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'）；
　　?＞