在线压缩Access数据库的ASP函数代码
当前位置:首页 - 代码技巧 - 在线压缩Access数据库的ASP函数代码

  所做的企业网站的运行速度越来越慢了,经常拖得服务器都快死机,查期原因,完全是应为ASP+ACCEss不适合新闻较多的网站,特此找来一段在线压缩数据库的代码,希望能有所改善吧,不想折腾了。

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")
On Error Resume Next
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

If Err Then
response.write "<script LANGUAGE='javascript'>alert('无法识别数据库类型.');history.go(-1);</script>"
response.end
end if
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "<script>alert('压缩成功!');javascript:history.go(-1);</script>"
Else
CompactDB = "<script>alert('找不到数据库!\n请检查数据库路径是否输入错误!');history.back();</script>"
End If
End Function

挺累的了。

本文 暂无 评论

Top

分享: