UC知道求救!!asp高手进!!!
来源：百度知道 编辑：UC知道 时间：2024/07/02 01:42:11
请问各位朋友:以下代码是什么意思呀?请各位朋友大概指点一下是什么意思吧,谢谢了.
set FSObject=Server.CreateObject("Scripting.FileSystemObject")
if FSObject.FileExists(DBPath) then
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& DBPath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& strDBPath & "temp.mdb"
FSObject.CopyFile strDBPath & "temp.mdb",DBPath
FSObject.DeleteFile(strDBPath & "temb.mdb")
set FSObject=Server.CreateObject("Scripting.FileSystemObject")
if FSObject.FileExists(DBPath) then
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& DBPath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& strDBPath & "temp.mdb"
FSObject.CopyFile strDBPath & "temp.mdb",DBPath
FSObject.DeleteFile(strDBPath & "temb.mdb")
set FSObject=Server.CreateObject("Scripting.FileSystemObject")
<br>打开数据库
<br>if FSObject.FileExists(DBPath) then 判断语句：如果获取到的值是（DBPATH）那么将执行下一句
<br>Set Engine = CreateObject("JRO.JetEngine")打开 数据库并传给变量为“ENGINE”
<br>Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& DBPath," （"&DBPath&"数据库路径名称，但是现在是变量。）
Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "& strDBPath & "temp.mdb"
<br>FSObject.CopyFile strDBPath & "temp.mdb",DBPath
<br>FSObject.DeleteFile(strDBPath & "temb.mdb")
<br>剩下的部份差不多意思，都是依次打开数据库，还有传值！