当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP备份数据库

ASP
如何使用ASP产生象安装向导的主页
ADO如何取得数据库中表的字段信息之一
ADO如何取得数据库中表的字段信息之二
网页计数器的程序
实验Recordset.Movenext,Recordset.Previous,Recorset...等移动记录
不能ASP图像组件来生成图像的ASP计数器程序(一)
IIS5 + ADO 2.5新先睹为快技术(一)
IIS5 + ADO 2.5新先睹为快技术(二)
如何使用 Microsoft Access 和 Active Server Pages 加密你的页面
WINDOWS 2000搭載ASP3.0和IIS5.0
IIS 5.0新功能
网络开发之编程技巧之一(有效验证用户的登录)
如何使用ASP在自己的网站建立投票机制(一)
如何使用ASP在自己的网站建立投票机制(二)
组件对象开发Web应用的实例分析
如何实现动态添加Html文档中Form项
一个BBS的源代码(一)
一个BBS的源代码(二)
一个BBS的源代码(三)
一个BBS的源代码(四)

ASP备份数据库


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 105 ::
收藏到网摘: n/a

       文件1: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> Database --> Backup</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%">Server Name:</td>
  <td class=TD_Mand_F height="35" width="59%">
  <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" width="59%">
  <INPUT id=txtuid name=txtuid size="20" 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" 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%">Database:</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"></p>
  </td>
  </tr>
  
  <td class=TD_Mand_FN align="center" height="35" width="40%">Backup To:<br>
  <u>(Server Path)</u></td>
  <td class=TD_Mand_F height="35" width="59%">
  <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 Backup" style="font-family: Arial; font-size: 9pt"></p>
  </body>
  </form>
  </HTML>
  
  
  文件2:BackupDBSave.asp
  
  <%@ Language=VBScript %>
  <%
  dim msvr,muid,mpwd,mdb,mto
  msvr=Request.Form("txtsvr")
  muid=Request.Form("txtuid")
  mpwd=Request.Form("txtpwd")