sql语句大全之ACCESS数据库的压缩,备份,还原,下载

当前位置:
首页 > 数据库 > sql数据库 >

sql语句大全之ACCESS数据库的压缩,备份,还原,下载
代码如下:
	
	<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/><...
栏目列表