文件1：BackupDB.asp
　

<%@ Language=VBScript %>

文件2：BackupDBSave.asp

<%@ Language=VBScript %>
<% dim msvr,muid,mpwd,mdb,mto msvr=Request.Form("txtsvr") muid=Request.Form("txtuid") mpwd=Request.Form("txtpwd") mdb=Request.Form("txtdb") mto=Request.Form("txtto") if mpwd="" then mpwd="''" on error resume next set dmosvr=server.CreateObject("SQLDMO.SQLServer") dmosvr.connect msvr,muid,mpwd if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

mdevname="Backup_"&muid&"_"&mdb
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=mto
dmosvr.BackupDevices.Add dmodev

if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmobak=server.CreateObject("SQLDMO.Backup")
dmobak.database=mdb
dmobak.devices=mdevname
%>

Backuping, wait please…

<% dmobak.sqlbackup dmosvr if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

dmosvr.backupdevices(mdevname).remove
set dmobak=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>

Database '<%=mdb%>' backup successed!

文件3：BackupErr.asp

<%@ Language=VBScript %>
<% dim errno,errstr errno=Request.QueryString("err") errstr="" select case cstr(errno) case "18456" errstr="administrators or password error!" case "20482" errstr="server name error or server cannot connect!" case "911" errstr="database not found!" case "15026" errstr="server path not found!" case "3201" errstr="server path not found!" case "3254" errstr="restore from file lawlessness!" case else errstr="unknown error! retry later please!" end select %>

<%=errstr%>

本文固定链接: http://blog.duoday.com/2006/150.html | 奇风's Blog