ASP数据库恢复的代码

仙鹤点水

仙鹤点水

2016-01-29 17:31

ASP数据库恢复的代码,ASP数据库恢复的代码
  文件4:RestoreDB.asp

<%@ Language=VBScript %
<HTML
<HEAD
<META name=VI60_defaultClientScript content=VBScript
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0"
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript
<!--

Sub btnbak_onclick
if frmbak.txtsvr.value="" then
window.alert("'Server Name' is empty!")
frmbak.txtsvr.focus
exit sub
end if
if frmbak.txtuid.value="" then
window.alert("'Administrators' is empty!")
frmbak.txtuid.focus
exit sub
end if
if frmbak.txtdb.value="" then
window.alert("'Database' is empty!")
frmbak.txtdb.focus
exit sub
end if
if frmbak.txtto.value="" then
window.alert("'Restore From' is empty!")
frmbak.txtto.focus
exit sub
end if
frmbak.submit
End Sub

--
</SCRIPT
</HEAD
<form action="restoredbsave.asp" method="post" id=frmbak name=frmbak
<body class="bg_frame_up"
<link rel="stylesheet" href="../../sheets/B2BStyle.css"

<p class=heading Database -- Restore</p

<P align=center
<div align="center"
<center
<table width="60%" height="71" cellpadding=1 cellspacing=1 border=0 align=center
<tr
<td class=TD_Mand_FN align="center" height="35" width="40%"Server Name:</td
<td class=TD_Mand_F height="35"
<INPUT id=txtsvr name=txtsvr size="20" style="font-family: Arial; font-size: 9pt"</td
</tr
<tr
<td class=TD_Mand_FN align="center" height="35" width="40%"Administrators:</td
<td class=TD_Mand_F height="35"
<INPUT id=txtuid name=txtuid style="font-family: Arial; font-size: 9pt"</td
</tr
<tr
<td class=TD_Mand_FN align="center" height="35" width="40%"Password:</td
<td class=TD_Mand_F height="35"
<INPUT id=txtpwd name=txtpwd type=password style="font-family: Arial; font-size: 9pt"</td
</tr
<tr
<td class=TD_Mand_FN align="center" height="35" width="40%"Database:</td
<td class=TD_Mand_F height="35"
<INPUT id=txtdb name=txtdb style="font-family: Arial; font-size: 9pt"</td
</tr
<tr
<td class=TD_Mand_FN align="center" height="35" width="40%"Restore
From:<br
<u(Server Path)</u</td
<td class=TD_Mand_F height="35"
<input id=txtto name=txtto style="font-family: Arial; font-size: 9pt"</td
</tr
</table</center
</div
<p align=center<input id=btnbak name=btnbak type=button value="Start Restore" style="font-family: Arial; font-size: 9pt"</p
</body
</form
</HTML

文件5:RestoreDBSave.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.number0 then Response.Redirect("http:backuperr.asp?err="&err.number)

mdevname="Restore_"&muid&"_"&mdb
dmosvr.backupdevices(mdevname).remove
展开更多 50%)
分享

猜你喜欢

ASP数据库恢复的代码

ASP
ASP数据库恢复的代码

ASP连接数据库的全能代码

ASP
ASP连接数据库的全能代码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用Asp备份与恢复SQL Server 数据库

ASP
用Asp备份与恢复SQL Server 数据库

ASP中怎么实现SQL数据库备份、恢复!

ASP
ASP中怎么实现SQL数据库备份、恢复!

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ASP备份数据库

ASP
ASP备份数据库

ASP+联结数据库

电脑网络
ASP+联结数据库

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

从五个方面来给Win XP减肥

从五个方面来给Win XP减肥

妙用Windows Update来加快系统的升级速度

妙用Windows Update来加快系统的升级速度
下拉加载更多内容 ↓