Office中国论坛/Access中国论坛

标题: BackupDB.asp [打印本页]
作者: aiqingdao    时间: 2006-9-23 00:19
标题: 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>   
  <   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%">assword:</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")   
  mdb=Request.Form("txtdb")   
  mto=Request.Form("txtto")   
  if   mpwd=""   then   mpwd=""""   <B



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3