ASP對FoxPro自由表(DBF文件)的設(shè)置

一、問題的提出
    最近一個項目中遇到ASP對FoxPro庫表(*.DBF)的操作問題�，F(xiàn)實中確有許多應(yīng)用軟件使用DBF表，如何在網(wǎng)絡(luò)環(huán)境中使用這些數(shù)據(jù)，使很多朋友一籌莫展。
    本人也查了許多資料，沒有找到解決方法的詳細說明。經(jīng)過試驗，初步解決了這個問題，拿出來和大家分享。
    本文試圖解決以下問題：
    1. ASP聯(lián)接由FoxPro 生成的自由表(*.dbf文件)
    2. 將多種類型的數(shù)據(jù)及圖形文件同時存入dbf表中
    (示例程序可從http://www.netop.cc/downloads/dbf.rar得到)

二、環(huán)境
   Windows2000 + IIS5.0 + IE6.0(SP1)
   DBF文件為Microsoft Visual FoxPro 6.0 生成的自由表(非dbc庫)

三、解決途徑
1. 連接
   DBF文件的ODBC驅(qū)動程序名稱為 Microsoft Visual FoxPro Driver，在ASP中，通過Connection對象與其聯(lián)接，需要注意的是，聯(lián)接時將DBF所在目錄視為庫名。以下是具體聯(lián)接代碼：
  
   DIM conn,connstr,db
   db="data"
   Set conn = Server.CreateObject("ADODB.Connection")
   connstr = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;"&_
                 "SourceDB=" & Server.MapPath(db) &";Exclusive=No"
   conn.Open connstr

   以上代碼中，data為我的DBF文件所在的相對路徑(相對于此代碼所在的文件)，通過Server.MapPath(db)將其轉(zhuǎn)為絕對路徑。
   http://www.connectionstrings.com 給出了很多類型的庫表文件的連接字串，其中對DBF文件，給出的連接字串為：
   "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
   我用此連接字串沒有連接成功，沒有進行進一步測試，有興趣的朋友可以試一下以上字串。
   .www.knowsky.com
2. 在SQL語句中聲明表名
   可以用[表名]或[表名.擴展名]的形式在SQL語句中聲明要操作的表名，如表文件名為t1.dbf，SQL語句為：
   select * from [t1]  或  select * from [t1.dbf]

3. 各種類型數(shù)據(jù)的入庫操作
   DBF支持的數(shù)據(jù)類型不是很多，其中值得注意是的Date(日期型)、Memo(備注型)、General(通用型)。在此著重說明一下Data型數(shù)據(jù)，Memo及Gen型在存儲圖形文件時用到，稍后說明。
   我一般采用兩種方式進行寫庫操作，一種是使用insert語句，一種是使用addnew方法，對于DBF表，這兩種方式略有差別。
   使用insert語句時，要注意Date型數(shù)據(jù)的書寫格式為{^yyyy-mm-dd}，分界符不同于Access的#及SQL Server的'。具體SQL語句為：
   insert into [t1.dbf] (name,birthday) values ('MyName',{^1970-1-1})
   在使用addnew方法時，我原先使用的代碼為：

   rst.open "[t1]",conn,0,3
   rst.addnew
   rst(0).value = "MyName"
   rst(1).value = {^1970-1-1}
   rst.update
   rst.close
  
   在對SQL Server及Access操作時都沒有問題，但是對DBF文件操作時出現(xiàn)了問題。經(jīng)過試驗，終于找到了正確的方法：
  
   sql = "select * from t1"
   rst.open sql,conn,0,3
   rst.addnew
   rst(0).value = "MyName"
   rst(1).value = {^1970-1-1}
   rst.update
   rst.close

   請注意以上兩段代碼的差別，主要在SQL語句上。前面說過，在SQL語句中，可以用[表名]或[表名.dbf]的方式聲明表文件，但在使用addnew方法時，表名不可帶擴展名，而且不可加方括號，否則會提示“非簡單表名，不可更新” 。

4. 圖形文件的存儲
   DBF表中，備注形及通用型字段都可用于存儲圖形、音像、文本等文件(請參考http://www.chinadesign.com.cn/NewsContents1.asp?id=2663)。在這里，我們將字段類型設(shè)為memo(binary)(二進制備注型)，使用rst(n).AppendChunk()方法將得到的圖片二進制數(shù)據(jù)寫入，使用Response.BinaryWrite()方法將二進制數(shù)據(jù)還原為圖片。圖片入庫的相關(guān)文章很多，在此不再贅述。
   至于使用General(通用型)字段存儲圖片，我試了一下，沒有成功，也就沒有再試。

5. 數(shù)據(jù)的刪除
   可以使用delete語句將數(shù)據(jù)刪除，但是刪除后打開表文件，發(fā)現(xiàn)數(shù)據(jù)只是做了刪除標記，并未真正從表中刪除。在Foxpro中，要使用pack命令將數(shù)據(jù)永久刪除。查了些資料，說是VB無法實現(xiàn)pack操作，那VBS當(dāng)然更無法實現(xiàn)了。一般的解決辦法是每隔一段時間，將表中的數(shù)據(jù)(當(dāng)然是未做刪除標記的)導(dǎo)入一新表，刪除原表，再將新表改名為原表名。

6. 數(shù)據(jù)和圖片同時入庫
   這個問題不屬于本文要討論的范圍，網(wǎng)上也有很多文章給出了解決辦法，這里順帶說一下。
   我是利用“化境”無組件上傳程序?qū)崿F(xiàn)的這個功能。有些朋友會問，“化境”上傳是寫成文件，沒有入庫的方法啊。不錯，但是稍加改動，可以得到圖片的二進制數(shù)據(jù)，然后入庫即可。我的示例中，化境程序改動的部分都做了注釋，請參考。

四、結(jié)語
    本文主要討論ASP對DBF自由表的操作，如果是DBC庫，示例中的inc/conn.asp中給出了相應(yīng)的連接字串。
    至此，相信朋友們對DBF表的操作有了大概的了解，結(jié)合我的示例，相信大家可以開發(fā)出更多的功能。
    GOOD LUCK!