文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了ASP-纯编码实现Access数据库的建立或压缩的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
<% ''#######以下是一个类文件，下面的注解是调用类的方法################################################ ''# 注意：如果系统不支持建立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<>0 Then Err.Clear DbExist </div> <div class="page"> <a href="http://myeducs.cn/bianchengwendang/ASP/chunbianmashixian-Access-shujukudejianlihuoyasuo/" class="current">1</a><a href="http://myeducs.cn/bianchengwendang/ASP/chunbianmashixian-Access-shujukudejianlihuoyasuo_1/">2</a><a href="http://myeducs.cn/bianchengwendang/ASP/chunbianmashixian-Access-shujukudejianlihuoyasuo_1/">下一页</a> </div> <div style="text-align:center"> <script language="javascript">var infoid = '147573';var classid = 'news';</script><script language = "JavaScript" src ="/Ajax/mood.js"></script> </div> <div id="wz_46860" style="margin:2px 0px 0px 0px"><script language="javascript" src="http://myeducs.cn/template/images/biadu2.js"></script></div> <div class="shuqian"><script language="javascript" src="/js/cang.js"></script></div> </div> <div class="clear"> </div> <div class="wle4" align=center> <a href="http://wenku.myeducs.cn/" title="点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋" target="_blank" style="color:#ff0000; font-size:14px; ">点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋友</a> </div> <div class="wle41"> <li>上一篇资讯： <a href='http://myeducs.cn/bianchengwendang/ASP/yuanchengtupianzidonganwenjianjiashangchuandaofuwuqi-mofeichupin/'>远程图片自动按文件夹上传到服务器-默飞出品</a></li> </div> <div class="wle41"> <li>下一篇资讯： <a href='http://myeducs.cn/bianchengwendang/ASP/yong-XMLFSOJS-shixianfuwuqiduanwenjiandexuanzexiaoguo/'>用XML+FSO+JS实现服务器端文件的选择效果</a></li> </div> <div class="wle5"> <script language="javascript" src="http://myeducs.cn/template/images/path.js"></script></div> <div class="jiange"> </div> <div class="indexmbleft1"> <div class="indexmbleft1t"> <h2>相关资讯</h2> <span></span> <div class="clear"> </div> </div> <div class="indexmbleft1li"> <div id="RelatedContainer"> <div class="related"> <div class="title"> <h3>相关文章</h3> </div> <ul class="list"> <li> <a title="用XML+FSO+JS实现服务器端文件的选择效果" href="http://myeducs.cn/bianchengwendang/ASP/yong-XMLFSOJS-shixianfuwuqiduanwenjiandexuanzexiaoguo/" target="_blank"> <span>用XML+FSO+JS实现服务器端文件的选择效果</span></a></li> <li> <a title="同一个帐号不能同时登陆的问题" href="http://myeducs.cn/bianchengwendang/ASP/tongyigezhanghaobunengtongshidengludewenti/" target="_blank"> <span>同一个帐号不能同时登陆的问题</span></a></li> <li> <a title="跨越fso、wsh、 application写文件" href="http://myeducs.cn/bianchengwendang/ASP/kuayue-fsowsh-application-xiewenjian/" target="_blank"> <span>跨越fso、wsh、 application写文件</span></a></li> <li> <a title="用ASP设计购物推车" href="http://myeducs.cn/bianchengwendang/ASP/yong-ASP-shejigouwutuiche/" target="_blank"> <span>用ASP设计购物推车</span></a></li> <li> <a title="ASP中Web页面间的数据传递方式" href="http://myeducs.cn/bianchengwendang/ASP/ASP-zhong-Web-page-jiandeshujuchuandifangshi/" target="_blank"> <span>ASP中Web页面间的数据传递方式</span></a></li> </ul> <div class="clear"> </div> </div> <div class="related" style=" margin-left:7px;"> <div class="title"> <h3>相关专题</h3> </div> <ul class="list"> <li><a href="http://myeducs.cn/bianchengwendang/ASP/ASP-ruhehuoquzhenshi-IP-dizhi/" target="_blank" title="ASP如何获取真实IP地址"><span>ASP如何获取真实IP地址</span></a></li> <li><a href="http://myeducs.cn/bianchengwendang/ASP/yong-ASP-kaifa-WEB-riqixuanzeqi/" target="_blank" title="用ASP开发WEB日期选择器"><span>用ASP开发WEB日期选择器</span></a></li> <li><a href="http://myeducs.cn/bianchengwendang/ASP/yong-ASP-he-MicrosoftXMLDOM-fenxiyuancheng-XML-wenjian/" target="_blank" title="用ASP和Microsoft.XMLDOM分析远程XML文件"><span>用ASP和Microsoft.XMLDOM分析远程XML文件</span></a></li> <li><a href="http://myeducs.cn/bianchengwendang/ASP/zai-ASP-zhongyong-zhengzebiaodashiduixiang-laixiaoyanshujudehefaxing/" target="_blank" title="在ASP中用“正则表达式对象”来校验数据的合法性"><span>在ASP中用“正则表达式对象”来校验数据的合法性</span></a></li> <li><a href="http://myeducs.cn/bianchengwendang/ASP/zai-ASP-chengxuzhongshixianshujukushiwukongzhi/" target="_blank" title="在ASP程序中实现数据库事务控制"><span>在ASP程序中实现数据库事务控制</span></a></li> </ul> <div class="clear"> </div> </div> <div class="clear"> </div> </div> </div> </div> </div> <div class="indexmr"> <div class="indexrightgg"> <script language="javascript" src="http://myeducs.cn/template/images/250_250.js"></script> </div> <div class="jiange"> </div> <div class="indexmr1"> <div class="indexmr1t"> <h2>网学推荐</h2> </div> <div class="indexmr1li"> <script language="javascript" src="http://myeducs.cn/template/images/1.js"></script> </div> </div> <div class="jiange"> </div> <div class="indexmr1"> <div class="indexmr1t"> <h2>免费论文</h2> </div> <div class="indexmr1li"> <script language="javascript" src="http://myeducs.cn/template/images/2.js"></script> </div> </div> <div class="jiange"> </div> <div class="indexmr1"> <div class="indexmr1t"> <h2>原创论文</h2> </div> <div class="indexmr1li"> <script language="javascript" src="http://myeducs.cn/template/images/3.js"></script> </div> </div> <div class="jiange"> </div> <div class="indexmr1"> <div class="indexmr1t"> <h2>文章排行榜</h2> </div> <div class="indexmr1li"> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/IIS-deanzhuanghepeizhiquanguocheng/" target="_blank"><span>IIS的安装和配置全过程</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/HTML-biaozhunzhidingzuzhikaishiwei-HTML-yuyanjiaruyingjiancaozuogongneng/" target="_blank"><span>HTML标准制定组织开始为HTML语言加</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/asp-deriqizhuanhuanxingzuohanshu/" target="_blank"><span>asp的日期转换星座函数</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/PHP-chengxuyuandetiaoshijishuxiaojie/" target="_blank"><span>PHP 程序员的调试技术小结</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/guanyu-Aspnet-ajax-xiadeyichangchuli/" target="_blank"><span>关于Asp.net ajax下的异常处理</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-chengxuzhijielianjie-MYSQL-shujuku/" target="_blank"><span>ASP程序直接连接MYSQL数据库</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-lianjie-MSSQL-decuowu-jujuefangwen/" target="_blank"><span>ASP连接MSSQL的错误: 拒绝访问</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-chuliduoguanjiancichaxunshilidaima/" target="_blank"><span>ASP处理多关键词查询实例代码</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ruhezaizijide-PC-shang-running-ASP/" target="_blank"><span>如何在自己的 PC 上运行 ASP</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-yufa/" target="_blank"><span>ASP 语法</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-bianliang/" target="_blank"><span>ASP 变量</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/zai-ASP-zhong-niketongguo-VBScript-heqitafangshitiaoyongzicheng/" target="_blank"><span>在 ASP 中，你可通过 VBScript 和其</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-biaodanheyonghushuru/" target="_blank"><span>ASP 表单和用户输入</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-Cookie/" target="_blank"><span>ASP Cookie</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-Session-duixiang/" target="_blank"><span>ASP Session 对象</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-Application-duixiang/" target="_blank"><span>ASP Application 对象</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/ASP-wenjianyinyong/" target="_blank"><span>ASP 文件引用</span></a></li> <li>· <a href="http://myeducs.cn/bianchengwendang/ASP/jiexi-ASP-zhongdechangyongfuwuqijianceyuanma/" target="_blank"><span>解析ASP中的常用服务器检测源码</span></a></li> </div> </div> </div> <div class="clear"> </div> </div> <div style="DISPLAY:none"> 浏览： <script src="http://myeducs.cn/plus/count/js.asp?id=147573" language="javascript"></script> </div> <div class="foot"> <div class="foott"> <a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://myeducs.cn');" href="#" style="color:#CC6600">设为首页</a> | <a href="javascript:window.external.addFavorite('http://myeducs.cn','网学网');" style="color:#3300FF">加入收藏</a> | <a href="http://myeducs.cn/lunwen/">论文首页</a> | <a href="http://myeducs.cn/专题.asp">论文专题</a> | <a href="http://myeducs.cn/shejixiazai/">设计下载</a> | <a href="http://myeducs.cn/shejixiazai/wangxue-soft/">网学软件</a> | <a href="http://myeducs.cn/lunwen-template/">论文模板</a> | <a href="http://myeducs.cn/lunwen-resource/">论文资源</a> | <a href="http://myeducs.cn/chengxusheji/">程序设计</a> | <a href="http://myeducs.cn/guanyuwangxue/">关于网学</a> | <a href="http://myeducs.cn/plus/search/">站内搜索</a> | <a href="http://www.myeducs.cn/dinggou/">网学留言</a> | <a href="http://www.myeducs.cn/plus/link/reg/">友情链接</a> | <a target="_blank" href="http://wenku.myeducs.cn">资料中心</a></div> <div class="footli"> 版权所有 QQ:3710167 邮箱：<a href="mailto:3710167@qq.com">3710167@qq.com</a> 网学网 [<a href="http://myeducs.cn" target="_blank">Myeducs.cn</a>] 您电脑的分辨率是 <span class="v"> <script language="JavaScript">document.write(screen.width+' x '+screen.height); </script> </span>像素 <br /> Copyright 2008-2015 <a href="http://myeducs.cn" target="_blank">myeducs.Cn</a> <a href="http://www.myeducs.cn" target="_blank">www.myeducs.Cn</a> All Rights Reserved <br /> 湘ICP备09003080号 <div> </div> </div> </div><script src="http://myeducs.cn/template/images/bottom.js" type="text/javascript"></script> </body> </html>