B.4.0;Data Source=" & Path)
   Set C = Nothing
   If Err.number=0 Then
   SI = SI & Path & "建立成功!"
   End If
   SI=SI&BackUrl
   Response.Write SI
  End function
  
  Function CompactMdb(Path)
  If Not ObT(0,1) Then
   Set C=CreateObject(ObT(3,0))
   C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path
   Set C=Nothing
  Else
   Set FSO=CreateObject(ObT(0,1))
   If FSO.FileExists(Path) Then
   Set C=CreateObject(ObT(3,0))
   C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak"
   Set C=Nothing
   FSO.DeleteFile Path
   FSO.MoveFile Path&"_bak",Path
   Else
   SI="<center><br><br><br>数据库"&Path&"没有发现！</center>"
   Err.number=1
   End If
   Set FSO=Nothing
  End If
   If Err.number=0 Then
   SI="<center><br><br><br>数据库"&Path&"压缩成功！</center>"
   End If
   SI=SI&BackUrl
   Response.Write SI
  End Function
  
  
  Function DbManager()
   SqlStr=

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

在google里搜索更多ASP站长助手源代码

	Web www.51ec.org

上一篇信息学院： 在ASP中结合对象和组件

下一篇信息学院： 解析ASP的Application和Session对象