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

ASP
IIS访问ASP页面时报错The requested resource is in use.的解决办法
错误类型:Provider (0x80004005)未指定的错误 的一个处理方法
关于asp+access的安全问题分析
把RS.GetRows看得更清楚
asp下UTF-8页面乱码的解决方法
解决使用良精企业建站7.0未注册问题
在ASP中连接MySQL数据库的方法,最好的通过ODBC方法
flash与js通讯方法
ASP操作Excel相关技术总结
解决用Access数据库建站维护不便的问题的方法
ASP实现GB2312字符与区位码的相互转换的代码
对于ASP编码问题的深入研究与最终解决方案
ASP生成UTF-8编码的代码
删除A表中在B表中不存在的数据
动网防恶意广告比较有效的办法附asp代码
asp磁盘缓存技术使用的代码
网页语言编码及asp乱码问题解决方案
FSO遍历目录实现全站插马的代码
关于无限分级(ASP+数据库+JS)的实现代码
如何写ASP入库小偷程序

ASP备份数据库


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 195 ::
收藏到网摘: 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")