用access資料庫開發的**，當隨著**資料量的不斷增長。資料庫的容量也是不斷加大。這讓asp程式速度直線下降。如果才能讓access資料庫容量盡可能小。我們要對它進行壓縮處理。
下面是我整理後的源**，複製另存為compact.asp並上傳到資料庫所在目錄即可正常使用。
以下為引用的內容：
本程式其實是通過fso許可權和jet引擎連線，因此在使用之前請確認你的伺服器支援fso（filesystemobject)許可權並安裝的access最新驅動！從安全出發，請在壓縮之前備份原始資料庫！
以下為引用的內容：
執行環境：在win98se+pws、win2000+iis5.0
<%
const jet_3x = 4
function compactdb(dbpath, boolis97)
dim fso, engine, strdbpath
strdbpath = left(dbpath,instrrev(dbpath,""))
set fso = createobject("scripting.filesystemobject")
if fso.fileexists(dbpath) then
set engine = createobject("jro.jetengine")
if boolis97 = "true" then
engine.compactdatabase "provider=microsoft.jet.oledb.4.0;data source=" & dbpath, _
"provider=microsoft.jet.oledb.4.0;data source=" & strdbpath & "temp.mdb;" _
& "jet oledb:engine type=" & jet_3x
else
engine.compactdatabase "provider=microsoft.jet.oledb.4.0;data source=" & dbpath, _
"provider=microsoft.jet.oledb.4.0;data source=" & strdbpath & "temp.mdb"
end if
fso.copyfile strdbpath & "temp.mdb",dbpath
fso.deletefile(strdbpath & "temp.mdb")
set fso = nothing
set engine = nothing
compactdb = "你的資料庫, " & dbpath & ", 已經被壓縮" & vbcrlf
else
compactdb = "你輸入的資料庫路徑或名稱未找到，請重試" & vbcrlf
end if
end function
%>
<%
dim dbpath,boolis97
dbpath = request("dbpath")
boolis97 = request("boolis97")
if dbparesponse.write(compactdb(dbpath,boolis97))
end if
%>
th <> "" then
注意：由於本例實用的是fso操作access檔案，所以要使用本例請確保你的伺服器支援fso支援。
在ASP程式中訪問Access資料庫
在基於微軟iis pws的網路平台上，通過伺服器端執行的asp程式來訪問後台資料庫，是一種最常見的模式了。而對於小型的資料庫應用需求，微軟的access資料庫，應該是與asp程式配套使用的首選。由於access資料庫的odbc驅動程式支援的sql指令全，執行效率高，所以access後台資料庫 asp...
壓縮access資料庫
遇到乙個問題，使用的是accesss資料庫，在載入資料庫中的資訊的時候，速度特別慢，有時候一次查詢最終會卡15秒左右，然後才能得到結果，跟蹤發現卡的地方在sqlexecdirect中，已經是odbc api了。開啟資料庫看也沒發現啥問題，後來點了access上邊的 壓縮和修復資料庫 工具，資料庫從原...
asp連線access資料庫例項
asp是微軟的伺服器端動態指令碼語言，使用它可以輕鬆處理與access資料庫的連線。使用asp來連線access，需要用到微軟的ado元件，不熟悉的可以去網上搜尋一下。下面使用乙個例項來演示連線過程 set conn server.createobject adodb.connection 建立乙個...