ACCESS数据库的压缩,备份,还原,下载,删除的实现

2022-11-12 09:53:03
内容摘要
这篇文章主要为大家详细介绍了ACCESS数据库的压缩,备份,还原,下载,删除的实现,具有一定的参考价值,可以用来参考一下。 对此感兴趣的朋友,看看idc笔记做的技术笔记! 代码如下:
文章正文

这篇文章主要为大家详细介绍了ACCESS数据库的压缩,备份,还原,下载,删除的实现,具有一定的参考价值,可以用来参考一下。

对此感兴趣的朋友,看看idc笔记做的技术笔记!

代码如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
<code><html>
<head>
<metahttp-equiv="Content-Language"content="zh-cn">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>数据库管理</title>
</head>
 
<body>
<divalign=center>数据库管理系统</div>
<br>
<br>
<palign="center">
 
<%
DimZC_DATABASE_PATH
'数据库的路径
ZC_DATABASE_PATH="database/data.mdb"
 
 
data_array=Split(ZC_DATABASE_PATH,"/")
 
 
Dimaction
action=trim(request("action"))
Dimdbpath,bkfolder,bkdbname,fso,fso1
 
SelectCaseaction
Case""
Callchushihua()
Case"CompressData"'压缩数据
Dimtmprs
dimallarticle
dimMaxid
dimtopic,username,dateandtime,body
callCompressData()
case"BackupData"'备份数据
ifrequest("act")="Backup"Then
callupdata()
else
callBackupData()
endIf
case"RestoreData"'恢复数据
dimbackpath
ifrequest("act")="Restore"Then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
ifdbpath=""Then
response.write"PleaseinputyourdatabasewholeName"
else
Dbpath=server.mappath(Dbpath)
endIf
backpath=server.mappath(backpath)
 
SetFso=server.CreateObject("scripting.filesystemobject")
iffso.fileexists(dbpath)Then
fso.copyfileDbpath,Backpath
response.write"数据库被成功还原!<br>"
else
response.write"没找到您所需要的数据库!"
endIf
else
callRestoreData()
endIf
Case"SpaceSize"'系统空间占用
callSpaceSize()
Case"deletebackup"
Dimdbname
dbpath=Request.QueryString("dbpath")
dbname=Request.QueryString("dbname")
dbpath=Server.MapPath(dbpath)
dbpath=dbpath&"\"&dbname
setfso=CreateObject("Scripting.FileSystemObject")
Iffso.FileExists(dbPath)Then
fso.DeleteFile(DBPath)
Setfso=nothing
response.write"<br>您备份的数据库已经"&dbpath&"被成功删除!<br><br><ahref=""data_s.asp"">返回..</a>"
Else
response.writedbpath
response.write"<br>输入的路径错误,请确认后重新输入!<br><br><ahref=""data_s.asp"">返回..</a>"
EndIf
CaseElse
EndSelect
 
%>
</div>
<%
response.write"</body></html>"
 
Subchushihua()
%>
<divalign=center>
<formid="edit">
<br/>
<ahref="?action=CompressData">[压缩数据库]</a>
<br/><br/><ahref="?action=BackupData">[备份数据库]</a>
<br/><br/><ahref="?action=RestoreData">[还原数据库]</a>
<br/><br/><ahref="?action=SpaceSize">[系统空间占用]</a>
<br/><br/>
</form>
</div>
<%endsub%>
 
<%
'====================系统空间占用=======================
SubSpaceSize()
OnErrorResumeNext
%>
<divalign=center>
<divalign=center>
系统空间查看
<br/><br/>
<formid="edit">
<br>
数据库:<%showSpaceinfo("../"&data_array(1)&"")%><br><br>
备份数据库:<%showSpaceinfo("databackup")%><br><br>
系统总共:<%showSpaceinfo("/")%>
<br><br>
</form>
</div>
<br>
<br>
<br>
<ahref="data_s.asp">返回...</a>
</div>
<%
EndSub
%>
<%SubShowSpaceInfo(drvpath)
dimfso,d,size,showsize
setfso=server.CreateObject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
setd=fso.getfolder(drvpath)
size=d.size
showsize=size&"Byte"
ifsize>1024Then
size=(Size/1024)
showsize=size&"KB"
endIf
ifsize>1024Then
size=(size/1024)
showsize=formatnumber(size,2)&"MB"
endIf
ifsize>1024Then
size=(size/1024)
showsize=formatnumber(size,2)&"GB"
endIf
response.write"<fontface=verdana>"&showsize&"</font>"
EndSub
%>
<%
SubRestoreData()
%>
<divalign=center>
<divalign=center>
<br/><...
</code>

注:关于ACCESS数据库的压缩,备份,还原,下载,删除的实现的内容就先介绍到这里,更多相关文章的可以留意

代码注释

作者:喵哥笔记

IDC笔记

学的不仅是技术,更是梦想!