asp如何在线压缩Access数据库？
发布时间：2010-06-26 12:25:00
如何在线压缩Access数据库？
Access数据库可以在线压缩吗？
可以的，代码和说明见下：
compact.asp
<％
option explicit
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
％>
<html>
<body>
精彩春风之在线压缩Access数据库
<p align="center">
<form action=compact.asp>
请输入数据库的相关路径、名称: <br><br>
<input type="text" name="dbpath"><br><br>
<input type="checkbox" name="boolIs97" value="True"> 检查是否Access 97 (默认为Access 2000) <br>
<input type="submit" value="开始压缩">
<form>
<br><br>
<％
Dim dbpath,boolIs97
dbpath = request("dbpath")
boolIs97 = request("boolIs97")
If dbpath <> "" Then
dbpath = server.mappath(dbpath)
response.write(CompactDB(dbpath,boolIs97))
End If
％>
</p>
</body>
</html>
0
投稿猜你喜欢
这是由十几位视觉设计师设计的挂历，每个月份都是不同的风格，就像每个月都有不同温度和心情一样，思维跳跃性很大，可以作为挂历设计参考。当然，如果- Array.prototype._ = function(){var _p = 0;var _v = 0;(function(){
- 做过主页的朋友，几乎没有一个人没用到它，它使我们排版更加轻松。有人说DW的表格没有Fp的好用，我认为不
- 相关验证码文章：asp制作验证码的方法 轩魂ASP中文验证码下载 先产生一个4位数的随机码源代码：ychar="0,1,2,3,4
- 环境：winxp sp2 ，mysql5.0.18,mysql odbc 3.51 driver 表采用 myisam引擎。access 2
- Gmail 作为一个经典的 Web 2.0 应用，在带来革命性的邮件管理体验的同时，以其完整、快速的 AJAX 操作方式，深受用户的推崇和技
- CSS入门很简单，规则不多，写法也比较灵活，因此也带来了很多有创意的写法。跟IE一样，很好的容错性，像《 边框样式写法总结 》所说的bord
- 1.了解oracle外部表 外部表定义：结构被存放在数据字典，而表数据被放在OS文件中的表 作用：在数据库中查询OS文件的数据，还可以将OS
- 像素误差看自己设计好上线的网站，偶尔会发觉像素行间出现了弹性空间，总在不经意间蹦出一定的差距。有些页面很难发现，比如活动类页面，这类页面多呈
- 好久没有写ASP代码了，今天在做一个简单的留言本时，出现了一下错误：Microsoft Office Access Database Eng
- 我想让一片文章,每到3000字就分到下一条插入到数据库,求高手 <％Dim Content Conte
- 最近在网上经常看到朋友们聊到UEO,我就想哈UEO是啥东西啊,我去找啦些资料看，他们都说将来UEO发展一定会比较好,我也说这是肯定的.我为什
- <script language="javascript"> functio
- 我们可以利用Session对象来进行注册验证。Session对象会帮我们把某一用户的信息保留下来，让后续的网页读取。我们就可以在用户注册成功
- 你已经在上面取出w打头记录的例子中看到了LIKE的用法。LIKE判定词是一个非常有用的符号。不过，在很多情况下用了它可能会带给你太多的数据，
- 先看一下br怎么玩转“清除浮动”了。使用以下代码<br clear="all" />以下是代码效果演示：运行
- 组合集总计： group by with rollup/cube grouping sets 子查询按执行方式分：标准子查询、关联子查询 标
- 首先，建一个文件夹，把你要隐藏的文件放在里面，你的所有黑客程序什么的。假设你建的文件夹叫hacker然后呢，我们给这个文件夹加个扩展名（后缀
- 在WEB2.0这个词未出现之前，是没有所谓的WEB1.0之说的，那时候的互联网也是没有时代之分的，能上的网站不多，值得上的网站更不多，很多的
- 今天偶尔在一个学习网站技术的地方看到一个教程，关于html代码的，刚看到咱常用到的视频播放器html标签Object，平时用到他的时候都是为
