ฐานข้อมูล SQL Server สำรอง ASP ที่ปรับปรุงแล้ว หลักการบนอินเทอร์เน็ตไม่ค่อยดีนัก เพื่อนที่ต้องการสามารถอ้างอิงถึงได้ คัดลอกรหัสรหัสดังต่อไปนี้:
<form method=post name=myform action=?action=backupdatabase>
เลือกการดำเนินการ: <INPUT TYPE=radio NAME=act id=act_backupvalue=backup><label for=act_backup>การสำรองข้อมูล</label>
<INPUT TYPE=วิทยุ NAME=act id=act_restore value=restore><label for=act_restore>เรียกคืน</label>
<br>ชื่อฐานข้อมูล: <INPUT TYPE=text NAME=databasename value=<%=request(databasename)%>>
<br>เส้นทางของไฟล์: <INPUT TYPE=text NAME=bak_file value=c:/$1.bak> (เส้นทางของไฟล์สำรองหรือกู้คืน)<br>
<ประเภทอินพุต=ค่าส่ง=ตกลง id=ชื่อส่ง1=ส่ง1>
</แบบฟอร์ม>
-
'การสำรองและกู้คืนฐานข้อมูล SQL Server!
ถ้า request(action)=backupdatabase แล้ว
เซิร์ฟเวอร์ sql สลัว, sqlname, รหัสผ่าน sql, sqlLoginTimeout, ชื่อฐานข้อมูล, bak_file, การกระทำ
sqlserver=localhost
sqlname=sa
sqlpassword=รหัสผ่าน
sqlLoginTimeout = 15
ชื่อฐานข้อมูล = ตัด (คำขอ (ชื่อฐานข้อมูล))
bak_file = ตัด (คำขอ (bak_file))
bak_file = แทนที่ (bak_file,$1,ชื่อฐานข้อมูล)
การกระทำ = lcase (คำขอ (การกระทำ))
ถ้าชื่อฐานข้อมูล = แล้ว
ชื่อฐานข้อมูลอินพุต response.write
อื่น
ถ้า act = สำรองข้อมูลแล้ว
ตั้งค่า srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.เชื่อมต่อ sqlserver, sqlname, sqlpassword
ตั้งค่า bak = Server.CreateObject(SQLDMO.Backup)
bak.Database=ชื่อฐานข้อมูล
bak.Devices=ไฟล์
บัคแอคชั่น = 0
bak.Initialize = 1
'bak.Replace = จริง'
bak.Files=bak_file
bak.SQLBackup srv
ถ้า err.number>0 แล้ว
response.write err.number&<font color=red><br>
response.write ผิดพลาด.description&</font>
สิ้นสุดถ้า
Response.write <font color=green>สำรองข้อมูลสำเร็จ!</font>
elseif act=restore แล้ว
'การคืนค่าควรทำเมื่อไม่ได้ใช้งานฐานข้อมูล!
ตั้งค่า srv=Server.CreateObject(SQLDMO.SQLServer)
srv.LoginTimeout = sqlLoginTimeout
srv.เชื่อมต่อ sqlserver, sqlname, sqlpassword
ตั้งค่าส่วนที่เหลือ=Server.CreateObject(SQLDMO.Restore)
rest.Action=0 ' คืนค่า db เต็ม
rest.Database=ชื่อฐานข้อมูล
rest.Devices=ไฟล์
rest.Files=bak_file
rest.ReplaceDatabase=True 'บังคับให้เรียกคืนฐานข้อมูลที่มีอยู่
ถ้า err.number>0 แล้ว
response.write err.number&<font color=red><br>
response.write ผิดพลาด.description&</font>
สิ้นสุดถ้า
ส่วนที่เหลือ SQLRestore srv
Response.write <font color=green>กู้คืนสำเร็จแล้ว!</font>
อื่น
Response.write <font color=red>ไม่ได้เลือกการดำเนินการ</font>
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
-