将用asp写的备份数据库的五个文件代码粘出来。但请教的是我无论怎么样在BackUpDB.asp中填写用户名和密码，都提示错误！

CheerYang 2004-05-02 02:41:19
将用asp写的备份数据库的五个文件代码粘出来。但请教的是我无论怎么样在BackUpDB.asp中填写用户名和密码，都提示错误！

以下是代码区

'****************
' BackupDB.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("''Backup To'' is empty!")
frmbak.txtto.focus
exit sub
end if
frmbak.submit
End Sub

-->
</SCRIPT>
<link rel="stylesheet" href="../../sheets/B2BStyle.css">
</HEAD>
<form action="backupdbsave.asp" method="post" id=frmbak name=frmbak>
<body class="bg_frame_up">
<p class=heading> 数据库 --> 备份</p>
<P align=center>
<div align="center">
<center>
<table width="60%" cellpadding=1 cellspacing=1 border=0 align=center>
<tr>
<td class=TD_Mand_FN align="center" height="35" width="40%">服务器名字：</td>
<td class=TD_Mand_F height="35" width="59%"> 
<INPUT id=txtsvr name=txtsvr size="20" style="font-family: Arial; font-size: 9pt" value="showfray"></td>
</tr>
<tr>
<td class=TD_Mand_FN align="center" height="35" width="40%">用户名：</td>
<td class=TD_Mand_F height="35" width="59%"> 
<INPUT id=txtuid name=txtuid size="20" style="font-family: Arial; font-size: 9pt" value="sa"></td>
</tr>
<tr>
<td class=TD_Mand_FN align="center" height="35" width="40%">口令：</td>
<td class=TD_Mand_F height="35" width="59%"> 
<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%">数据库名：</td>
<td class=TD_Mand_F height="35" width="59%">
<p align="left"> 
<INPUT id=txtdb name=txtdb size="20" style="font-family: Arial; font-size: 9pt" value="zhoa"></p>
</td>
</tr>

<td class=TD_Mand_FN align="center" height="35" width="40%">备份到：<br>
<u>(服务器路径)</u></td>
<td class=TD_Mand_F height="35" width="59%"> 
<input id=txtto name=txtto style="font-family: Arial; font-size: 9pt" value="c:\" size="59"></td>
</tr>
</table>
</center> </div>
<p align=center><input id=btnbak name=btnbak type=button value="开始备份" style="font-family: Arial; font-size: 9pt"></p>
</body>
</form>
</HTML>


'*************
' 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
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<body background="../../Images/dot.gif">

<p><strong>正在备份，请稍候.....</strong></p>
<%
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
%>
<p><strong>数据库 ''<%=mdb%>'' 备份成功！</strong></p>
</BODY>
</HTML>


'*****************
' BackupErr.asp 备份数据出错提示页面
'******************
<%@ Language=VBScript %>
<%
dim errno,errstr
errno=Request.QueryString("err")
errstr=""
select case cstr(errno)
case "18456"
errstr="管理员用户名或密码错误！"
case "20482"
errstr="服务器名字错误或服务器不能连接！"
case "911"
errstr="该数据库不存在！"
case "15026"
errstr="服务器路径找不到！"
case "3201"
errstr="服务器路径找不到！"
case "3254"
errstr="restore from file lawlessness!"
case else
errstr="unknown error! retry later please!"
end select
%>
<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub btnret_onclick
history.back
End Sub

-->
</SCRIPT>
<title></title>
</HEAD>
<body class="bg_frame_up">
<p align=center><font color=#006666><%=errstr%></font></p>
<p align=center><input id=btnret name=btnret type=button value=Return style="font-family: Arial; font-size: 9pt"></p>
</BODY>
</HTML>


'下续

...全文
29 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
sfar 2004-07-05
在页面上面加上错误处理，在页面前面加上on error resume next,
打印错误：response.write Err.Description
  • 打赏
  • 举报
 回复 赞
huhanshan013 2004-07-05
我页这样做了一下
提示是：
errstr="unknown error! retry later please!"

怎么办？
可能会是什么问题？
  • 打赏
  • 举报
 回复 赞
lang11zi 2004-05-02
你搞个别动网的论坛看一下就ok了
  • 打赏
  • 举报
 回复 赞
CheerYang 2004-05-02
'续上

'************
' 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>

'*************
' 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
err.clear

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 dmores=server.CreateObject("SQLDMO.Restore")
dmores.database=mdb
dmores.devices=mdevname
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<body class="bg_frame_up">

<p><strong>正在恢复，请稍候...</strong></p>
<%
dmores.sqlrestore dmosvr
if err.number>0 then Response.Redirect("http:backuperr.asp?err="&err.number)

set dmores=nothing
set dmodev=nothing
dmosvr.disconnect
set dmosvr=nothing
%>
<p><strong>数据库 ''<%=mdb%>'' 恢复成功！</strong></p>
</BODY>
</HTML>
  • 打赏
  • 举报
 回复 赞
相关推荐
数据库的基本操作 MySQL 最基本的SQL语法/语句，使用mysql的朋友可以参考下。 DDL—数据定义语言(Create，Alter，Drop，DECLARE)  DML—数据操纵语言(Select，Delete，Update，Insert)  DCL—数据控制语言...
asp经典例子 ASP常见问题及解答征集中，请大家积极参与~~~~~~~~ 作　者： awaysrain (绝对零度)(新的一年，新的开始) 等　级： 信 誉 值： 155 所属论坛： Web 开发 ASP 问题点数： 200 回复次数： 160 发表时间： 2003-...
数据库基本语句 DDL—数据定义语言(Create，Alter，Drop，DECLARE)  DML—数据操纵语言(Select，Delete，Update，Insert)  DCL—数据控制语言(GRANT，REVOKE...1、说明：创建数据库  Create DATABASE database-name  2、说
HTML ASP VBSCRIPT JAVASCRIPT SKILLS 常见问题 1.如何 最小化、最大化、关闭窗口答：2.如何静止页面缓存答：htm网页或者asp网页response.expires=-1response.expiresabsolute=now()-1response.cachecontrol="no-cache"php网页header("expires:mon,26j
SQL /数据库 使用蓝皮书 作者: archonwang 标题: SQL /数据库 使用蓝皮书 关键字: SQL语句 分类: 开发经验 密级: 公开 (评分:★★ , 回复: 7, 阅读: 22443) »» ...
Oracle数据库资料收藏 Oracle数据库资料收藏 1、UNIX基本培训 - [fjlin]2、AIX入门与提高（1）－中文 - [richard_he]3、PL/SQL上课记录 - [jxdco]4、[分享]2005年IBM原厂的AIX培训资料 - [fsm]5、Oracle入门　让学习更轻松 - [migrator]6...
掌握这些MySQL技能，就够了.....赶紧让老板给你涨工资 28、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个 结果表 (select a from tableA ) except (select a from tableB) except (select a from tableC) 29、说明...
MySQL基本使用 一个表中的Id有多个记录把所有这个id的记录查出来并显示有多少条记录 MySQL 数据库常用命令小结 字符串乱码问题解决集合 MySQL通配符 高性能的mysql语法 SQL语句编写注意问题 IS NULL 与 IS NOT NULL 联接列 带...
MySQL如何写两胜两负_MYSQL 基本SQL语句 order by id desc 随机选择数据库记录的方法（使用Randomize函数，通过SQL语句实现） 对存储在数据库中的数据来说，随机数特性能给出上面的效果，但它们可能太慢了些。你不能 要求ASP“找个随机数”然后打印出来。...
（转）Oracle数据库资料收藏 我做了一个关于instance和database的区别的MP3文件 - [parrotao] 92、 oracle傻瓜手册v2.0.pdf - [Arlong_w] 93、 ORACLE8I视频安装全程演示 - [oracle_gao_dba] 94、 Oracle Spatial9i 用户手册 - [ptlmok] 95、 ...
sql server sql server 作者：Sanle 来源：博客园 发布时间：2006-04-27 13:06 阅读：3402 次 原文链接 [收藏]  ...1.清空日志:DUMP TRANSACTION 库名 WITH NO_...3.收缩数据库文件(如果不压缩,数据库的文件不会减小)
[DataBase] SQL Server基本操作指令 SQL Server基本操作命令: DDL—数据定义语言(Create，Alter，Drop，DECLARE) DML—数据操纵语言(Select，Delete，Update，Insert)  DCL—数据控制语言(GRANT...1、说明：创建数据库 Create DATABASE database
SQL语法、语句 必须要知道的SQL语法，语句 DDL—数据定义语言(Create，Alter，Drop，DECLARE) DML—数据操纵语言(Select，Delete，Update，Insert) ...1、说明：创建数据库 Create DATABASE database-name 2
SQL语句 在SQL中，数据定义语言DDL（用来建立及定义数据表、字段以及索引等数据库结构）包含的命令有CREATE、DROP、ALTER；数据操纵语言DML（用来提供数据的查询、排序以及筛选数据等功能）包含的命令有SELECT、INSERT、...
【MySql】MySql基础使用详解 DDL—数据定义语言(Create，Alter，Drop，DECLARE) DML—数据操纵语言(Select，Delete，Update，Insert) DCL—数据控制语言(GRANT，...1、说明：创建数据库 Create DATABASE database-name 2、说明：删除数据
参考合同-纪实摄影服务合同.zip 参考合同-纪实摄影服务合同.zip
参考合同-肉禽买卖合同.zip 参考合同-肉禽买卖合同.zip
polkit-0.112-26.el7_9.1.i686.rpm 官方离线安装包，亲测可用。使用rpm -ivh [rpm完整包名] 进行安装
参考合同-混凝土外加剂买卖合同(2).zip 参考合同-混凝土外加剂买卖合同(2).zip
发帖
ASP
加入

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-05-02 02:41
社区公告
暂无公告