将用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>


'下续

...全文
104 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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>
滞环控制simulink仿真模型
滞环控制simulink仿真模型
C++课程设计题目源代码
打开链接下载源码： https://pan.quark.cn/s/589796089f72 C++课程设计任务列表，涵盖以下内容：1、识别并显示10至99范围内，各位数乘积超过各位数和的数值，例如数字12不满足条件，因为1乘以2小于1加2，故不输出；而数字27满足条件，因为2乘以7大于2加7，因此需要输出该数。2、开发一个功能，用于从用户输入的任意数量实数中找出最大值与最小值：首先要求用户输入一个正整数n，代表数值的个数，随后用户可输入任意n个实数，程序需找出这n个数中的最大值和最小值并将它们展示出来。3、实现两个已排序数组的合并操作：设有数组A和B，且假设这两个数组的元素均已按照降序排列。编写程序将A和B合并成一个新的数组C，并确保C中的元素同样保持降序排列。int A[10]={123, 86,80, 49,33,15,7,0,-1,-3}；int B[10]={100,64,51,50,27,19,15,12,5,2}；4、设计一个函数，用于计算特定分数序列前n项的总和，该序列为1/2,1/3,1/4,1/5,1/6,1/7,...。要求在主程序中提示用户输入一个整数n，并验证输入的合法性（n需大于1方为有效），若输入合法，则调用求和函数并显示计算结果。5、编写一个程序，计算两个用户输入日期之间的天数差：用户需以year1，month1，day1和year2，month2，day2的格式输入两个日期，程序随后计算这两个日期之间的天数间隔，并将结果输出到屏幕上。要求编制具有如下原型的函数difs2Date：long GetDayDifference（int y1,int m1,int d1,int y2,int m2,int d2）；并在主函数中调用此函数，将计...
SAP ABAP调试器高级技术
代码下载地址： https://pan.quark.cn/s/ee8627e4e6d7 ABAP调试器是一种功能强大的工具，可用于在执行期间对ABAP代码进行检验。除了常规的核心功能（例如逐行运行代码以及检验变量、字段符号和引用的值）之外，它还提供了一些辅助性的特性，能够简化并压缩调试会话的时长。并非所有使用者都熟悉这些辅助特性。SAP ABAP调试器是处理和优化ABAP代码开发与维护工作的核心资源，它配备了多样的功能来协助开发人员在运行状态下进行检验和排除故障。此资源着重阐述了ABAP调试器的一些高级特性，涵盖了深入分析调用堆栈、系统级调试、更新会话调试以及提升调试效率的方法。 1. **深入分析调用堆栈**：除了常规的应用程序调试，开发人员有时需要对调用堆栈的内部层级进行深入调试，特别是在错误出现在异步执行的更新处理或系统级程序时。通过启用**系统级调试**，可以访问通常不公开的系统代码，但这也会导致调用堆栈的显著增加，因此需要审慎操作。 2. **系统级调试**：对于不含业务逻辑的系统级程序，开发人员通常无需进行调试。然而，在特定情形下，例如进行错误追踪时，可能需要进入系统代码。借助调试器的“系统调试启用/禁用”选项，可以赋予对系统程序的调试权限。 3. **更新会话调试**：在处理异步更新任务，例如持久化业务数据时，错误可能发生在更新任务内部。激活**更新会话调试**，在更新任务完成后，调试器将自动启动，展示执行路径。比如，在变更成本中心后，通过输入调试指令 "/h" 启动调试，保存后能够看到更新过程中的错误。 4. **分析调用堆栈**：在进行深入调试时，调用堆栈是至关重要的。通过分析调用堆栈，能够定位到引发问题的具体位置，如在VB_V2_NORMAL...
超170个最新微信小程序源码网盘链接
源码链接： https://pan.quark.cn/s/a4b39357ea24 小程序雷达 AI 驱动的小程序生态选型与风险评估工具，把微信小程序开发资源转化为可筛选、可评估、可对比的技术雷达。 线上地址 主站： Vercel： 适合谁 正在做微信小程序技术选型的产品、研发和架构团队。 需要判断 Taro、uni-app、原生小程序、组件库、云开发和 SDK 风险的团队。 需要把历史 awesome 列表转成可筛选、可对比、可验证技术雷达的维护者。 可以做什么 Radar：按推荐状态、风险等级、资源类型、分类和适用场景浏览小程序生态资源。 Quick Search：快速搜索资源并跳转常用页面。 Compare：对比 Taro、uni-app、原生小程序等核心方案。 Advisor：输入选型问题，获得推荐结论、适用/不适用条件、迁移成本、下一步和证据来源。 Doctor：粘贴小程序项目配置，识别框架依赖、过时方案和迁移风险。 Weekly：查看小程序生态周报和近期风险信号。 数据概览 当前数据集中包含 236 个小程序生态资源。 完整资源可在 Radar 页面和导出能力中查看。 核心样例 Taro ★30.6k+ - 使用 React 的方式开发小程序的框架，同时支持生成多端应用 uni-app ★36.1k+ - 使用 Vue 语法开发小程序、H5、App的统一框架 MPX ★2.1k+ - 增强型小程序框架，深度性能优化，支持跨小程序平台开发，完全兼容原生小程序组件 WePY ★21.7k+ - 支持组件化的小程序开发框架 vant-weapp ★12.3k+ - 高颜值、好用、易扩展的微信小程序 UI 库 tdesign-miniprogram ★1.3...
ASP

28,403

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章