ASP 精華源碼收集（五年總結(jié)）第2/20頁(yè)
更新時(shí)間：2008年10月20日 22:58:16 作者：
在5年的開(kāi)發(fā)中，總結(jié)出來(lái)的一些源碼
現(xiàn)在已可以壓縮有密碼的數(shù)據(jù)庫(kù)，代碼如下，但是壓縮之后的數(shù)據(jù)庫(kù)密碼就沒(méi)有了！如何解決？
<%
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;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';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ù)庫(kù), " & dbpath & ", 已經(jīng)壓縮成功!" & vbCrLf
Else
CompactDB = "數(shù)據(jù)庫(kù)名稱或路徑不正確. 請(qǐng)重試!" & vbCrLf
End If
End Function
%>
相關(guān)文章
ASP把長(zhǎng)的數(shù)字用逗號(hào)隔開(kāi)顯示的代碼
對(duì)于一些比較長(zhǎng)的數(shù)字，我們可以用asp實(shí)現(xiàn)隔開(kāi)顯示，尤其是一些金錢相關(guān)的東西2008-06-06
vbcrlf生成的代碼在查看源代碼的時(shí)候是有換行的。2009-05-05
這篇文章主要介紹了ASP實(shí)現(xiàn)類似hashMap功能的類2015-10-10
飛云防CC攻擊ASP程序代碼插件...2007-08-08
asp 實(shí)現(xiàn)的冒泡排序程序程序代碼，需要的朋友可以參考下。2009-11-11
asp連接SQL和Access數(shù)據(jù)代碼(asp里的隨機(jī)函數(shù))
asp連接SQL和Access數(shù)據(jù)代碼,asp里的隨機(jī)函數(shù),需要的朋友可以參考下2012-09-09
asp下實(shí)現(xiàn)對(duì)HTML代碼進(jìn)行轉(zhuǎn)換的函數(shù)
asp下實(shí)現(xiàn)對(duì)HTML代碼進(jìn)行轉(zhuǎn)換的函數(shù)...2007-08-08
循環(huán)取值Request.QueryString的用法
2008-01-01
asp+Access通用的自動(dòng)替換數(shù)據(jù)庫(kù)中的字符串
幾年前寫的一個(gè)腳本，可以自動(dòng)進(jìn)行整庫(kù)的數(shù)據(jù)替換。2008-06-06
asp下實(shí)現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼
asp下實(shí)現(xiàn) 重新排序數(shù)字?jǐn)?shù)組的代碼...2007-08-08