ภาษาไทย
51windows (งานต้นฉบับ)
เป็นโค้ดตัวอย่างสำหรับการสำรองและกู้คืนฐานข้อมูล SQL Server โดยใช้ asp ฉันหวังว่ามันจะเป็นประโยชน์กับเพื่อนบางคน (หมายเหตุ: ฐานข้อมูลอาจไม่สามารถกู้คืนได้ระหว่างการใช้งาน)
<HTML> <HEAD> <TITLE>การสำรองและการกู้คืนฐานข้อมูล SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <form method="post" name=myform> เลือกการดำเนินการ: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< label สำหรับ =act_backup>การสำรองข้อมูล</label> <INPUT TYPE="radio" 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"> </form> <% 'การสำรองและกู้คืนฐานข้อมูล SQL Server! 'Haiwa'http: / /www.51windows.Net dim sqlserver, sqlname, sqlpassword, sqlLoginTimeout, ชื่อฐานข้อมูล, bak_file, act sqlserver = "localhost" 'เซิร์ฟเวอร์ sql sqlname = "sa" 'ชื่อผู้ใช้ sqlpassword = "sa" 'รหัสผ่าน sqlLoginTimeout = 15 'ชื่อฐานข้อมูลหมดเวลาการเข้าสู่ระบบ = trim(request("databasename")) bak_file = trim(request("bak_file")) bak_file = แทนที่(bak_file,"$1",databasename) act = lcase(request("act")) ถ้า ชื่อฐานข้อมูล = "" แล้วตอบกลับ .write "อินพุตชื่อฐานข้อมูล" อย่างอื่นถ้า act = "backup" จากนั้นตั้งค่า srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set bak = Server.CreateObject( "SQLDMO .Backup") bak.Database=databasename bak.Devices=Files bak.Files=bak_file bak.SQLBackup srv ถ้า err.number>0 แล้ว response.write err.number&"<font color=red><br>" response .write err.description&"</font>" สิ้นสุดหาก Response.write "<font color=green>สำรองข้อมูลสำเร็จ!</font>" elseif act = "restore" ดังนั้น 'ควรทำการคืนค่าเมื่อฐานข้อมูลไม่ได้ใช้งาน! ตั้งค่า srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword Set rest=Server.CreateObject("SQLDMO.Restore") rest.Action=0 ' คืนค่าฐานข้อมูลเต็ม ส่วนที่เหลือ Database=databasename rest.Devices=Files rest.Files=bak_file rest.ReplaceDatabase=True 'บังคับให้คืนค่าบนฐานข้อมูลที่มีอยู่ถ้า err.number>0 แล้ว response.write err.number&การตอบสนอง "<font color=red><br>" เขียน err.description&"</font>" สิ้นสุดถ้าrest.SQLRestore srv Response.write "<font color=green>กู้คืนสำเร็จ!</font>" else Response.write "<font color=red>ไม่ได้เลือกการดำเนินการ</ สีตัวอักษร=สีแดง> ตัวอักษร>" สิ้นสุดถ้าสิ้นสุดถ้า %> </BODY> </HTML>