安徽省皖江中学高考:ASP压缩数据库如何设置访问密码..

来源：百度文库 编辑：中科新闻网 时间：2024/04/26 05:26:06
sub compactdata()
KzSys.ReCord "压缩数据库"
KzSys.CloseConn
dim fso, engine, strdbpath
strdbpath = left(datapath,instrrev(datapath,"\"))
set fso = server.createobject("scripting.filesystemobject")
IF fso.fileexists(datapath) then
Set Engine = CreateObject("JRO.JetEngine")
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & datapath," provider=microsoft.jet.oledb.4.0;data source=" & strdbpath & "temp.mdb"
fso.copyfile strdbpath & "temp.mdb",datapath
fso.deletefile(strdbpath & "temp.mdb")
set fso = nothing
set Engine = nothing
response.write "数据库压缩成功!"
else
response.write "数据库没有找到!"
end IF
End Sub
就我这个压缩数据库的过程..在字符串中怎么设置访问密码..

....
Engine.compactdatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & datapath & ";Jet oledb:Database password=???","provider=microsoft.jet.oledb.4.0;data source=" & strdbpath & "temp.mdb;Jet oledb:Database password=???"

....

上面的两处 ??? 改为你自己的密码，必须一致

ASP压缩数据库如何设置访问密码.. 如何设置访问密码？ 如何asp通过odbc访问access数据库 ASP如何统计数据库访问次数 如何设置文件夹访问密码? 如何设置互联网访问密码 如何设置XP访问密码 如何在压缩包里设置密码？ 请问如何设置压缩包的密码? ASP程序如何访问远程服务器上的ACCESS数据库...