国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 數據庫 > SQL Server > 正文

ACCESS數據庫的壓縮,備份,還原,下載,刪除的實現

2024-08-31 01:00:30
字體:
來源:轉載
供稿:網友

復制代碼 代碼如下:


<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>數據庫管理</title>
</head>

<body>
<div align=center>數據庫管理系統</div>
<br>
<br>
<p align="center">

<%
Dim ZC_DATABASE_PATH
'數據庫的路徑
ZC_DATABASE_PATH="database/data.mdb"


data_array= Split(ZC_DATABASE_PATH,"/")


Dim action
action=trim(request("action"))
Dim dbpath,bkfolder,bkdbname,fso,fso1

Select Case action
Case ""
Call chushihua()
Case "CompressData" '壓縮數據
Dim tmprs
dim allarticle
dim Maxid
dim topic,username,dateandtime,body
call CompressData()
case "BackupData" '備份數據
if request("act")="Backup" Then
call updata()
else
call BackupData()
end If
case "RestoreData" '恢復數據
dim backpath
if request("act")="Restore" Then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" Then
response.write "Please input your database whole Name" 
else
Dbpath=server.mappath(Dbpath)
end If
backpath=server.mappath(backpath)

Set Fso=server.CreateObject("scripting.filesystemobject")
if fso.fileexists(dbpath) Then 
fso.copyfile Dbpath,Backpath
response.write "數據庫被成功還原!<br>"
else
response.write "沒找到您所需要的數據庫!" 
end If
else
call RestoreData()
end If
Case "SpaceSize" '系統空間占用
call SpaceSize()
Case "deletebackup"
Dim dbname
dbpath=Request.QueryString("dbpath")
dbname=Request.QueryString("dbname")
dbpath=Server.MapPath(dbpath)
dbpath=dbpath &"/"&dbname
set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
fso.DeleteFile(DBPath)
Set fso = nothing
response.write "<br>您備份的數據庫已經" & dbpath &"被成功刪除!<br><br><a href=""data_s.asp"">返回..</a>"
Else
response.write dbpath 
response.write "<br>輸入的路徑錯誤,請確認后重新輸入!<br><br><a href=""data_s.asp"">返回..</a>"
End If
Case Else
End Select

%>
</div>
<%
response.write"</body></html>"

Sub chushihua()
%>
<div align=center>
<form id="edit">
<br/>
<a href="?action=CompressData">[壓縮數據庫]</a>
<br/><br/><a href="?action=BackupData">[備份數據庫]</a>
<br/><br/><a href="?action=RestoreData">[還原數據庫]</a>
<br/><br/><a href="?action=SpaceSize">[系統空間占用]</a>
<br/><br/>
</form>
</div>
<%end sub%>

<%
'====================系統空間占用=======================
Sub SpaceSize()
On Error Resume Next
%>
<div align=center>
<div align=center>
系統空間查看
<br/><br/>
<form id="edit">
<br>
數據庫:<%showSpaceinfo("../"&data_array(1)&"")%><br><br>
備份數據庫:<%showSpaceinfo("databackup")%><br><br>
系統總共:<%showSpaceinfo("/")%>
<br><br>
</form>
</div>
<br >
<br >
<br >
<a href="data_s.asp">返回...</a>
</div> 
<%
End Sub
%>
<% Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.CreateObject("scripting.filesystemobject") 
drvpath=server.mappath(drvpath) 
set d=fso.getfolder(drvpath) 
size=d.size
showsize=size & " Byte" 
if size>1024 Then
size=(Size/1024)
showsize=size & " KB"
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " MB" 
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " GB" 
end If 
response.write "<font face=verdana>" & showsize & "</font>"
End Sub 
%>
<%
Sub RestoreData()
%>
<div align=center>
<div align=center>
<br/><...

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 渝北区| 璧山县| 山阴县| 翁源县| 安康市| 凤凰县| 清丰县| 浦县| 行唐县| 南康市| 镇沅| 通河县| 石棉县| 濉溪县| 容城县| 呈贡县| 顺义区| 陵水| 宜城市| 甘泉县| 阿克苏市| 达州市| 澄城县| 东阳市| 阿拉尔市| 醴陵市| 龙门县| 乌什县| 南涧| 牟定县| 东兴市| 清远市| 黄山市| 溧阳市| 城固县| 长宁县| 鄂温| 文昌市| 贵州省| 东平县| 两当县|