2. Tech
  3. ASP compression Access method (code)

ASP compression Access method (code)

xiaoxiao2021-03-06  81

DIM DBPATHDIM OBJFILESYSTEMDIM OBJENGINE

Dbpath = server.mappath (condatabasePath) 'Database path CondAsepath is a database file path constant

Set objfilesystem = creteObject ("scripting.filesystemobject")

IF ObjFileSystem.fileexists (dbpath) THEN

Set objEngine = CreateObject ( "JRO.JetEngine") objEngine.CompactDatabase "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & DBPath, "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & DBPath & ".Temp" objfilesystem.copyfile dbpath & ".temp", tmp_ Objfilesystem.deletefile (dbpath & ".temp")

Set objengine = Nothing

END IF

Set objfilesystem = Nothing

转载请注明原文地址:https://www.9cbs.com/read-73614.html

9cbs

New Post(0)