asp无组件备份与还原数据库（3）

备份到设备：

<％ 
   rec li,"select name,phyname from master..sysdevices where status=16" 
   ％> 
   <select name="b_dev"> 
   <％ 
   while not li.eof 
   response.Write "<option value="&li(0)&">"&li(0)&"(文件："&li(1)&")</option>" 
   li.movenext 
   wend 
   cdb li 
   ％> 
   </select><br> 
   <input name="按钮" type="button" value="备份数据库" onClick="window.location=’cmd.asp?action=backup&database=’+document.all.b_data.value+’&dev=’+document.all.b_dev.value;"> 
     
   <input name="按钮" type="button" value="还原数据库" onClick="window.location=’cmd.asp?action=RESTORE&database=’+document.all.b_data.value+’&dev=’+document.all.b_dev.value;"> </td> 
   </tr> 
   <tr> 
   <td> </td> 
   <td> </td> 
   </tr> 
  </table> 
  </body> 
  </html> 

cmd.asp

<!--#include file="conn.asp"--> 
  <％ 
  on error resume next 
  if request("action") <> "" then 
  if request("action")="backup" then 
  sql ="BACKUP DATABASE "&request("database")&" To "& request("dev") 
  cmd sql 
  if err.number > 0 then 
  response.Write "<script language=javascript>alert(’数据库"&request("database")&"备份失败！’);window.location=’default.asp’;</script>" 
  else 
  response.Write "<script language=javascript>alert(’数据库"&request("database")&"备份成功！’);window.location=’default.asp’;</script>" 
  end if 
  else 
  sql ="RESTORE DATABASE "&request("database")&" From "& request("dev") 
  cmd sql 
  if err.number > 0 then 
  response.Write "<script language=javascript>alert(’数据库"&request("database")&"还原失败！’);window.location=’default.asp’;</script>" 
  else 
  response.Write "<script language=javascript>alert(’数据库"&request("database")&"还原成功！’);window.location=’default.asp’;</script>" 
  end if 
  end if 
  end if 
  ％> 

  希望大家互相交流！QQ：1168064