ASP压缩ACCESS数据库实例

数据库
ASP压缩ACCESS数据库可以在ACCESS数据库容量增大的情况下将数据库容量进行压缩,进而可以承担更多的容量,这也是为了让ASP程序的速度提升上去。

ACCESS数据库开发的网站,当随着网站数据量的不断增长.数据库的容量也是不断加大.这让ASP程序速度直线下降.如果才能让ACCESS数据库容量尽可能小.我们要对它进行压缩处理.下文中将为大家介绍ASP压缩ACCESS数据库实例。

下面是我整理后的源代码,复制另存为compact.asp并上传到数据库所在目录即可正常使用。

以下为引用的内容:

<html>
<head>
<title>ACCESS数据库压缩程序-网页制作教程</title>
</head>
<body bgcolor="e0f8ef">
<div>
<div align="center"><font color="#3300FF">
<b><font size="5">通用ACCESS数据库在线压缩程序</font></b></font><br>
</div>
<div>
<br>
本程序其实是通过FSO权限和JET引擎连接,

因此在使用之前请确认你的服务器支持FSO

(filesystemobject)权限并安装的ACCESS***驱动!

从安全出发,请在压缩之前备份原始数据库!

以下为引用的内容:

</div><br>
<div align="center">运行环境:在WIN98SE+PWS、WIN2000+IIS5.0 <br>
<%
Const JET_3X = 4
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,""))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的数据库, " & dbpath & ", 已经被压缩" & vbCrLf
Else
CompactDB = "你输入的数据库路径或名称未找到,请重试" & vbCrLf
End If
End Function
%>
</div>
</div>
<form name="compact" method="post" action="compact.asp">
<div align="center">
<font size="2"><b><font color="#FF0000">
压缩选项,请仔细填写!</font></b><br>
<br>
输入数据库全称:

以下为引用的内容:

<input type="text" name="dbpath">
(包括扩展名,如MDB、ASA、ASP等)<br>
<br>
<input type="checkbox" name="boolIs97" value="True">
检查是否为ACCESS97数据库<br>
(默认为ACCESS2000的数据库)<br>
<br>
<input type="submit" name="submit" value="确认压缩">
</font></div>
</form>
<div align="center"><font size="2">
<%
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbparesponse.write(CompactDB(dbpath,boolIs97))
End If
%>
<br>
</font></div></body></html>th <> "" Then
dbpath = server.mappath(dbpath)
 

注意:由于本例实用的是FSO操作ACCESS文件,所以要使用本例请确保你的服务器支持FSO支持.

希望大家通过上文中的学习,能够掌握ASP压缩ACCESS数据库的方法,在大家以后遇到类似问题时,就能够轻松解决类似的问题。

【编辑推荐】

  1. asp如何和access数据库连接
  2. 实战ASP数据库
  3. ASP调用SQL Server存储过程的实际操作步骤

 

责任编辑:迎迎 来源: web2bar.cn
相关推荐

2011-04-01 12:32:37

aspaccess数据库

2009-08-28 13:03:55

C#压缩Access数

2011-04-08 09:42:19

Access数据库压缩文件

2009-08-19 16:30:55

C#操作Access数

2010-04-30 13:26:50

Oracle数据库

2011-08-25 17:15:04

2011-07-06 14:09:40

ASP

2009-07-29 09:12:31

ASP.NET数据库连

2011-08-25 16:50:20

SQL ServerAccessASP

2011-03-28 09:27:52

数据库压缩日志

2011-03-22 16:31:35

Access数据库

2010-09-30 08:27:48

2011-03-04 10:30:25

ASP数据库

2011-04-08 10:43:08

mysql数据access数据库

2017-06-12 18:24:25

数据库压缩技术

2011-04-08 09:07:25

Access数据库Oracle库

2011-08-24 13:49:45

Access数据库转化

2009-12-21 15:07:41

ADO Access数

2011-04-13 14:38:17

2011-03-07 17:35:09

JavaACCESS数据库
点赞
收藏

51CTO技术栈公众号