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

ASP
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
asp base64加解密函数代码
Discuz!NT 论坛整合ASP程序论坛
discuz 2.0整合asp系统,用户添加函数
P3P 和 跨域 (cross-domain) cookie 访问(读取和设置)
通过asp程序来创建access数据库
检查access数据库中是否存在某个名字的表的asp代码
asp #include file 与 #include virtual 的区别小结
一个带采集远程文章内容,保存图片,生成文件等完整的采集功能
asp 横排显示数据
asp base64 utf-8为了兼容asp.net的base64
两个非常规ASP木马(可躲过扫描)
asp DateDiff实现文字在特定时间后消失
ASP所有的Session变量获取实现代码
关于ASP eof与bof 区别分析
asp ajax注册验证之 防止用户名输入空格
asp sqlserver 执行存储过程返回记录集报对象关闭时不允许操作
ASP 获取文件扩展名函数getFileExt()
asp 简单分页代码
asp删除mssql数据库中没有记录的图片代码

ASP备份数据库


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