如何在线压缩有密码数据库(ACCESS数据库--ASP代码)

hf12075 2004-04-07 08:37:54
如下代码能够压缩成功,可压缩过后,数据库的密码就没有了,请问是怎么回事?


<body <%=background%> >
<link rel="stylesheet" href="style.css">
<% if Request.QueryString("action")="do" then
currf=request.form("currf")
currf = server.mappath(currf)
ys=request.form("ys")
Const JET_3X = 4
strDBPath = left(currf,instrrev(currf,"\"))
on error resume next
Set objfso = Server.CreateObject("Scripting.FileSystemObject")
if err then
err.clear
response.write "<div class=tdc>不能建立fso对象,请确保你的空间支持fso:!"
response.end
end if
if objfso.fileexists(currf) then
Set Engine = CreateObject("JRO.JetEngine")
on error resume next
If ys = 1 Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "fytemp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='sasa';Data Source=" & strDBPath & "fytemp.mdb"
End If
objfso.CopyFile strDBPath & "fytemp.mdb",currf
objfso.DeleteFile(strDBPath & "fytemp.mdb")
Set objfso = nothing
Set Engine = nothing
if err then
err.clear
response.write "<div class=tdc color=#ff0000>错误:很抱歉,由于系统错误,压缩失败:!"
response.end
end if
response.write "<div class=tdc>压缩数据库成功</div>"
response.end
Else
response.write "<div class=tdc>错误:找不到数据库文件!"
response.end
End If
end if



%>
<form name="form1" method="POST" action="?action=do">
<table border=1 cellPadding=3 cellSpacing=1 width=100% style="border-collapse: collapse" align=center borderColor=#0099CC >
<tr align="center">
<td colspan="2" <%=tColor%> class=tdc1 height=22>
压缩数据库</td>
</tr>
<tr align="center">
<td <%=tColor%> class=tdc1 height=22 colspan="2">你的空间只有支持fso才可以进行如下操作,否则你只能手动压缩</td>
</tr>

<tr>
<td width="30%" align="right" class=tdc>数据库路径:</td>
<td class=tdc>
<input type="text" name="currf" size="20" value="hf/hf.mdb">
</td>
</tr>
<tr>
<td width="30%" align="right" class=tdc colspan="2">
<p align="center">
<input type="radio" value="1" name="ys">
使用 Access 97 数据库
<input type="radio" value="2" checked name="ys">
使用 Access 2000 数据库
</td>
</tr>
<tr>
<td width="30%" align="right" class=tdc colspan="2">
<p align="left"><font color="#FF0000"><b>注意:请不要修改数据库路径,此路径为备份数据库路径。</b></font>
</td>
</tr>
<tr>
<td width="20%" align="right" class=tdc> </td>
<td class=tdc>
<input type="submit" name="Submit" value="提交" class=bdtj>
<input type="reset" name="Submit2" value="重置" class=bdtj>
</td>
</tr>
</table>
</form>


<%

conn.close
set conn=nothing%>
...全文
28 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhang_9986 2010-06-16
看看,怎么没有人看到啊
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告