没有合适的资源?快使用搜索试试~ 我知道了~
ACCESS数据库的压缩,备份,还原,下载,删除的实现
0 下载量 176 浏览量
2020-12-15
03:32:08
上传
评论
收藏 31KB PDF 举报
温馨提示
试读
3页
代码如下:<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 u00a0align=center>数据库管理系统</div> <br> <br> <p u00a0align=”center”> <% Dim ZC_DATABASE_PATH ‘数据库的路径 ZC_DATABASE_PATH=”database/dat
资源详情
资源评论
资源推荐
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)
weixin_38686041
- 粉丝: 2
- 资源: 953
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- 三维装箱问题(Three-Dimensional Bin Packing Problem,3D-BPP)是一个经典的组合优化问题
- 以下是一些关于Linux线程同步的基本概念和方法.txt
- 以下是一个简化的示例,它使用pygame库来模拟烟花动画的框架.txt
- Linux线程同步机制深度解析与实用指南.zip
- PTA题库C语言解题策略与实战.rar
- SVPWM控制技术的simulink建模与仿真【包括simulink模型,参考文献,操作步骤】
- AI高清修复图片画质易语言易语言源码易语言填表
- 映射窗口.ec易语言易语言模块CPU占用0%游戏监控窗口监控
- 易语言 361窗口模块高效、便捷、自封装、自用
- 易语言 窗口排列 模块 ,简单、高效、体积小
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0