ปรับปรุงการสำรองข้อมูล ASP ของฐานข้อมูล SQL Server
ผู้เขียน：Eve Cole
เวลาอัปเดต：2009-06-24 17:02:32
<form method="post" name="myform" action="?action=backupdatabase">
เลือกการดำเนินการ: <INPUT TYPE="radio" NAME="act" id="act_backup"value="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>
<input type="submit" value="OK" id=submit1 name=submit1>
</แบบฟอร์ม>
-
'การสำรองและกู้คืนฐานข้อมูล SQL Server!
if request("action")="backupdatabase" จากนั้น
เซิร์ฟเวอร์ sql สลัว, sqlname, รหัสผ่าน sql, sqlLoginTimeout, ชื่อฐานข้อมูล, bak_file, การกระทำ
sqlserver = "โลคัลโฮสต์"
sqlname = "สา"
sqlpassword = "รหัสผ่าน"
sqlLoginTimeout = 15
ชื่อฐานข้อมูล = ตัด (คำขอ ("ชื่อฐานข้อมูล"))
bak_file = ตัด (คำขอ ("bak_file"))
bak_file = แทนที่ (bak_file,"$1",ชื่อฐานข้อมูล)
การกระทำ = lcase (คำขอ ("การกระทำ"))
ถ้าdatabasename = ""แล้ว
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>"
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดถ้า
-
