用【yòng】ACCESS数据库👧开发的网站【wǎng zhàn】🙊,当随着【dāng suí zhe】网站【wǎng zhàn】🙊数据量【shù jù liàng】的不断【de bú duàn】增💕长➡.数据库👧的容量🧞也是不断加大.这让【zhè ràng】ASP程序速度直线👓下降【xià jiàng】.如果才能让🐦ACCESS数据库👧容量尽可能小.我们要【wǒ men yào】🐮对它进行压缩处理【chù lǐ】.
下面是【xià miàn shì】我整理后的源代码，复制另🐮存为⚾compact.asp并上传【bìng shàng chuán】到数据【dào shù jù】库所在🍛目录即【mù lù jí】可正常📜使用。
|
以下为引用的内容【nèi róng】🎂：
<html>
<head>
<title>ACCESS数据库【shù jù kù】⬛压缩程序🍼-网页制【wǎng yè zhì】作教程</title>
</head>
<body bgcolor="e0f8ef">
<div>
<div align="center"><font color="#3300FF">
<b><font size="5">通用ACCESS数据库【shù jù kù】⬛在线压【zài xiàn yā】缩程序🍼</font></b></font><br>
</div>
<div>
<br>
|
本程序其实是【qí shí shì】通过👳FSO权限和🎤JET引擎连接【jiē】，
因此在使用之🛵前请确认你的【rèn nǐ de】服务器【fú wù qì】🤥支持FSO
（filesystemobject)权限并【quán xiàn bìng】😩安装的🦀ACCESS最新驱【zuì xīn qū】动！
从安全【cóng ān quán】出发🚫，请在压【qǐng zài yā】缩之前👛备份原【bèi fèn yuán】始数据库😁！
|
以下为引用的内容【nèi róng】😩：
</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 = "你的数【nǐ de shù】据库, " & dbpath & ", 已经被压缩🔻" & vbCrLf
Else
CompactDB = "你输入的数据【de shù jù】库路径【kù lù jìng】😘或名称未找到【wèi zhǎo dào】🕒，请重试" & 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">
压缩选【yā suō xuǎn】🌭项🚞，请仔细【qǐng zǎi xì】填写！</font></b><br>
<br>
|
输入数据库全称：
|
以下为引用的内容【nèi róng】🌺：
<input type="text" name="dbpath">
（包括扩展名，如【rú】MDB、ASA、ASP等）<br>
<br>
<input type="checkbox" name="boolIs97" value="True">
检查是否为📔ACCESS97数据库<br>
(默认为【mò rèn wéi】⏪ACCESS2000的数据【de shù jù】库)<br>
<br>
<input type="submit" name="submit" value="确认压【què rèn yā】🦁缩🚋">
</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操作【cāo zuò】ACCESS文件【wén jiàn】🐠,所以要使用本【shǐ yòng běn】🎐例请确【lì qǐng què】保你的服务器支持FSO支持.
