推薦:Access數據庫中數據表的自動重新聯接在實際的應用中,Access做應用程序時,經常會做成數據和程序兩個數據庫,數據數據庫中只存放數據表,程序數據庫中存放所有的form,query,report,module等,通過表聯接程序數據庫可以訪問所有數據數據庫中的表。 當使用的應用程序更換存儲位置的時候往往失去
用ACCESS數據庫開發的網站,當隨著網站數據量的不斷增長.數據庫的容量也是不斷加大.這讓ASP程序速度直線下降.如果才能讓ACCESS數據庫容量盡可能小.我們要對它進行壓縮處理.
下面是我整理后的源代碼,復制另存為compact.asp并上傳到數據庫所在目錄即可正常使用。
|
以下為引用的內容:
<html> <head> <title>ACCESS數據庫壓縮程序-網頁制作教程</title> </head> <body bgcolor="e0f8ef"> <div> <div align="center"><font color="#3300FF"> <b><font size="5">通用ACCESS數據庫在線壓縮程序</font></b></font><br> </div> <div> <br>
|
本程序其實是通過FSO權限和JET引擎連接,
因此在使用之前請確認你的服務器支持FSO
(filesystemobject)權限并安裝的ACCESS最新驅動!
從安全出發,請在壓縮之前備份原始數據庫!
|
以下為引用的內容:
</div><br> <div align="center">運行環境:在WIN98SE PWS、WIN2000 IIS5.0 <br> <% 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 %> </div> </div> <form name="compact" method="post" action="compact.asp"> <div align="center"> <font size="2"><b><font color="#FF0000"> 壓縮選項,請仔細填寫!</font></b><br> <br>
|
輸入數據庫全稱:
|
以下為引用的內容:
<input type="text" name="dbpath"> (包括擴展名,如MDB、ASA、ASP等)<br> <br> <input type="checkbox" name="boolIs97" value="True"> 檢查是否為ACCESS97數據庫<br> (默認為ACCESS2000的數據庫)<br> <br> <input type="submit" name="submit" value="確認壓縮"> </font></div> </form> <div align="center"><font size="2"> <% Dim dbpath,boolIs97 dbpath = request("dbpath") boolIs97 = request("boolIs97") If dbparesponse.write(CompactDB(dbpath,boolIs97)) End If %> <br> </font></div></body></html>th <> "" Then dbpath = server.mappath(dbpath)
|
注意:由于本例實用的是FSO操作ACCESS文件,所以要使用本例請確保你的服務器支持FSO支持.
分享:如何使用三大措施保障網站安全運營數據庫,網站運營的基礎,網站生存的要素,不管是個人用戶還是企業用戶都非常依賴網站數據庫的支持,然而很多別有用心的攻擊者也同樣非?粗鼐W站數據庫。 對于個人網站來說,受到建站條件的制約,Access數據庫成了廣大個人網站站長的首