xml:namespace prefix = input id=btnbak name=btnbak type=button value="Start Restore" style="font-family />
文件5:RestoreDBSave.asp
<%@ Language=VB&;#115;cript %>
<%
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("?err="&;err.number)
mdevname="Restore_"&;muid&;"_"&;mdb
dmosvr.backupdevices(mdevname).remove
err.clear
set dmodev=server.CreateObject("SQLDMO.BackupDevice")
dmodev.name=mdevname
dmodev.type=2
dmodev.PhysicalLocation=mto
dmosv
r.BackupDevices.Add dmodev
if err.number>0 then Response.Redirect("?err="&;err.number)
set dmores=server.CreateObject("SQLDMO.Restore")
dmores.database=mdb
dmores.devices=mdevname
%>
Restoring, wait please...
<%
dmores.
sqlrestore dmosvr
if err.number>0 then Response.Redirect("?err="&;err.number)
set dmores=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>
Database '<%=mdb%>' restore successed!
本文库由天猫商城quanloog和淘宝网首页dxsquan编辑