纯编码实现Access数据库的建立或压缩

日期：2020-05-13 栏目：程序人生浏览：次

<% 
'#######以下是一个类文件，下面的注解是调用类的方法################################################ 
'# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用 
'# Access 数据库类 
'# CreateDbFile 建立一个Access 数据库文件 
'# CompactDatabase 压缩一个Access 数据库文件 
'# 建立对象方法: 
'# Set a = New DatabaseTools 
'# by (萧寒雪) s.f. 
'#########################################################################################

Class DatabaseTools

Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath) 
'建立数据库文件 
'If DbVer is 0 Then Create Access97 dbFile 
'If DbVer is 1 Then Create Access2000 dbFile 
On error resume Next 
If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\" 
If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) 
If DbExists(SavePath & dbFileName) Then 
Response.Write ("对不起，该数据库已经存在!") 
CreateDBfile = False 
Else 
Dim Ca 
Set Ca = Server.CreateObject("ADOX.Catalog") 
If Err.number<>0 Then 
Response.Write ("无法建立，请检查错误信息 
" & Err.number & " 
" & Err.Description) 
Err.Clear 
Exit function 
End If 
If DbVer=0 Then 
call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName) 
Else 
call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName) 
End If 
Set Ca = Nothing 
CreateDBfile = True 
End If 
End function

Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath) 
'压缩数据库文件 
'0 为access 97 
'1 为access 2000 
On Error resume next 
If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\" 
If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName))) 
If DbExists(SavePath & dbFileName) Then 
Response.Write ("对不起，该数据库已经存在!") 
CompactDatabase = False 
Else 
Dim Cd 
Set Cd =Server.CreateObject("JRO.JetEngine") 
If Err.number<>0 Then 
Response.Write ("无法压缩，请检查错误信息 
" & Err.number & " 
" & Err.Description) 
Err.Clear 
Exit function 
End If 
If DbVer=0 Then 
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data 
Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True") 
Else 
call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 
SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True") 
End If 
'删除旧的数据库文件 
call DeleteFile(SavePath & dbFileName) 
'将压缩后的数据库文件还原 
call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName) 
Set Cd = False 
CompactDatabase = True 
End If 
end function

Public function DbExists(byVal dbPath) 
'查找数据库文件是否存在 
On Error resume Next 
Dim c 
Set c = Server.CreateObject("ADODB.Connection") 
c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath 
If Err.number
      </div>
      
    <div class="pagess">
    <ul>
    <li><a>共2页: </a></li><li><a href='#'>上一页</a></li><li class="thisclass"><a href='#'>1</a></li><li><a href='3392_2.html'>2</a></li><li><a href='3392_2.html'>下一页</a></li>
   </ul>
  </div>
      
      <div class="post-nav">
        <div class="nav-left">上一篇：<a href='/3391.html'>ASP小偷(远程数据获取)程序的入门教程</a> </div>
        <div class="nav-right">下一篇：<a href='/3393.html'>整理了下手动注入脚本命令[带注释]</a> </div>
      </div>
      <div class="post-copyright">
        <p>内容版权声明：除非注明，否则皆为本站原创文章。</p>
        <p>转载注明出处：<a href="http://www.heiqu.com/3392.html" title="纯编码实现Access数据库的建立或压缩" target="_blank">http://www.heiqu.com/3392.html</a></p>
      </div>
      <section class="related">
        <h3>相关推荐</h3>
        <ul>
         <li><i>2021-04-09</i><span class="top">1</span><a href="/pszzg.html" target="_blank" title="vue.js在标签属性中插入变量参数的方法">vue.js在标签属性中插入变量参数的方法</a></li>
<li><i>2021-04-09</i><span class="top">2</span><a href="/pszwp.html" target="_blank" title="cli 打包时抽离项目相关配置文件详解">cli 打包时抽离项目相关配置文件详解</a></li>
<li><i>2021-04-09</i><span class="top">3</span><a href="/pszwj.html" target="_blank" title="解决iview打包时UglifyJs报错的问题">解决iview打包时UglifyJs报错的问题</a></li>
<li><i>2021-04-09</i><span class="top">4</span><a href="/pszww.html" target="_blank" title="<strong>Ubuntu 编译运行C笔记</strong>"><strong>Ubuntu 编译运行C笔记</strong></a></li>
<li><i>2021-04-09</i><span class="top">5</span><a href="/pszyx.html" target="_blank" title="Android 多线程断点续传下载器">Android 多线程断点续传下载器</a></li>

</ul>
      </section>

</article>
  </main>
  <aside class="sidebar">
    <section class="widget" id="divSearchPanel">
      <h3><i class="icon-th-list"></i> 搜索</h3>
      <div>
        <form  name="formsearch" action="/plus/search.php">
          <input type="text" name="q" size="11"   type="text" id="search-keyword" value="" onfocus="if(this.value=='在这里搜索...'){this.value='';}"  onblur="if(this.value==''){this.value='在这里搜索...';}" />
          <input type="submit" value="搜索" />
        </form>
      </div>
    </section>
    <section class="widget" id="scroll">
      <h3><i class="icon-th-list"></i> 热门文章</h3>
      <ul class="hot-post">
        <li>
          <div class="thumb"><a href="/d27832c83a4f674e4abd0c288bcdc73a.html" title="详解jQuery中的prop()使用方法"><img src="/images/random/tb7.jpg" alt="详解jQuery中的prop()使用方法"/></a></div>
          <div class="hot-title"><a href="/d27832c83a4f674e4abd0c288bcdc73a.html" title="详解jQuery中的prop()使用方法">详解jQuery中的prop()使用方法</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-10-10</div>
        </li>
<li>
          <div class="thumb"><a href="/f199a1e391c7ca83f842617a1deb34b0.html" title="vue发送ajax请求详解"><img src="/images/random/tb1.jpg" alt="vue发送ajax请求详解"/></a></div>
          <div class="hot-title"><a href="/f199a1e391c7ca83f842617a1deb34b0.html" title="vue发送ajax请求详解">vue发送ajax请求详解</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-12-22</div>
        </li>
<li>
          <div class="thumb"><a href="/ade0a61af45be9a357a9ea7a656c51a2.html" title="自动构建平台jenkins使用"><img src="/images/random/tb11.jpg" alt="自动构建平台jenkins使用"/></a></div>
          <div class="hot-title"><a href="/ade0a61af45be9a357a9ea7a656c51a2.html" title="自动构建平台jenkins使用">自动构建平台jenkins使用</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-07-27</div>
        </li>
<li>
          <div class="thumb"><a href="/0e10857252105e3e6010fdab5fcafa04.html" title="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"><img src="/uploads/allimg/200727/0H3026410_lit.jpg" alt="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"/></a></div>
          <div class="hot-title"><a href="/0e10857252105e3e6010fdab5fcafa04.html" title="<strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong>"><strong>嘎吱作响Creaks视频流程攻略 全解密过法攻略</strong></a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-01-24</div>
        </li>
<li>
          <div class="thumb"><a href="/7450367b35f63929c367ba5177eebece.html" title="PHP连接SQLSERVER 注意事项(附dll文件下载)"><img src="/images/random/tb15.jpg" alt="PHP连接SQLSERVER 注意事项(附dll文件下载)"/></a></div>
          <div class="hot-title"><a href="/7450367b35f63929c367ba5177eebece.html" title="PHP连接SQLSERVER 注意事项(附dll文件下载)">PHP连接SQLSERVER 注意事项(附dll文件下载)</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2020-10-12</div>
        </li>

</ul>
    </section>
    <section class="widget">
      <h3><i class="icon-th-list"></i> 热评文章</h3>
      <ul class="hot-post">
        <li>
          <div class="thumb"><a href="/pszzg.html" title="vue.js在标签属性中插入变量参数的方法"><img src="/uploads/allimg/200606/1Q9303356_lit.jpg" alt="vue.js在标签属性中插入变量参数的方法"/></a></div>
          <div class="hot-title"><a href="/pszzg.html" title="vue.js在标签属性中插入变量参数的方法">vue.js在标签属性中插入变量参数的方法</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszwp.html" title="cli 打包时抽离项目相关配置文件详解"><img src="/uploads/allimg/200606/1QU0JK_lit.jpg" alt="cli 打包时抽离项目相关配置文件详解"/></a></div>
          <div class="hot-title"><a href="/pszwp.html" title="cli 打包时抽离项目相关配置文件详解">cli 打包时抽离项目相关配置文件详解</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszwj.html" title="解决iview打包时UglifyJs报错的问题"><img src="/uploads/allimg/200606/1QP13141_lit.jpg" alt="解决iview打包时UglifyJs报错的问题"/></a></div>
          <div class="hot-title"><a href="/pszwj.html" title="解决iview打包时UglifyJs报错的问题">解决iview打包时UglifyJs报错的问题</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszww.html" title="<strong>Ubuntu 编译运行C笔记</strong>"><img src="/images/random/tb16.jpg" alt="<strong>Ubuntu 编译运行C笔记</strong>"/></a></div>
          <div class="hot-title"><a href="/pszww.html" title="<strong>Ubuntu 编译运行C笔记</strong>"><strong>Ubuntu 编译运行C笔记</strong></a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>
<li>
          <div class="thumb"><a href="/pszyx.html" title="Android 多线程断点续传下载器"><img src="/uploads/allimg/200606/1Q6126310_lit.png" alt="Android 多线程断点续传下载器"/></a></div>
          <div class="hot-title"><a href="/pszyx.html" title="Android 多线程断点续传下载器">Android 多线程断点续传下载器</a></div>
          <div class="hot-time"><i class="icon-time"></i> 2021-04-09</div>
        </li>

</ul>
    </section>
    
  </aside>
</div>
<footer class="footer">

<p>Copyright © 2020 黑区网络 版权所有 longwanglaozi@gmail.com 主题由 <a href="http://www.heiqu.com" title="黑区网络" target="_blank">黑区网络</a> 制作.  ICP备案:<a href="https://beian.miit.gov.cn/" target="_blank"> 京ICP备14015190号-4</a></p>

<p>友情链接：<a href="http://www.fulingjiang.cn" title="傅令江的个人博客" target="_blank">傅令江的个人博客</a> </p>

</div>

</footer>

$(document).ready(function(){

$(".post .thumb img,.entry img").lazyload({

placeholder : "/style/images/grey.gif",

effect      : "fadeIn"

});

</script>