<body>
<method method = post name = myForm>
<٪ إذا كان الإجراء = استعادة ثم ٪> <إدخال نوع = اسم مخفي = قيمة الإجراء = استعادة> استعد لاستعادة قاعدة البيانات. جوهر جوهر
<٪ elseif action = النسخ الاحتياطي ثم ٪> <إدخال نوع = اسم مخفي = قيمة الإجراء = النسخ الاحتياطي> قم بإعداد قاعدة بيانات النسخ الاحتياطي. جوهر جوهر <٪ آخر ٪>
حدد العملية:
<type type = radio name = معرف الإجراء = ACT_BACKUP value = backup> <label for = act_backup> النسخ الاحتياطي </label>
<type type = radio name = معرف الإجراء = ACT_RESTORE value = restore> <label for = act_restore> الاسترداد </label> <٪ end if ٪>
<br> اسم قاعدة البيانات: <إدخال نوع = اسم text = databasename value = 50forum>
<br> مسار الملف: <type type = text name = bak_file value = 50forum.bak> (مسار ملف النسخ الاحتياطي أو الاسترداد) <br>
<نوع الإدخال = إرسال قيمة = موافق>
</form>
<٪
'SQL Server Database Backup and Recovery!
'http://www.tfxy.com
Dim Sqlserver ، SqlName ، SqlPassword ، sqllogintimeout ، databasename ، bak_file ، Act ، Act
SQLServer = SQL Server LocalHost '
sqlname = sa 'اسم المستخدم
sqlpassword = sa 'كلمة المرور
sqllogintimeout = 15 'مهلة جمع
databasename = trim (طلب (databasename))
bak_file = trim (طلب (bak_file))
bak_file = server.mappath (backup/& bak_file)
ACT = LCASE (طلب (إجراء))
إذا كان databasename = إذن
استجابة. اسم قاعدة بيانات الإدخال
آخر
إذا عمل = نسخة احتياطية ثم
تعيين srv = server.createBject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver ، sqlname ، sqlpassword
تعيين bak = server.createBject (sqldmo.backup)
bak.database = databasename
bak.devices = الملفات
bak.files = bak_file
Bak.Action = 0
bak.initialize = 1
'bak.replacedatabase = صحيح
bak.sqlbackup srv
إذا err.number> 0 ثم
استجابة. write err.number & <font color = red> <br>
استجابة. write ericr.descripting & </font>
إنهاء إذا
Response.write <font Color = Green> Backup ناجح!
srv.Disconnect
تعيين srv = لا شيء
اضبط BAK = لا شيء
قانون elseif = استعادة بعد ذلك
'عند الاسترداد ، لا تستخدم قاعدة البيانات!
تعيين srv = server.createBject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver ، sqlname ، sqlpassword
SET REST = server.createBject (sqldmo.restore)
REST.ACTION = 0 'استعادة DB كاملة
REST.DATABASE = databasename
REST.DEVICES = الملفات
rest.files = bak_file
REST.REPLADETATABASE = استعادة القوة الحقيقية على قاعدة البيانات الحالية
إذا err.number> 0 ثم
استجابة. write err.number & <font color = red> <br>
استجابة. write ericr.descripting & </font>
إنهاء إذا
REST.SQLRESTORE SRV
استجابة
srv.Disconnect
تعيين srv = لا شيء
حدد الراحة = لا شيء
آخر
استجابة. write <font color = red> لا يوجد اختيار للتشويش </font>
إنهاء إذا
إنهاء إذا
٪>
</body>
</html>