<body>
<วิธีการฟอร์ม = ชื่อโพสต์ = myForm>
<%ถ้า action = คืนค่าแล้ว%> <อินพุต type = name hidden = ค่าการกระทำ = Restore> เตรียมที่จะกู้คืนฐานข้อมูล แก่นแท้ แก่นแท้
<%elseif action = การสำรองข้อมูลจากนั้น%> <อินพุต type = name hidden = ค่าการกระทำ = การสำรองข้อมูล> เตรียมฐานข้อมูลสำรอง แก่นแท้ แก่นแท้ <%อื่น%>
เลือกการดำเนินการ:
<อินพุตประเภท = ชื่อวิทยุ = Action ID = ACT_BACKUP VALUE = Backup> <label for = Act_backup> การสำรองข้อมูล </label>
<อินพุตประเภท = ชื่อวิทยุ = Action ID = Act_Restore value = RESTORE> <label for = Act_Restore> การกู้คืน </label> <%end ถ้า%>
<br> ชื่อฐานข้อมูล: <อินพุตประเภท = ชื่อข้อความ = ค่าฐานข้อมูล = 50forum>
<br> พา ธ ไฟล์: <อินพุตประเภท = ชื่อข้อความ = ค่า bak_file = 50forum.bak> (เส้นทางไฟล์ของการสำรองข้อมูลหรือการกู้คืน) <br>
<ประเภทอินพุต = ส่งค่า = ตกลง>
</form>
-
'การสำรองฐานข้อมูลและการกู้คืนฐานข้อมูล SQL Server!
'http://www.tfxy.com
Dim SqlServer, SQLName, SQLPassword, SQLLOGINTIMEOUT, DatabasEname, BAK_FILE, ACT
SQLServer = SQL เซิร์ฟเวอร์ LocalHost '
sqlname = sa 'ชื่อผู้ใช้
SQLPassword = รหัสผ่าน SA
sqllogintimeout = 15 'หมดเวลาเป็นก้อน
databasename = trim (คำขอ (databasename))
bak_file = trim (คำขอ (bak_file))
bak_file = server.mappath (สำรอง/& bak_file)
Act = LCASE (คำขอ (การกระทำ))
ถ้า databasename = จากนั้น
Response.write ชื่อฐานข้อมูลอินพุต
อื่น
ถ้า action = สำรองข้อมูลแล้ว
ตั้งค่า srv = server.createObject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
SRV.CONNECT SQLSERVER, SQLNAME, SQLPassword
ตั้งค่า bak = server.createObject (sqldmo.backup)
bak.database = databasename
bak.devices = ไฟล์
bak.files = bak_file
bak.action = 0
bak.initialize = 1
'bak.replacedatabase = true
bak.sqlbackup srv
ถ้า err.number> 0 แล้ว
Response.write err.number & <font color = สีแดง> <br>
Response.write Ericr.Descripting & </font>
สิ้นสุดถ้า
Response.write <font color = green> การสำรองข้อมูลสำเร็จ!
srv.disconnect
ตั้งค่า srv = ไม่มีอะไร
ตั้งค่า bak = ไม่มีอะไร
elseif act = คืนค่าแล้ว
'เมื่อการกู้คืนอย่าใช้ฐานข้อมูล!
ตั้งค่า srv = server.createObject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
SRV.CONNECT SQLSERVER, SQLNAME, SQLPassword
ตั้งค่า rest = server.createObject (sqldmo.restore)
rest.action = 0 'คืนค่า DB เต็มรูปแบบ
rest.database = databasename
rest.devices = ไฟล์
rest.files = bak_file
rest.replace
ถ้า err.number> 0 แล้ว
Response.write err.number & <font color = สีแดง> <br>
Response.write Ericr.Descripting & </font>
สิ้นสุดถ้า
Rest.Sqlrestore SRV
Response.write <font color = green> คืนค่า!
srv.disconnect
ตั้งค่า srv = ไม่มีอะไร
ตั้งค่า rest = ไม่มีอะไร
อื่น
Response.write <font color = สีแดง> ไม่มีการเลือกการทำงาน </font>
สิ้นสุดถ้า
สิ้นสุดถ้า
-
</body>
</html>