العربية
51windows (العمل الأصلي)
رمزًا نموذجيًا للنسخ الاحتياطي واستعادة قاعدة بيانات SQL Server باستخدام asp. (ملاحظة: قد لا تتم استعادة قاعدة البيانات أثناء الاستخدام)
<HTML> <HEAD> <TITLE>النسخ الاحتياطي واسترداد قاعدة بيانات SQL Server</TITLE> <meta http-equiv="Content-Type" content="text/html; charset= gb2312"> </HEAD> <BODY> <formmethod="post" name=myform> حدد العملية: <INPUT TYPE="radio" NAME="act" id="act_backup" value="backup">< تسمية =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,databasename,bak_file,act sqlserver = "localhost" 'sql server sqlname = "sa" 'اسم المستخدم sqlpassword = "sa" 'كلمة المرور sqlLoginTimeout = 15 'اسم قاعدة بيانات مهلة تسجيل الدخول = تقليم (طلب ("اسم قاعدة البيانات")) bak_file = تقليم (طلب ("bak_file")) bak_file = استبدال (bak_file، "$1"، اسم قاعدة البيانات) act = lcase (request ("act")) إذا اسم قاعدة البيانات = "" ثم الاستجابة .اكتب "اسم قاعدة بيانات الإدخال" وإلا إذا كان الفعل = "النسخ الاحتياطي" ثم قم بتعيين 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 ثم الاستجابة. اكتب err.number&"<font color=red><br>" استجابة .write err.description&"</font>" end if Response.write "<font color=green>تم النسخ الاحتياطي بنجاح!</font>" elseif act = "restore" ثم 'يجب إجراء الاستعادة عندما لا تكون قاعدة البيانات قيد الاستخدام! تعيين srv=Server.CreateObject("SQLDMO.SQLServer") srv.LoginTimeout = sqlLoginTimeout srv.Connect sqlserver,sqlname, sqlpassword تعيين Rest=Server.CreateObject("SQLDMO.Restore") Rest.Action=0 ' راحة استعادة قاعدة بيانات كاملة. Database=databasename Rest.Devices=Files Rest.Files=bak_file Rest.ReplaceDatabase=True 'فرض الاستعادة على قاعدة البيانات الموجودة إذا كان err.number>0، ثم الاستجابة err.number&"<font color=red><br>" استجابة. اكتب err.description&"</font>" end if Rest.SQLRestore srv Response.write "<font color=green>تمت الاستعادة بنجاح!</font>" else Response.write "<font color=red>لم يتم تحديد أي عملية</ لون الخط=أحمر> الخط>" end if end if %> </BODY> </HTML>