建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
ASP壓縮ACCESS數(shù)據(jù)庫實例
用ACCESS數(shù)據(jù)庫開發(fā)的網(wǎng)站,當(dāng)隨著網(wǎng)站數(shù)據(jù)量的不斷增長.數(shù)據(jù)庫的容量也是不斷加大.這讓ASP程序速度直線下降.如果才能讓ACCESS數(shù)據(jù)庫容量盡可能小.我們要對它進行壓縮處理.下文中將為大家介紹ASP壓縮ACCESS數(shù)據(jù)庫實例。
成都創(chuàng)新互聯(lián)公司主營浪卡子網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,成都app軟件開發(fā),浪卡子h5小程序開發(fā)搭建,浪卡子網(wǎng)站營銷推廣歡迎浪卡子等地區(qū)企業(yè)咨詢
下面是我整理后的源代碼，復(fù)制另存為compact.asp并上傳到數(shù)據(jù)庫所在目錄即可正常使用。
以下為引用的內(nèi)容：
通用ACCESS數(shù)據(jù)庫在線壓縮程序
本程序其實是通過FSO權(quán)限和JET引擎連接，
因此在使用之前請確認你的服務(wù)器支持FSO
（filesystemobject)權(quán)限并安裝的ACCESS***驅(qū)動！
從安全出發(fā)，請在壓縮之前備份原始數(shù)據(jù)庫！
以下為引用的內(nèi)容：
運行環(huán)境：在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 = "你的數(shù)據(jù)庫, " & dbpath & ", 已經(jīng)被壓縮" & vbCrLf
Else
CompactDB = "你輸入的數(shù)據(jù)庫路徑或名稱未找到，請重試" & vbCrLf
End If
End Function
%>
<%
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 = "你的數(shù)據(jù)庫, " & dbpath & ", 已經(jīng)被壓縮" & vbCrLf
Else
CompactDB = "你輸入的數(shù)據(jù)庫路徑或名稱未找到，請重試" & vbCrLf
End If
End Function
%>
<%
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbparesponse.write(CompactDB(dbpath,boolIs97))
End If
%>
dbpath = server.mappath(dbpath)
注意:由于本例實用的是FSO操作ACCESS文件,所以要使用本例請確保你的服務(wù)器支持FSO支持.
希望大家通過上文中的學(xué)習(xí)，能夠掌握ASP壓縮ACCESS數(shù)據(jù)庫的方法，在大家以后遇到類似問題時，就能夠輕松解決類似的問題。
【編輯推薦】
- asp如何和access數(shù)據(jù)庫連接
- 實戰(zhàn)ASP數(shù)據(jù)庫
- ASP調(diào)用SQL Server存儲過程的實際操作步驟
網(wǎng)頁題目：ASP壓縮ACCESS數(shù)據(jù)庫實例
URL分享：http://www.dlmjj.cn/article/cceoosh.html
