***本類只能在win平臺的服務(wù)器上使用
*/
class access{
function access(dir){ //構(gòu)析函數(shù)，調(diào)用.com建立數(shù)據(jù)源，鏈接數(shù)據(jù)庫；參數(shù)為數(shù)據(jù)庫文件路徑
this->db=new com("adodb.connection");
this->db->open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=".realpath(dir));
}
function sql(sql){//參數(shù)為SQL查詢語句
if(preg_match("/limit +([0-9]*),([0-9]*)/",sql,out)){//正則分析sql語句，提取limit參數(shù)，模擬MYSQL的分頁
limit1=out[1];
limit2=out[2];
sql=preg_replace("/limit +([0-9]*),([0-9]*)/","",sql);
}
rs=this->db->execute(sql);
if(strpos(sql,"select")===false or strpos(sql,"select")>5){//非查詢語句直接返回空值，防止錯誤提示出現(xiàn)
return "";
}
if(limit1==""){
limit1=0;
}
if(limit2==""){//如果沒有l(wèi)imit參數(shù)，設(shè)limit2為總記錄數(shù)
limit2=1000000;
}
rs->move(limit1);//記錄指針移動到第limit1條記錄處
i=0;
while(!rs->eof and i<limit2){
foreach(rs->fields as rss){
rs_r[rss->name]=rss->value;
}
rs_rr[]=rs_r;
rs->move(1);
i++;
}
return rs_rr;
}
function getlist(db,p=""){//此函數(shù)用于將關(guān)聯(lián)數(shù)組各元素處理成相關(guān)變量，第二個參數(shù)為變量名前綴，防止重名
foreach(db as key=>dba){
global {p.key};
{p.key}=dba;
}
}
function yasuo(dir){//壓縮數(shù)據(jù)庫函數(shù)，本函數(shù)用access::yasuo(dir);調(diào)用，dir為數(shù)據(jù)庫文件路徑，調(diào)用次函數(shù)之前必須將所有當前數(shù)據(jù)庫的連接中斷！
ya =new com("JRO.JetEngine");
truedir=realpath(dir);
dirname=dirname(truedir);
prov="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=";
ya->CompactDatabase(prov.truedir,prov.dirname."/aatmp.mdb");//數(shù)據(jù)庫所在目錄必須有讀寫權(quán)限，否則會導(dǎo)致失敗！
unlink(truedir);
rename(dirname."/aatmp.mdb",truedir);
}
function add(file){//新建一個ACCESS數(shù)據(jù)庫 參數(shù)file為文件路徑，必須為相對路徑
dir=dirname(_SERVER["SCRIPT_FILENAME"])."/".file;
db=new com("ADOX.Catalog");
db->Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dir");
}
}
?>

<?
include("access.php");
access::add("my.mdb");//創(chuàng)建數(shù)據(jù)庫
db=new access("my.mdb");//連接數(shù)據(jù)庫
sql=<<<eot
CREATE TABLE a (
id AUTOINCREMENT(1,1),
name varchar(10))
eot;
db->sql(sql);//建表
sql=<<<eot
insert into `a` (`name`) values('wo ri');
eot;
db->sql(sql);//插入數(shù)據(jù)
db->sql("insert into `a` (`name`) values('靠');");
sql="select * from a limit 1,1";
rs=db->sql(sql);//查詢
print_r(rs);
?>