access数据库压缩、备份、还原、下载、删除实现

复制代码代码如下所示：




数据库管理



数据库管理系统




<
昏暗的zc_database_path
数据库的路径
zc_database_path =数据库/数据.mdb


data_array =分裂（zc_database_path， / ）


昏暗的行动
动作=修剪（请求（动作 ））
昏暗的独立，bkfolder，bkdbname，FSO，fso1

选择案例的作用
案例
电话chushihua（）
案例compressdata 压缩数据
昏暗的tmprs
昏暗的allarticle
昏暗的maxID
昏暗的话题，用户名，dateandtime，体
电话compressdata（）
案例备份数据的备份数据
如果请求（）备份，则
Call updata ()
其他的
备份数据（电话）
最后如果
案例restoredata 恢复数据
昏暗的backpath
如果请求（）还原，则
mdbquot =要求表单（独立）
backpath =要求表单（backpath ）
如果独立= 然后
response.write 请输入你的数据库名称
其他的
mdbquot = server.mappath（独立）
最后如果
backpath = server.mappath（backpath）

设置FSO = server.createobject（脚本。FileSystemObject ）
如果fso.fileexists（独立）然后
Fso.copyfile Dbpath，Backpath
response.write数据库成功恢复！
其他的
response.write 没有找到您需要的数据库！
最后如果
其他的
电话restoredata（）
最后如果
案例spacesize 系统占用空间
打电话给SpaceSize（）
案例deletebackup
在昏暗的
mdbquot = request.querystring（独立）
北京request.querystring（在）
mdbquot = server.mappath（独立）
mdbquot =独立北京
设置FSO = CreateObject（脚本。FileSystemObject ）
如果fso.fileexists（独立）然后
fso.deletefile（独立）
设置FSO
response.write备份数据库已经独立已成功删除！回到…..
其他的
response.write mdbquot
response.write 输入路径错误，请再确认一次！回到…..
最后如果
其他案件
最后选择

%>

<
response.write

Sub chushihua（）
%>



{压缩数据库}
{备份数据库}
{还原数据库}
{系统空间占用}





<
占用的空间===========================================系统
Sub SpaceSize（）
下次继续出错
%>


系统的空间观



笪塔巴涩：
备份数据库：
系统总数：






返回…

<
端子
%>
Sub ShowSpaceInfo（drvpath）
昏暗的FSO，D、大小、showsize
设置FSO = server.createobject（脚本。FileSystemObject ）
drvpath = server.mappath（drvpath）
设a fso.getfolder（drvpath）
d.size大小=
showsize =大小字节
如果尺寸大于1024，那么
大小=（大小 1024）
showsize =大小KB
最后如果
如果尺寸大于1024，那么
大小=（大小 1024）
showsize = formatnumber（尺寸2）MB
最后如果
如果尺寸大于1024，那么
大小=（大小 1024）
showsize = formatnumber（尺寸2）国标
最后如果
response.write showsize
端子
%>
<
Sub RestoreData（）
%>


<…