家园首页 Php4手册 我的相册 家园下载 个人文集 给我留言
我形我塑,网络相册,www.5x54.com 相册 相册 心情相册,少女相册 免费申请,我形我塑免费相册
 家园 个人文集   http://www.5x54.com
 


FSO对ACCESS压缩,备份,还原,删除操作

作者：网上收集    点击： 读取中... 次

FSO对ACCESS压缩,备份,还原,删除操作 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
引用代码：Function CompactDatabase(SourceFile) 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   On Error Resume Next 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Dim FSO,Engine 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Server.CreateObject("Scripting.FileSystemObject") 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   If Err <> 0 Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Err.Clear 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Response.Write "服务器关闭FSO" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      If FSO.FileExists(SourceFile) Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "正在压缩数据库...<br/>" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Set Engine = CreateObject("JRO.JetEngine") 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceFile, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceFile & ".temp" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.CopyFile SourceFile & ".temp",SourceFile 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.DeleteFile SourceFile & ".temp" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Set Engine = Nothing 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "压缩数据库完成..." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "无法找到源文件." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Nothing 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
End Function 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
Function BackupDatabase(SourceFile,BackupFile) 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   On Error Resume Next 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Dim FSO 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Server.CreateObject("Scripting.FileSystemObject") 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   If Err <> 0 Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Err.Clear 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Response.Write "服务器关闭FSO" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      If FSO.FileExists(SourceFile) Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "正在备份数据库...<br/>" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.CopyFile SourceFile,BackupFile 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "备份数据库完成..." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "无法找到源文件." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Nothing 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
End Function 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
Function RestoreDatabase(ThisFile,SourceFile) 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   On Error Resume Next 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Dim FSO 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Server.CreateObject("Scripting.FileSystemObject") 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   If Err <> 0 Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Err.Clear 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Response.Write "服务器关闭FSO" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      If FSO.FileExists(ThisFile) Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.DeleteFile SourceFile 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         If Err <> 0 Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
            Err.Clear 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
            Response.Write "原数据库文件使用中...无法进行还原操作" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
            Exit Function 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.CopyFile ThisFile,SourceFile 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "还原数据库成功." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "无法找到文件." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Nothing 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
End Function 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
Function DelDatabase(SourceFile) 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   On Error Resume Next 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Dim FSO 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Server.CreateObject("Scripting.FileSystemObject") 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   If Err <> 0 Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Err.Clear 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Response.Write "服务器关闭FSO" 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      If FSO.FileExists(SourceFile) Then 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         FSO.DeleteFile SourceFile 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "删除数据库完成." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      Else 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
         Response.Write "没有该文件." 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
      End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   End If 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
   Set FSO = Nothing 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^
End Function 版权保护版权保护，请不要随意复制^%#$32412)98sa。^_^，请不要随意复制^%#$32412)98sa。^_^

收藏此文章　　　　　打印  更新　　　　　编辑此文章　　　　『关闭窗口』