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

看过数据库的备份与还原。大多数都是用组件来完成的。其实可通过sql语句来完成。
  由于时间关系，未对参数进行验证和界面美化。代码仅供参考。
  共计4个文件：
  conn.asp

<％ 
  conn="Provider=SQLOLEDB.1;Persist Security Info=false;Server=127.0.0.1;UID=sa;pwd=www.zhi.net;database=master" 
  function rec(rs,sql) 
  set rs = server.CreateObject("ADODB.Recordset") 
  rs.Activeconnection = conn 
  rs.Source = sql 
  rs.CursorType = 0 
  rs.Cursorlocation = 3 
  rs.LockType = 1 
  rs.Open 
  if rs.eof and rs.bof then 
  rec= false 
  else 
  rec= true 
  end if 
  end function 
  function cmd(sql) 
  dim cmd1 
  set cmd1 = server.CreateObject("ADODB.Command") 
  cmd1.ActiveConnection = conn 
  cmd1.CommandText = sql 
  cmd1.CommandType = 1 
  cmd1.CommandTimeout = 0 
  cmd1.Prepared = true 
  cmd1.Execute() 
  end function 
  function cdb(rs) 
  rs.close() 
  set rs=nothing 
  end function 
  ％> 

 dev.asp

 <!--#include file="conn.asp"--> 
   <％ 
   if request("AddDev") <> "" then 
  sql="select name,phyname from master..sysdevices where status=16 and name=’"&request("devname")&"’" 
  rec chk,sql 
  if chk.eof and chk.bof then 
  sql = "sp_addumpdevice ’disk’,’"&request("devname")&"’,’"&request("phyname")&"’" 
  cmd sql 
  response.Write "<script language=javascript>window.location=reload;</script>" 
  else 
  response.Write "<script language=javascript>alert(’数据库中已存在"&request("devname")&"设备！’);window.location=’cmd.asp’;</script>" 
  end if 
  end if 
  if request("deldev") <> "" then 
  sql = "sp_dropdevice ’"&request("devname")&"’" 
  cmd sql 
  response.Write "<script language=javascript>window.location=reload;</script>" 
  end if 
   rec li,"select name,phyname from master..sysdevices where status=16" 
   if li.eof and li.bof then 
   response.Write "<font color=#ff0000>请新建备份设备用来备份还原数据库</font>" 
   else 
   ％><style type="text/css"> 
  <!-- 
  body { 
   margin-left: 0px; 
   margin-top: 0px; 
  } 
  --> 
  </style> 
  <table width="60％" border="0" cellspacing="0"> 
   <tr> 
   <td width="29％">名称：</td> 
   <td width="71％">位置：</td> 
   </tr> 
   <％ 
   i=0 
   while not li.eof 
   i=i+1 
   ％> 
   <tr> 
   <td><％=li(0)％></td> 
   <td><％=li(1)％> <a href=’dev.asp?DelDev=1&devname=<％=li(0)％>’>删除此设备</a></td> 
   </tr> 
   <％ 
   li.movenext 
   wend 
   response.Write "<script language=javascript>top.document.all.dev.height=’"&(i+1)*25&"’;</script>" 
   cdb li 
   ％> 
  </table> 
  <％ 
  end if 
  ％>