لقد رأيت النسخ الاحتياطي لقاعدة البيانات واستعادتها. ويتم معظم ذلك باستخدام المكونات. في الواقع، يمكن أن يتم ذلك من خلال بيان SQL.
ونظرًا لضيق الوقت، لم يتم التحقق من المعلمات وتم تجميل الواجهة. الرمز هو للإشارة فقط.
إجمالي 4 ملفات: عنوان التنزيل: وظيفة التسجيل (rs,sql)
مجموعة rs = server.CreateObject("ADODB.Recordset")
rs.Activeconnection = conn
rs.Source = sql
rs.CursorType = 0
rs.موقع المؤشر = 3
rs.LockType = 1
آر إس. مفتوح
إذا rs.eof وrs.bof ذلك الحين
rec=false
آخر
rec=true
نهاية إذا
وظيفة النهاية
وظيفة كمد (SQL)
خافت cmd1
تعيين cmd1 = server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = conn
cmd1.CommandText = sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Prepared = صحيح
cmd1.Execute()
وظيفة النهاية
وظيفة CDB(RS)
رس.إغلاق ()
تعيين RS=لا شيء
وظيفة النهاية
%>
dev.asp
<!--#include file="conn.asp"-->
<%
إذا كان الطلب ("AddDev") <> "" إذن
sql="select name,phyname from master..sysdevices حيث الحالة=16 والاسم='"&request("devname")&"'"
تفصيل chk، sql
إذا chk.eof وchk.bof بعد ذلك
sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'"
cmdsql
Response.Write "<script language=javascript>window.location=reload;</script>"
آخر
Response.Write "<script language=javascript>alert('الجهاز موجود بالفعل في قاعدة البيانات"&request("devname")&"Device!');window.location='cmd.asp';</script>"
نهاية إذا
نهاية إذا
إذا كان الطلب ("deldev") <> "" إذن
sql = "sp_dropdevice '"&request("devname")&"'"
cmdsql
Response.Write "<script language=javascript>window.location=reload;</script>"
نهاية إذا
"rec li،"اختر الاسم والاسم من الأجهزة الرئيسية..sysdevices حيث الحالة = 16"
إذا li.eof وli.bof ثم
Response.اكتب "<font color=#ff0000>يُرجى إنشاء جهاز نسخ احتياطي جديد لعمل نسخة احتياطية من قاعدة البيانات واستعادتها</font>"
آخر
%><style type="text/css">
<!--
جسم {
الهامش الأيسر: 0px;
الهامش العلوي: 0px؛
}
-->
</نمط>
<عرض الجدول = "60%" الحدود = "0" تباعد الخلايا = "0">
<تر>
<td width="29%">الاسم:</td>
<td width="71%">المنصب:</td>
</tr>
<%
أنا = 0
في حين لا li.eof
ط=ط+1
%>
<تر>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>احذف هذا الجهاز</a></td>
</tr>
<%
li.movenext
com.wind
Response.Write "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
com.cdbli
%>
</الجدول>
<%
نهاية إذا
%>
default.asp
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'***************************************************************************************************************************************************************************
'النسخ الاحتياطي لقاعدة البيانات واستعادتها
'البرمجة: ماجيك يانغ (MagicYang.CN)
تاريخ الانتهاء: 2004-4-11
'شرح: نظرًا لضيق الوقت، لم يتم التحقق من أمان البيانات.
'يرجى التحقق من البيانات عند التقديم لضمان السلامة.
'QQ: 1168064 نرحب بالجميع للتواصل مع بعضهم البعض
'***************************************************************************************************************************************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>النسخ الاحتياطي لقاعدة البيانات واستعادتها</title>
</الرأس>
<الجسم>
<%%
>
<عرض الجدول = "80%" الحدود = "0" محاذاة = "المركز">
<تر>
<td width="21%" valign="top">جهاز قاعدة البيانات:</td>
<عرض العرض = "79%">
<iframe name = "dev" src = "dev.asp" width = "100%" height = "200"frameborder = "0" التمرير = "no"></iframe>
</TD>
</tr>
<تر>
<td>إضافة جهاز:</td>
<td>اسم الجهاز:
<اسم الإدخال = "devname" type = "text" id = "devname" size = "10" maxlength = "10"></td>
</tr>
<تر>
<td> </td>
<td>مسار الملف:
<اسم الإدخال = "phyname" type = "text" id = "phyname" size = "20" maxlength = "50">
<input type = "button" value = "إضافة جهاز" onClick = "document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all .phyname.value;"></td>
</tr>
<تر>
<td valign="top">النسخ الاحتياطي/الاستعادة:</td>
<TD>
اسم قاعدة البيانات:
<%
"rec li"،"اختر الاسم من قواعد البيانات الرئيسية..sysdata حيث الحالة = 16"
%>
<حدد الاسم = "b_data">
<%
في حين لا li.eof
استجابة.اكتب "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
com.wind
com.cdbli
%>
</select><br>
النسخ الاحتياطي للجهاز: <%
"rec li،"اختر الاسم والاسم من الأجهزة الرئيسية..sysdevices حيث الحالة = 16"
%>
<اختر الاسم = "b_dev">
<%
في حين لا li.eof
استجابة.اكتب "<option value="&li(0)&">"&li(0)&"(ملف:"&li(1)&")</option>"
li.movenext
com.wind
com.cdbli
%>
</select><br>
<input name = "Button" type = "button" value = "قاعدة بيانات احتياطية" onClick = "window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;">
&نبسب;
<input name = "Button" type = "button" value = "استعادة قاعدة البيانات" onClick = "window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document. all.b_dev.value;"> </td>
</tr>
<تر>
<td> </td>
<td> </td>
</tr>
</الجدول>
</الجسم>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
على خطأ استئناف المقبل
إذا كان الطلب ("الإجراء") <> "" إذن
إذا طلب ("الإجراء") = "النسخ الاحتياطي" ثم
sql ="قاعدة بيانات النسخ الاحتياطي"&request("قاعدة البيانات")&" إلى "&طلب("dev")
cmdsql
إذا err.number> 0 ثم
Response.Write "<script language=javascript>alert('database"&request("database")&"فشل النسخ الاحتياطي!');window.location='default.asp';</script>"
آخر
Response.Write "<script language=javascript>alert('Database"&request("database")&"تم النسخ الاحتياطي بنجاح!');window.location='default.asp';</script>"
نهاية إذا
آخر
sql ="استعادة قاعدة البيانات "&request("database")&" من "& request("dev")
cmdsql
إذا err.number> 0 ثم
Response.Write "<script language=javascript>alert('Database"&request("database")&"فشلت الاستعادة!');window.location='default.asp';</script>"
آخر
Response.Write "<script language=javascript>alert('database"&request("database")&"تمت الاستعادة بنجاح!');window.location='default.asp';</script>"
نهاية إذا
نهاية إذا
نهاية إذا
%>
آمل أن يتمكن الجميع من التواصل مع بعضهم البعض! س: 1168064