ASP压缩ACCESS数据库实例
用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,数据库
相关阅读
- 07-28asp版百度ueditor在线编辑器上传图片错误(无权限问题修复)
- 05-05Windows2008 64位IIS7+ACCESS数据库无法打开Asp页面
- 05-05win7 iis7.5 Request 对象 错误 'ASP 0104 : 80004005'
- 10-16"Request 对象 错误 'ASP 0104 : 80004005'”解决办法
- 05-03Win7 IIS7.5配置解决ASP的500错误
- 04-07ASP和PHP的区别所在
- 03-09aspx文件怎么打开,ASPX的文件用什么打开?
- 03-04301转向代码大合集 包括IIS、apache和PHP程序/asp程序的301转向设置
- 02-28asp.net“服务器应用程序不可用"解决方法
- 09-24修改IIS的 ASPMaxRequestEntityAllowed
阅读本文后您有什么感想? 已有 人给出评价!
用户评论
热门评论
最新评论
相关软件
热点图文
- 04-08access数据库提示未在本地计算机上注册“Microsoft.ACE.OLEDB.12.0”提供程序解决办法
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(1)
- 04-06设置和取消ACCESS数据库密码
- 06-07ACCESS数据库中Field对象的caption属性读写
- 01-10ACCESS数据库没有写入权限导致ADODB.Recordset 错误 '800a0cb3'的解决办法
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(2)
- 04-06用asp处理access数据库
- 04-06通过ASP与ACCESS数据库建立连接(附源码)(3)
- 04-06Access数据库安全的几个问题
- 01-10Access数据库被损坏的修复方法