繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP数据库恢复的代码
- ASP
- 把HTML表单提交的数据转化成XML文件
- 全球IP地址查询完整版
- 一个把WORD转换成HTML的程序
- 天气预报的小偷,可以偷到全国24小时城市天气预报.
- 显示页面show.asp--基于web的QQ程序1
- 接收信息页面inform.asp--基于web的QQ程序2
- 发送信息页面send.asp--基于web的QQ程序3
- 关于客户端用ASP参生报表
- 关于客户端用ASP参生报表（高级篇）
- 利用ASP在线维护数据库
- 使用JScript.NET创建asp.net页面（一）
- 使用JScript.NET创建asp.net页面（二）
- 使用JScript.NET创建asp.net页面（三）
- 使用JScript.NET创建asp.net页面（四）
- 使用JScript.NET创建asp.net页面（五）
- 使用JScript.NET创建asp.net页面（六）
- 使用JScript.NET创建asp.net页面（七）
- 创建一个Web投票系统
- W3 Jmail中文使用说明
- bbs的数据结构和存储过程（一）
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.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)
mdevname="Restore_"&muid&"_"&mdb
dmosvr.backupdevices(mdevname).remove
评论 (0) All
