发布于 2016-04-13 09:53:32 | 55 次阅读 | 评论: 0 | 来源: 网友投递

这里有新鲜出炉的精品教程,程序狗速度看过来!

Access 微软关系数据库管理系统

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一。




<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/><...


相关阅读 :
ACCESS数据库的压缩,备份,还原,下载,删除的实现
Access数据库的存储上限
在网页上进行access数据库压缩的方法
将Access数据库中数据导入到SQL Server中的详细方法实例
将Excel中数据导入到Access数据库中的方法
SQL语句实现删除ACCESS重复记录的两种方法
如何把ACCESS的数据导入到Mysql中
最新网友评论  共有(0)条评论 发布评论 返回顶部

Copyright © 2007-2017 PHPERZ.COM All Rights Reserved   冀ICP备14009818号  版权声明  广告服务