绿色资源网:您身边最放心的安全下载站! 最新软件|热门排行|软件分类|软件专题|论坛转帖|厂商大全

技术教程
您的位置:首页数据库类Access → ASP压缩ACCESS数据库实例

ASP压缩ACCESS数据库实例

全红彩票登入2009/12/16 23:01:29来源:绿色资源网编辑:绿色资源站 [ ] 评论:0 点击:0次

用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,数据库

阅读本文后您有什么感想? 已有 人给出评价!

  • 0 欢迎喜欢
  • 0 白痴
  • 0 拜托
  • 0 哇
  • 0 加油
  • 0 鄙视
网站地图 乐趣彩票app下载登入 彩票巴巴登录登入 红中彩票平台登入
申博游戏网 澳门银河网上赌场登入 老虎机游戏下载 澳门赌场排名登入
金沙城中心2 金沙娱乐集团 BB电子游艺百搭二王 大奖888娱乐游戏登入
乐趣彩票客户端下载登入 彩票巴巴开户登入 红中彩票网址登入 yy彩票网址登入
彩票巴巴登录登入 乐趣网彩票注册登入 红中彩票app下载登入 168彩票注册登入
XSB886.COM S618J.COM 549xx.com 157ib.com 179SUN.COM
800xsb.com 9927w.com 716SUN.COM 22sbib.com 557XTD.COM
8ZQS.COM 788TGP.COM S6182.COM 5888DZ.COM 8AKS.COM
XSB345.COM 1112937.COM DC238.COM 587PT.COM 585sunbet.com