ASP Access สำรองข้อมูล, เรียกคืน, รหัสการใช้งานระดับการบีบอัดคุณสามารถอ้างอิงได้ <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
-
'คลาสการจัดการฐานข้อมูล
ข้อมูลคลาส
'ตัวสำรอง
สาธารณะ subBk()
ตั้งค่า fso=server.createobject(scripting.filesystemobject)
fso.CopyFile Server.MapPath (SiteDataPath), Server.MapPath (SiteDataBakPath)
ตั้งค่า fso=nothing
response.Write(<script language=javascript><!--
alert('สำรองข้อมูลสำเร็จ!');window.location.href='DataManage.asp'
// --></สคริปต์>)
จบย่อย
'การลดน้อยลง
สาธารณะย่อย Rt()
SDPath = server.mappath (SiteDataPath)
SDBPath = server.mappath (SiteDataBakPath)
ตั้งค่า Fso = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Fso.FileExists(SDBPath) แล้ว
Fso.CopyFile SDBPath,SDPath
ตั้งค่า Fso=nothing
response.Write(<script language=javascript><!--
alert('Success: คุณกู้คืนฐานข้อมูลสำเร็จแล้ว!');window.location.href='DataManage.asp?action=rt'
// --></สคริปต์>)
อื่น
response.Write(<script language=javascript><!--
alert('Failure: โปรดตรวจสอบว่ามีพาธและชื่อฐานข้อมูลอยู่หรือไม่');window.location.href='DataManage.asp?action=rt'
// --></สคริปต์>)
สิ้นสุดถ้า
จบย่อย
'การบีบอัด
สาธารณะย่อย Dc()
SDBPath = server.mappath (SiteDataBakPath)
ตั้งค่า Fso = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Fso.FileExists(SDBPath) แล้ว
ตั้งค่าเครื่องยนต์ =Server.CreateObject(JRO.JetEngine)
ถ้า request(boolIs) = 97 แล้ว
ผู้ให้บริการ Engine.CompactDatabase=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล= & SDBPath, _
ผู้ให้บริการ=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล= & SDBPath & _temp.mdb;
& เจ็ต OLEDB:ประเภทเครื่องยนต์= & JET_3X
อื่น
ผู้ให้บริการ Engine.CompactDatabase=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล= & SDBPath, _
ผู้ให้บริการ=Microsoft.Jet.OLEDB.4.0;แหล่งข้อมูล= & SDBPath & _temp.mdb
สิ้นสุดถ้า
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile (SDBPath & _temp.mdb)
ตั้งค่า Fso = ไม่มีเลย
ตั้งค่า Engine = ไม่มีเลย
response.Write(<script language=javascript><!--
alert('Success: ฐานข้อมูลถูกบีบอัดเรียบร้อยแล้ว!');window.location.href='DataManage.asp?action=dc'
// --></สคริปต์>)
อื่น
response.Write(<script language=javascript><!--
alert('Failure: การบีบอัดฐานข้อมูลล้มเหลว โปรดตรวจสอบว่ามีพาธและชื่อฐานข้อมูลอยู่หรือไม่'); window.location.href='DataManage.asp?action=dc'
// --></สคริปต์>)
สิ้นสุดถ้า
จบย่อย
จบคลาส
-