当前位置：老梁`s Blog（老梁博客,老梁IT技术博客） > 技术聚合 > 运维技术 > 采飞扬ASP备份MSSQL数据库程序 V1.0
老梁（蛤蟆哥）运维技术发表于：

采飞扬ASP备份MSSQL数据库程序 V1.0

[重要通告]如您遇疑难杂症,本站支持知识付费业务,扫右边二维码加博主微信,可节省您宝贵时间哦!

采飞扬ASP备份MSSQL数据库程序 V1.0

 
XML/HTML代码
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  3. <html xmlns="http://www.w3.org/1999/xhtml">  
  4. <head>  
  5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />  
  6. <title>采飞扬ASP备份MSSQL数据库程序 V1.0--QQ:79998575</title>  
  7. </head>  
  8. <style>  
  9. BODY {        FONT-SIZE: 9pt;        COLOR: #000000;        FONT-FAMILY: "Courier New";        scrollbar-face-color:#E4E4F3;        scrollbar-highlight-color:#FFFFFF;        scrollbar-3dlight-color:#E4E4F3;        scrollbar-darkshadow-color:#9C9CD3;        scrollbar-shadow-color:#E4E4F3;        scrollbar-arrow-color:#4444B3;        scrollbar-track-color:#EFEFEF;}TABLE {        FONT-SIZE: 9pt;        FONT-FAMILY: "Courier New";        BORDER-COLLAPSE: collapse;        border-top-width: 1px;        border-right-width: 1px;        border-bottom-width: 1px;        border-left-width: 1px;        border-top-style: solid;        border-right-style: none;        border-bottom-style: none;        border-left-style: solid;        border-top-color: #d8d8f0;        border-right-color: #d8d8f0;        border-bottom-color: #d8d8f0;        border-left-color: #d8d8f0;}.tr {        font-family: "Courier New";        font-size: 9pt;        background-color: #e4e4f3;        text-align: center;}.td {        font-family: "Courier New";        font-size: 9pt;        background-color: #f9f9fd;}.warningColor {        font-family: "Courier New";        font-size: 9pt;        color: #ff0000;}input {   
  10.         font-family: "Courier New";   
  11.         BORDER-TOP-WIDTH: 1px;   
  12.         BORDER-LEFT-WIDTH: 1px;   
  13.         FONT-SIZE: 12px;   
  14.         BORDER-BOTTOM-WIDTH: 1px;   
  15.         BORDER-RIGHT-WIDTH: 1px;   
  16.         color: #000000;   
  17. }textarea {        font-family: "Courier New";        BORDER-TOP-WIDTH: 1px;        BORDER-LEFT-WIDTH: 1px;        FONT-SIZE: 12px;        BORDER-BOTTOM-WIDTH: 1px;        BORDER-RIGHT-WIDTH: 1px;        color: #000000;}.liuyes {   
  18.         background-color: #CCCCFF;   
  19. }   
  20. A:link {        FONT-SIZE: 9pt;         COLOR: #000000;        FONT-FAMILY: "Courier New";         TEXT-DECORATION: none;}tr {        font-family: "Courier New";        font-size: 9pt;        line-height: 18px;}td {        font-family: "Courier New";        font-size: 9pt;        border-top-width: 1px;        border-right-width: 1px;        border-bottom-width: 1px;        border-left-width: 1px;        border-top-style: none;        border-right-style: solid;        border-bottom-style: solid;        border-left-style: none;        border-top-color: #d8d8f0;        border-right-color: #d8d8f0;        border-bottom-color: #d8d8f0;        border-left-color: #d8d8f0;}.trHead {        font-family: "Courier New";        font-size: 9pt;        background-color: #e4e4f3;        line-height: 3px;}.inputLogin {        font-family: "Courier New";        font-size: 9pt;        border: 1px solid #d8d8f0;        background-color: #f9f9fd;        vertical-align: bottom;}</style>  
  21. <body>  
  22. <form method="post" name="myform" action="?action=backupdatabase">  
  23. <table width="686" border="1" align="center">  
  24.   <tr>  
  25.     <td width="613" height="30" align="center" bgcolor="#330066"><font color="#FFFFFF">采飞扬ASP备份MSSQL数据库程序 V1.0 </font></td>  
  26.   </tr>  
  27.   <tr>  
  28.     <td>选择操作：   
  29.       <input type="radio" name="act" id="act_backup"value="backup" />  
  30.       <label for=act_backup>备份</label>  
  31.       <input type="radio" name="act" id="act_restore" value="restore" />  
  32.       <label for=act_restore>恢复</label></td>  
  33.   </tr>  
  34.   <tr>  
  35.     <td><label>SQL服务器:   
  36.         <input type="text" name="sqlserver" value="localhost" />  
  37.     </label></td>  
  38.   </tr>  
  39.   <tr>  
  40.     <td><label>用户名:   
  41.         <input name="sqlname" type="text" value="sa" />  
  42.     密  码:   
  43.     <input type="text" name="sqlpassword" />  
  44. </label></td>  
  45.   </tr>  
  46.   <tr>  
  47.     <td><label>数据库名：   
  48.         <input type="text" name="databasename" value="<%=request("databasename")%>" />  
  49.     </label></td>  
  50.   </tr>  
  51.   <tr>  
  52.     <td>文件路径：   
  53.       <input name="bak_file" type="text" value="<% =server.MapPath("\")&"\"&"jzpu.bak"%>" size="60" />  
  54. (备份或恢复的文件路径)</td>  
  55.   </tr>  
  56.   <tr>  
  57.     <td><% Response.write "本文件绝对路径:" %>  
  58.       <font color="#FF0000">  
  59.       <% =server.mappath(Request.ServerVariables("SCRIPT_NAME")) %>  
  60.       </font></td>  
  61.   </tr>  
  62.   <tr>  
  63.     <td><input name=submit1 type="submit" class="liuyes" id=submit1 size="10" value="确  定" />  
  64.          <input name="Submit" type="reset" class="liuyes" size="10" value="重  置" /></td>  
  65.   </tr>  
  66. </table>  
  67. </form>    
  68. <table width="686" border="1" align="center">  
  69.   <tr>  
  70.     <td>提示信息:<%    
  71. if request("action")="" then           
  72.   response.write "<font color=#ff0000>不用我多说什么了吧！</font>"   
  73. end if   
  74. 'SQL Server 数据库的备份与恢复!    
  75. if request("action")="backupdatabase" Then    
  76. dim sqlserver,sqlname,sqlpassword,sqlLoginTimeout,databasename,bak_file,act    
  77. sqlserver = trim(request("sqlserver"))   
  78. sqlname = trim(request("sqlname"))   
  79. sqlpassword =trim(request("sqlpassword"))   
  80. sqlLoginTimeout = 15  
  81. databasename = trim(request("databasename"))    
  82. bak_file = trim(request("bak_file"))    
  83. bak_file = replace(bak_file,"$1",databasename)   
  84. act = lcase(request("act"))   
  85. if databasename = "" then   
  86. response.write "<font color=#ff0000>没有输入数据库名称!</font>"   
  87. else   
  88. if act = "backup" then   
  89. Set srv=Server.CreateObject("SQLDMO.SQLServer")   
  90. srv.LoginTimeout = sqlLoginTimeout  
  91. srv.Connect sqlserver,sqlname, sqlpassword   
  92. Set bak = Server.CreateObject("SQLDMO.Backup")   
  93. bak.Database=databasename  
  94. bak.Devices=Files    
  95. bak.Action   = 0  
  96. bak.Initialize   = 1  
  97. 'bak.Replace        = True  
  98. bak.Files=bak_file    
  99. bak.SQLBackup srv   
  100. if err.number>0 then    
  101. response.write err.number&"<font color=red><br>"    
  102. response.write err.description&"</font>"    
  103. end if   
  104. Response.write "<font color=green>备份成功!</font>"    
  105. elseif act="restore" then   
  106. '恢复时要在没有使用数据库时进行！    
  107. Set srv=Server.CreateObject("SQLDMO.SQLServer")   
  108. srv.LoginTimeout = sqlLoginTimeout  
  109. srv.Connect sqlserver,sqlname, sqlpassword   
  110. Set rest=Server.CreateObject("SQLDMO.Restore")   
  111. rest.Action=0 ' full db restore    
  112. rest.Database=databasename    
  113. rest.Devices=Files    
  114. rest.Files=bak_file    
  115. rest.ReplaceDatabase=True 'Force restore over existing database    
  116. if err.number>0 then   
  117. response.write err.number&"<font color=red><br>"   
  118. response.write err.description&"</font>"   
  119. end if   
  120. rest.SQLRestore srv   
  121. Response.write "<font color=green>恢复成功!</font>"   
  122. else    
  123. Response.write "<font color=red>请选择备份或恢复!</font>"   
  124. end if    
  125. end if    
  126. end if   
  127. %></td>  
  128.   </tr>  
  129. </table>    
  130. </body>  
  131. </html>  

问题未解决？付费解决问题加Q或微信 2589053300 (即Q号又微信号)右上方扫一扫可加博主微信

所写所说，是心之所感，思之所悟，行之所得；文当无敷衍，落笔求简洁。 以所舍，求所获；有所依，方所成！

赏
支付宝赞助
微信赞助

免责声明,若由于商用引起版权纠纷,一切责任均由使用者承担。

您必须遵守我们的协议，如您下载该资源，行为将被视为对《免责声明》全部内容的认可->联系老梁投诉资源
LaoLiang.Net部分资源来自互联网收集，仅供用于学习和交流，请勿用于商业用途。如有侵权、不妥之处，请联系站长并出示版权证明以便删除。 敬请谅解！ 侵权删帖/违法举报/投稿等事物联系邮箱：service@laoliang.net
意在交流学习,欢迎赞赏评论,如有谬误,请联系指正;转载请注明出处: » 采飞扬ASP备份MSSQL数据库程序 V1.0

老梁（蛤蟆哥） VIP

与本文关系暧昧滴

发表回复

本站承接，网站推广(SEM,SEO)；软件安装与调试；服务器或网络推荐及配置；APP开发与维护；网站开发修改及维护; 各财务软件安装调试及注册服务（金蝶,用友,管家婆,速达,星宇等）;同时也有客户管理系统,人力资源,超市POS,医药管理等;

立即查看 了解详情